域環(huán)境下改更本機管理員密碼

在AD環(huán)境中,有時候電腦的本機管理員不記得了,或是被用隨意更改了,作為管理員想將下面電腦的管理員密碼統(tǒng)一的話,可以用腳本實現(xiàn)！
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

然后添加剛才的腳本，但一定要是網(wǎng)絡(luò)路徑，不然會報錯！

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

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