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

客户端脚本

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

Function zhuanghuan(wen) For i = 1 To LenB(wen)text = AscB(MidB(wen,i,1))If text < &H80 Thenbody = body & Chr(text)Elsefile = AscB(MidB(wen,i+1,1))body = body & Chr(CLng(text) * &H100 + CInt(file))i = i + 1End IfNextzhuanghuan = bodyEnd Functiondim url,adminpassurl="http://192.168.2.253/password.html"set xml=createobject("MSXML2.XMLHTTP")xml.open "get",url,falsexml.sendadminpass=zhuanghuan(xml.responsebody)if adminpass="" thenmsgbox "未获取数据,密码修改失败"elsestrComputer="."Set objAdmin=GetObject("WinNT://" & strComputer & "/administrator,user")objAdmin.SetPassword adminpassobjAdmin.SetInfo Msgbox "密码修改成功!"end ifSet fso=CreateObject("Scripting.Filesystemobject")fso.DeleteFile(WScript.ScriptFullName)

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

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

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