查看: 1113|回复: 0

[经验分享] Windows自动修改系统密码分享

累计签到：1 天
连续签到：1 天

发表于 2016-5-13 09:04:05 | 显示全部楼层 |阅读模式

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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获取密码

然后利用策略进行下发即可
<此方式具有一定的风险>

Windows, 密码

相关帖子

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表，该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有，请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意，请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息，一经发现立即删除。若您因此触犯法律，一切后果自负，我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集，我们仅提供一个展示、介绍、观摩学习的平台，我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责，亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏，不得用于商业或者其他用途，否则，一切后果均由您自己承担，我们对此不承担任何法律责任
7、如涉及侵犯版权等问题，请您及时通知我们，我们将立即采取措施予以解决
8、联系人Email：admin@iyunv.com 网址：www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址：https://www.yunweiku.com/thread-216311-1-1.html 上篇帖子： Windows使用免费版Kiwisyslog搭建日志服务器下篇帖子： Win 7 SP1 Pack更新不成功，报错 Windows 密码

使用道具举报