这个自动添加网络打印机的脚本哪里错了 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: 这个自动添加网络打印机的脚本哪里错了

hahaweber
初级用户

积分 23
发帖 21
注册 2008-11-3
状态离线

『楼主』: 这个自动添加网络打印机的脚本哪里错了

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

2008-11-4 15:43

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

你只装了驱动啊…… 下面实例自行修改 '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

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2008-11-4 22:31

查看资料发短消息网志

编辑帖子回复引用回复

hahaweber
初级用户

积分 23
发帖 21
注册 2008-11-3
状态离线

『第 3 楼』:

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

2008-11-5 08:45

查看资料发送邮件发短消息网志

编辑帖子回复引用回复