这个自动添加网络打印机的脚本哪里错了 - 中国DOS联盟论坛

从网络上找了一些资料，然后根据自身的网络情况做了一些调整，但运行后，只能添加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)

第1楼　hahaweber	发表于 2008-11-04 15:43
初级用户　发帖 21　积分 23
这个自动添加网络打印机的脚本哪里错了从网络上找了一些资料，然后根据自身的网络情况做了一些调整，但运行后，只能添加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)

第2楼　slore	发表于 2008-11-04 22:31
铂金会员　发帖 2,478　积分 5,212
你只装了驱动啊…… 下面实例自行修改 '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

第3楼　hahaweber	发表于 2008-11-05 08:45
初级用户　发帖 21　积分 23
谢谢楼上的回复，我试试看