VBS脚本增删客户端打印机

标签：blog   class   c   ext   http   int   

场景：

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

VBS脚本增删客户端打印机,布布扣,bubuko.com

VBS脚本增删客户端打印机

标签：blog   class   c   ext   http   int   

原文地址：http://sodaxu.blog.51cto.com/8850288/1411350