腳本管理之打印安裝

安裝一臺打印機
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "//PrintServer1/Xerox300"
WshNetwork.SetDefaultPrinter "//PrintServer1/Xerox300"

移除某臺打印機
使用RemovePrinterConnection 
移除所有打印機


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next



修改本地管理員密碼
1、新建一個修改本地管理員的VBS腳本。內容如下：
 strComputer = "."
 Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
 objUser.SetPassword "123456"
 objUser.SetInfo
取名爲CHSPW.VBS
2、加密改腳本
 用SCRENC工具加密VBS腳本。命令如下： SCRENC.exe CHSPW.VBS CHSPW.VBE
3、Copy加密後的腳本到Server/Netlogon下
4、用TQCrunas創建一個加密的Runas命令腳本
 >TQCrunas  -build c:/runas.tqc -profile -dd -user admin -pw password -e "//server/netlogon/chspw.vbe"
5、把C：/runas.tqc 複製到Server/Netlogon下
6、新建一個login.Bat文件當作登錄腳本
 TQCRunas /f runas.tqc
7、將login.bat文件分發到用戶Profile裏作爲用戶的登錄腳本，當用戶登錄Domain時，將自動把本地Administrator的密碼修改爲您在CHSPW.vbs中設置的密碼