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

在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 "testpassword"
objUser.SetInfo

有須要的用戶,將上面的代碼COPY出來,將"testpassword"改成你須要的密碼,存爲.vbs格式,放在domain.com\SYSVOL\domain.com\scripts下面,用GPO加到Computer Setting的啓動腳本中,電腦重啓後,本機管理員密碼就會改成"testpassword"!