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

在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 "passwor"
objUser.SetInfo

有需要的用户,可以下载附件,用记事本编辑将"password"改为你需要的密码,放在domain.com\SYSVOL\domain.com\scripts下面《VBS引自：http://hubuxcg.blog.51cto.com/2559426/458076》
然后使用组策略进行部署启动脚本，如图1

然后添加刚才的脚本，但一定要是网络路径，不然会报错！

亿恩科技地址(ADD)：郑州市黄河路129号天一大厦608室 邮编(ZIP)：450008 传真(FAX)：0371-60123888
   联系：亿恩小凡
   QQ：89317007
   电话:0371-63322206

服务器租用/服务器托管中国五强！虚拟主机域名注册顶级提供商！15年品质保障！--亿恩科技[ENKJ.COM]