更改域内客户机本地管理员密码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.  不考虑口令已经更改过，只要客户端重启就重置一次密码。

注意：把脚本集中存放在一个目录下，设置该目录权限，去除domain user，添加domain computer