中国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)

你只装了驱动啊……
下面实例自行修改


'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

谢谢楼上的回复，我试试看