首页 / WINDOWS / Windows自动修改系统密码分享

Windows自动修改系统密码分享

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Windows自动修改系统密码分享，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1242字，纯文字阅读大概需要2分钟。

内容图文

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

技术分享650) this.width=650;" src="/upload/getfiles/default/2022/11/9/20221109061743536.jpg" title="96.png" />

客户端脚本

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

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


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

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



本文出自 “枫林晚” 博客，请务必保留此出处http://fengwan.blog.51cto.com/508652/1772800

原文：http://fengwan.blog.51cto.com/508652/1772800

内容总结

以上是互联网集市为您收集整理的Windows自动修改系统密码分享全部内容，希望文章能够帮你解决Windows自动修改系统密码分享所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1247752.html

来源：【匿名】