域环境下改更本机管理员密码

在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"!