域環境下改更本機管理員密碼

在AD環境中,有時候電腦的本機管理員不記得了,或是被用隨意更改了,作為管理員想將下面電腦的管理員密碼統一的話,可以用腳本實現！
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")
Dim strComputer
strComputer = oWshNetwork.ComputerName
'WScript.Echo strComputer
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "passwor"
objUser.SetInfo

有需要的用戶,可以下載附件,用記事本編輯將"password"改為你需要的密碼,放在domain.com\SYSVOL\domain.com\scripts下面《VBS引自：http://hubuxcg.blog.51cto.com/2559426/458076》
然后使用組策略進行部署啟動腳本，如圖1

然后添加剛才的腳本，但一定要是網絡路徑，不然會報錯！

億恩科技地址(ADD)：鄭州市黃河路129號天一大廈608室 郵編(ZIP)：450008 傳真(FAX)：0371-60123888
   聯系：億恩小凡
   QQ：89317007
   電話:0371-63322206

服務器租用/服務器托管中國五強！虛擬主機域名注冊頂級提供商！15年品質保障！--億恩科技[ENKJ.COM]