标题: 这个自动添加网络打印机的脚本哪里错了 [打印本页]
作者: hahaweber 时间: 2008-11-4 15:43 标题: 这个自动添加网络打印机的脚本哪里错了
从网络上找了一些资料，然后根据自身的网络情况做了一些调整，但运行后，只能添加tcpip打印机端口，却无法添加打印机，请大家帮助看一下错误在哪里，谢谢
我们的网络环境
打印机地址：192.168.3.249
驱动位置：\\192.168.3.200\tools\2605dn\HP2605dn\Drivers\Win2000_XP
打印机型号：HP Color LaserJet 2605dn PCL 6
'Install Printer port
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_192.168.3.249"
objNewPort.Protocol = 1
objNewPort.HostAddress = "192.168.3.249"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = True
objNewPort.SNMPCommunity = "Public"
objNewPort.Put_
'Install printer Driver
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objDriver = objWMIService.Get("Win32_PrinterDriver")
objDriver.Name = "HP Color LaserJet 2605dn PCL 6"
objDriver.FilePath = "\\192.168.3.200\tools\2605dn\HP2605dn\Drivers\Win2000_XP"
objDriver.InfName = "\\192.168.3.200\tools\2605dn\HP2605dn\Drivers\Win2000_XP\hppcps02.inf"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
intResult = objDriver.AddPrinterDriver(objDriver)
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_192.168.3.249"
objNewPort.Protocol = 1
objNewPort.HostAddress = "192.168.3.249"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = True
objNewPort.SNMPCommunity = "Public"
objNewPort.Put_
'Install printer Driver
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objDriver = objWMIService.Get("Win32_PrinterDriver")
objDriver.Name = "HP Color LaserJet 2605dn PCL 6"
objDriver.FilePath = "\\192.168.3.200\tools\2605dn\HP2605dn\Drivers\Win2000_XP"
objDriver.InfName = "\\192.168.3.200\tools\2605dn\HP2605dn\Drivers\Win2000_XP\hppcps02.inf"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
intResult = objDriver.AddPrinterDriver(objDriver)
作者: slore 时间: 2008-11-4 22:31
你只装了驱动啊……
下面实例自行修改
'Install printer
objPrinter.DriverName = "HP LaserJet 5100 PCL 6"
objPrinter.PortName = "IP_192.168.10.233"
objPrinter.DeviceID = "HP LaserJet 5100 PCL 6(GL)"
objPrinter.Location = "SH"
objPrinter.Network = True
objPrinter.Shared = False
objPrinter.ShareName = "HP LaserJet 5100 PCL 6(GL)"
objPrinter.Put_
'Set default printer
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'HP LaserJet 5100 PCL 6(GL)'")
For Each objPrinter In colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next
作者: hahaweber 时间: 2008-11-5 08:45
谢谢楼上的回复，我试试看