VBS脚本增删客户端打印机

场景：
1、客户端需要自动安装某台新共享服务器上的打印机
2、并且删除以前安装的老的共享服务器上的打印机，删除残留的其他网路打印机
脚本如下：
添加打印机

'addPrinter
'直接修改第二行的打印机共享名称即可
'可以添加多条第二行,以增加多个打印机
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.addWindowsPrinterConnection \\172.20.6.6\10F-cw-M451dn

删除打印机

'deletePrinter
'用于打印机服务器迁移之后客户端打印机指向修改
'判断当前用户安装的打印机,如果是6.7的新打印机,则保留
'如果是以前6.6的旧打印机,则删除
'删除其他的网络打印机
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
if objPrinter.ServerName = "\\172.20.6.7" then
Elseif objPrinter.ServerName = "\\172.20.6.6" then
objPrinter.Delete_
Elseif objPrinter.Network = true then
objPrinter.Delete_
end if
Next

GPO一推~皆大欢喜
PS：还有setDefaultPrinter方法，根据部门位置排好几个OU，分别写好默认打印机名字
一下发，不同座位使用不同默认打印机的问题也解决了。
本文出自 “卡斯特梅的雨季” 博客，请务必保留此出处http://sodaxu.blog.51cto.com/8850288/1411350