Windows自动修改系统密码分享

局域网内需要批量更改域工作站的管理员密码，企业内存在多个HelpDesk，因为HelpDesk不能有域控服务器管理权限，因此需要客户端的管理员密码进行管理，因为企业内人员的流动客户端密码存在多套，没有统一，因此使用域控服务器下发策略的方式进行重置。

客户端脚本

将一下内容复制并保存为vbs后缀:脚本运行完之后会自动进行删除，防止被其他人员利用

Function zhuanghuan(wen) 
For i = 1 To LenB(wen)
text = AscB(MidB(wen,i,1))
If text < &H80 Then
body = body & Chr(text)
Else
file = AscB(MidB(wen,i+1,1))
body = body & Chr(CLng(text) * &H100 + CInt(file))
i = i + 1
End If
Next
zhuanghuan = body
End Function

dim url,adminpass
url="http://192.168.2.253/password.html"
set xml=createobject("MSXML2.XMLHTTP")
xml.open "get",url,false
xml.send
adminpass=zhuanghuan(xml.responsebody)
if adminpass="" then
msgbox "未获取数据,密码修改失败"
else
strComputer="."
Set objAdmin=GetObject("WinNT://" & strComputer & "/administrator,user")
objAdmin.SetPassword adminpass
objAdmin.SetInfo 
Msgbox "密码修改成功!"
end if
Set fso=CreateObject("Scripting.Filesystemobject")
fso.DeleteFile(WScript.ScriptFullName)

以上会自动从http://192.168.2.253/password.html获取密码

然后利用策略进行下发即可

<此方式具有一定的风险>