Discussion:
Criar uma impressora local em porta TCP/IP **URGENTE**
(too old to reply)
Thiago de Araujo Pereira
2005-06-28 15:13:08 UTC
Permalink
Galera,

alguem tem um script que adiciona uma impressora local numa porta TCP/IP??

Preciso com urgência.

Valeu!

[]'s

Thiago
Thiago de Araujo Pereira
2005-06-28 16:03:02 UTC
Permalink
Galera,

Achei um, mais falta só uma coisa:

Como eu coloco ela como padrão?
e Como eu removo uma que já existe?

Valeu

[]'s
Post by Thiago de Araujo Pereira
Galera,
alguem tem um script que adiciona uma impressora local numa porta TCP/IP??
Preciso com urgência.
Valeu!
[]'s
Thiago
Thiago de Araujo Pereira
2005-06-28 16:58:06 UTC
Permalink
Puts!

Não funcionou. Ele dá um generic erros 80041001 no seguinte script


'Mapeando a impressora Brother

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

objPrinter.DriverName = "Brother HL-5040 series"
objPrinter.PortName = "IP_192.168.16.150"
objPrinter.DeviceID = "Laser Brother5040"
objPrinter.Location = "Impressora Brother Laser"
objPrinter.Network = True
objPrinter.Put_

'Definindo como padrao impressora
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'Laser Brother5040'")

For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()

next

Ele dá erro no Put_

Oq pode ser???
Post by Thiago de Araujo Pereira
Galera,
Como eu coloco ela como padrão?
e Como eu removo uma que já existe?
Valeu
[]'s
Post by Thiago de Araujo Pereira
Galera,
alguem tem um script que adiciona uma impressora local numa porta TCP/IP??
Preciso com urgência.
Valeu!
[]'s
Thiago
Thiago de Araujo Pereira
2005-06-28 17:51:07 UTC
Permalink
Já consegui. Tinha que adicionar um comando pra criar a nova porta.
'Instalando porta da impressora
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_192.168.16.150"
objNewPort.Protocol = 1
objNewPort.HostAddress = "192.168.16.150"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_


Agora preciso saber se dá pra deixar os usuarios instalarem uma impressora
local.

[]'s
Post by Thiago de Araujo Pereira
Puts!
Não funcionou. Ele dá um generic erros 80041001 no seguinte script
'Mapeando a impressora Brother
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "Brother HL-5040 series"
objPrinter.PortName = "IP_192.168.16.150"
objPrinter.DeviceID = "Laser Brother5040"
objPrinter.Location = "Impressora Brother Laser"
objPrinter.Network = True
objPrinter.Put_
'Definindo como padrao impressora
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'Laser Brother5040'")
For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
next
Ele dá erro no Put_
Oq pode ser???
Post by Thiago de Araujo Pereira
Galera,
Como eu coloco ela como padrão?
e Como eu removo uma que já existe?
Valeu
[]'s
Post by Thiago de Araujo Pereira
Galera,
alguem tem um script que adiciona uma impressora local numa porta TCP/IP??
Preciso com urgência.
Valeu!
[]'s
Thiago
Thiago de Araujo Pereira
2005-06-28 21:29:11 UTC
Permalink
Como eu monto um IF em cima dessas criações????

[]'s

Thiago
Post by Thiago de Araujo Pereira
Já consegui. Tinha que adicionar um comando pra criar a nova porta.
'Instalando porta da impressora
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_192.168.16.150"
objNewPort.Protocol = 1
objNewPort.HostAddress = "192.168.16.150"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_
Agora preciso saber se dá pra deixar os usuarios instalarem uma impressora
local.
[]'s
Post by Thiago de Araujo Pereira
Puts!
Não funcionou. Ele dá um generic erros 80041001 no seguinte script
'Mapeando a impressora Brother
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "Brother HL-5040 series"
objPrinter.PortName = "IP_192.168.16.150"
objPrinter.DeviceID = "Laser Brother5040"
objPrinter.Location = "Impressora Brother Laser"
objPrinter.Network = True
objPrinter.Put_
'Definindo como padrao impressora
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'Laser Brother5040'")
For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
next
Ele dá erro no Put_
Oq pode ser???
Post by Thiago de Araujo Pereira
Galera,
Como eu coloco ela como padrão?
e Como eu removo uma que já existe?
Valeu
[]'s
Post by Thiago de Araujo Pereira
Galera,
alguem tem um script que adiciona uma impressora local numa porta TCP/IP??
Preciso com urgência.
Valeu!
[]'s
Thiago
Continue reading on narkive:
Loading...