鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站制作教程 > vbs > >

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

来源:互联网 作者:佚名 时间:2015-10-15 13:42
在AD域 环境 中,有时候电脑的本机 管理员 不记得了,或是被用随意 更改 了,作为 管理员 想将下面电脑的 管理员 密码 统一的话,网上有个脚本可以实现 更改 密码 ! Dim oWshNetwork Set oWshNetwork = WScript.CreateObject("WScript.Network") Dim strCompute

   在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

  有需要的朋友,复制代码到记事本保存为.vbs文件,用记事本编辑将"password"改为你需要的密码,放在下面,然后使用组策略进行部署启动脚本,如图1
 

域<strong>环境</strong>下<strong>更改</strong>本机<strong>管理员</strong><strong>密码</strong> VB

  然后添加刚才的脚本,但一定要是网络路径(放到其他域主机共享文件夹也可),不然会报错!

域<strong>环境</strong>下<strong>更改</strong>本机<strong>管理员</strong><strong>密码</strong> VB650) this.width=650;" />

   IT课提醒您:水风测试没有成功,有成功的分享下。

网友评论
<