COMO PEGAR INFORMACOES DA IMPRESSORA PELO IP
Boa noite Pessoal,
Estou querendo desenvolver um Sistema em ASP.NET C/ VB.NET para pegar informações de uma determinada impressora que está instalada na rede da Empresa que trabalho, por exemplo(NÃvel de toner, contador e Status).
Não sei por onde começo, estou pesquisando na internet algumas informações e ainda não encontrei nada que pode ajudar neste projeto, por isso estou pedido a todos do Vbmania um dica, ajuda, orientação e colaboração.
Desde já obrigado a todos.
Estou querendo desenvolver um Sistema em ASP.NET C/ VB.NET para pegar informações de uma determinada impressora que está instalada na rede da Empresa que trabalho, por exemplo(NÃvel de toner, contador e Status).
Não sei por onde começo, estou pesquisando na internet algumas informações e ainda não encontrei nada que pode ajudar neste projeto, por isso estou pedido a todos do Vbmania um dica, ajuda, orientação e colaboração.
Desde já obrigado a todos.
Você tem polo menos um parcial do código?
Como assim ? não entendi PEDRO47501.
O que o PEDRO47501 quis dizer é:
você iniciou pelo menos algum projeto? tem algum código?
tente isso:
http://msdn.microsoft.com/pt-br/library/aa970845%28v=vs.110%29.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
você iniciou pelo menos algum projeto? tem algum código?
tente isso:
http://msdn.microsoft.com/pt-br/library/aa970845%28v=vs.110%29.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
Obrigado FILMAN, mas não ajuda.
Ainda não tenho nenhum código, primeiro tenho que descobrir como consigo me conectar a impressora através do IP que está instalada na Rede da Empresa.
Depois ler as informções(Nivel de toner, contador, Qtd de impressão, etc...).
Colocar essas informações em um Web Form.
Ainda não tenho nenhum código, primeiro tenho que descobrir como consigo me conectar a impressora através do IP que está instalada na Rede da Empresa.
Depois ler as informções(Nivel de toner, contador, Qtd de impressão, etc...).
Colocar essas informações em um Web Form.
Pessoal,
Seria alguma coisa parecida com o Projeto do Link.
http://www.macoratti.net/vbn_pset.htm
Consulte o fabricante da impressora. é possÃvel que exista uma API para fazer isso que você quer.
Vou verificar KERPLUNK.
KERPLUNK,
Ainda não conseguiu achar, mas continuo procurando!
Qual a marca e modelo?
Achei isso, veja se resolve (achei no fórum da hp)
Dim venusstrOutput As String
Dim venusstrDeviceIP As String
Dim venusstrCommunity As String
Dim venusobjSNMP As Object
Dim venusprinter_hostname As Object
Dim venusdisplay1 As Object
Dim venusdisplay2 As Object
Dim venusdisplay3 As Object
Dim venusdisplay4 As Object
Dim venusuptime As Object
Dim venusmodel As Object
Dim venustps As Integer
Dim venustpm As Integer
Dim venustph As Integer
Dim venustpd As Integer
Dim venusticks As Integer
Dim venusseconds As Integer
Dim venusminutes As Integer
Dim venushours As Integer
Dim venusdays As Integer
On Error Resume Next
Err.Clear()
venusstrOutput = [Ô][Ô]
venusstrDeviceIP = [Ô]IP-Address[Ô]
venusstrCommunity = [Ô]public[Ô]
venusobjSNMP = CreateObject([Ô]OlePrn.OleSNMP[Ô])
venusobjSNMP.Open(venusstrDeviceIP, venusstrCommunity, 2, 1000)
venusprinter_hostname = venusobjSNMP.Get([Ô].1.3.6.1.2.1.1.5.0[Ô])
If Err.Number = 0 Then
venusdisplay1 = venusobjSNMP.Get([Ô].1.3.6.1.2.1.43.16.5.1.2.1.1[Ô])
venusdisplay2 = venusobjSNMP.Get([Ô].1.3.6.1.2.1.43.16.5.1.2.1.2[Ô])
venusdisplay3 = venusobjSNMP.Get([Ô].1.3.6.1.2.1.43.16.5.1.2.1.3[Ô])
venusdisplay4 = venusobjSNMP.Get([Ô].1.3.6.1.2.1.43.16.5.1.2.1.4[Ô])
venusuptime = venusobjSNMP.Get([Ô].1.3.6.1.2.1.1.3.0[Ô])
venusmodel = venusobjSNMP.Get([Ô].1.3.6.1.2.1.25.3.2.1.3.1[Ô])
venustps = 100
venustpm = venustps * 60
venustph = venustpm * 60
venustpd = venustph * 24
venusticks = venusuptime
venusseconds = Int(venusticks / venustps) Mod 60
venusminutes = Int(venusticks / venustpm) Mod 60
venushours = Int(venusticks / venustph) Mod 24
venusdays = Int(venusticks / venustpd)
venusuptime = [Ô]Uptime: [Ô] & venusdays & [Ô] days,[Ô] & venushours & [Ô] hours,[Ô] & venusminutes & [Ô] minutes,[Ô] & venusseconds & [Ô] seconds.[Ô]
venusstrOutput = venusstrOutput & venusprinter_hostname & vbCrLf & venusmodel & vbCrLf & [Ô] Display Panel:[Ô] & vbCrLf
venusstrOutput = venusstrOutput & vbCrLf
venusstrOutput = venusstrOutput & venusdisplay1 & vbCrLf & venusdisplay2 & vbCrLf & _
venusdisplay3 & vbCrLf & venusdisplay4 & vbCrLf
venusstrOutput = venusstrOutput & vbCrLf
venusstrOutput = venusstrOutput & venusuptime
DisplayVenus.Text = venusstrOutput
End If
Faça seu login para responder