中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: