当前位置: 首页 > 技术分享  > 电脑技术 > 操作系统

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

2012/3/3 15:57:57 人评论

在AD环境中,有时候电脑的本机管理员不记得了,或是被用随意更改了,作为管理员想将下面电脑的管理员密码统一的话,可以用脚本实现!Dim oWshNetwork Set oWshNetwork = WScript.CreateObject("WScript.Network")...

   在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
 

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

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

相关技术

  • AutoKMS后台修改系统配置安装OPENVPN

    采用AutoKMS激活了本地OFFICE,大家都懂的。今天使用电脑时,360报告,修改本地多项配置。软件已经激活了,也没有到定期再次激活时间,AutoKMS你是要挖后门呀。桌面弹出OpenVPN软件安装界面,果断卸载AutoKMS。留你不得。

    2017/12/8 10:12:47
  • WIN7、WIN8关闭休眠模式

    电脑C盘空间不多,造成缩略图不显示。果断关闭电脑休眠模式,释放空间,再清理垃圾临时文件,问题解决。以下为关闭休眠模式方法:在开始…

    2015/6/25 16:59:46
  • 远程会话超出了所允许的失败登录最大次数

    早上管理员点检服务器,发现日志上多了很多错误信息(如上图)。来自客户端名 a 的远程会话超出了所允许的失败登录最大次数。强行终止了会话。很多情况下,本类错误发生时会耗占系统较大资源,假如服务器配置较低,容易引起服务器宕机,程序挂起等各种异常发生

    2014/11/14 8:28:43
  • 离开电脑一键锁定电脑系统

    我们在操作电脑时,时常碰到这样的情况:由于要做某件急事,需要暂时离开计算机,但又不想别人随便登陆计算机使用,怎么办?下边有种方…

    2014/9/25 13:44:13

共有条评论 网友评论

验证码: 看不清楚?