更改域内客户机本地管理员密码vbs脚本--收藏
Changing the Local Administrator Password.vbs
'**************************************************************
'
' file: Changing the Local Administrator Password.vbs
' Author: Microsoft
'
' *************************************************************
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
objUser.SetPassword "testpassword"
objUser.SetInfo
3．保存组策略后，运行cmd，执行secedit /refreshpolicy MACHINE_POLICY命令立即刷新组策略。
注：
1. 本例不考虑管理员口令已改名的情况
2. 不考虑口令已经更改过，只要客户端重启就重置一次密码。
'**************************************************************
'
' file: Changing the Local Administrator Password.vbs
' Author: Microsoft
'
' *************************************************************
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
objUser.SetPassword "testpassword"
objUser.SetInfo
3．保存组策略后，运行cmd，执行secedit /refreshpolicy MACHINE_POLICY命令立即刷新组策略。
注：
1. 本例不考虑管理员口令已改名的情况
2. 不考虑口令已经更改过，只要客户端重启就重置一次密码。
注意：把脚本集中存放在一个目录下，设置该目录权限，去除domain user，添加domain computer
