大家好，欢迎来到IT知识分享网。
【摘要】
现代化社会，电脑已成为我们不可缺少的一部分，有很多用户的网络环境没有AD域，服务器都是属于工作组的，安全性不是很高。然而管理员账号的密码需要定期修改，每次修改都需要花很多时间做重复的烦人的工作。所以，笔者写了一个VBS脚本，把需要改管理员密码的服务器（IP地址）写入到一个TXT文件中，然后放在脚本所在目录下，双击运行脚本，输入要更改的用户名和密码，即可完成这些任务，大大提高了运维工作效率。
【正文】
1、首先在新建一个文本文档，粘贴下面一段代码。保存记事本文档，重命名为“更改账户登陆密码”，把文件的后缀名txt改为vbs。
代码如下：
dim username,password
username=InputBox (“请输入要修改密码的用户名: “)
NewPassword=InputBox(“请输入新的密码: “)
IF username=Empty or NewPassword=Empty Then ‘判断用户名和密码输入是否为空，为空则提示并退出脚本
Wscript.Echo “您输入的用户名或密码为空，请重新运行脚本输入。”
Wscript.Quit
End If
Return=MsgBox (“您输入的用户名为：”&username&vbcrlf&vbcrlf&”即将要修改的新密码为：”&NewPassword&vbcrlf&vbcrlf&”取消修改密码请点击“取消”，继续请点击“确定””,VBOKCancel + vbQuestion+ vbDefaultButton2,”用户名密码修改提示”)
If Return=2 Then ‘判断用户点击的按钮，确定则继续修改密码，取消则退出脚本不修改密码
Wscript.Quit
End If
Set FSO=createObject(“scripting.FileSystemObject”)
If FSO.FileExists(“ServersIP.txt”) Then
Set IPFile=FSO.OpenTextFile(“ServersIP.txt”,1,false) ‘循环读取ServersIP.txt的每一行内容，获取要修改密码的计算机
Do While IPFile.AtendOfStream<>true
strComputer=IPFile.ReadLine()
Call CPword(strComputer,UserName,NewPassword) ‘调用密码修改函数
Loop
Else
Wscript.Echo “未在脚本所在目录找到ServersIP.txt文件，请创建并输入计算机IP地址（一个IP占一行）” ‘如果不存在ServersIP.txt则提示并退出脚本
Wscript.Quit
End If
‘清除缓存
IPFile.Close
Set FSO=nothing
Set IPFile=nothing
Function CPword(strComputer,UserName,NewPassword) ‘密码修改函数
Set objUser=GetObject(“WinNT://” & strComputer & “/”&UserName&”,user”) ‘修改账户名为administrator的密码
objUser.SetPassword NewPassword ‘更改为新密码
objUser.SetInfo ‘账号的信息对象
Wscript.echo “密码修改完成，请测试账户是否可以登录！”
End Function
2、在“更改账户登陆密码”的同文件夹中新建一个文本文档，输入本地IP地址，保存并重命名为ServersIP.txt。如图所示：
注意：IP地址一定要与本地IP一致。
3、以上两步做好之后，双击运行“更改账户登陆密码.vbs”。
↓然后弹出输入框要求键入要修改的管理员账户名，然后点击“确定”
↓接着弹出另一个输入框，要求键入该账户的新的“密码”，然后点击“确定”
↓接着会提示用户要修改的用户名和密码，进一步确认，确认无误则点击“确定”，取消修改则点击“取消”
↓修改完后提示，完成修改！
现在你的登陆密码已经修改成功，赶快去试一下吧！
想要学习更多电脑小知识，欢迎关注微信公众号 vbs_edit（VBS脚本之家），很炫酷哦~！
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/59150.html
