空白网络

[Windows] 跳过控制面板,利用VBS脚本修改计算机管理员账户的密码
1、首先在新建一个文本文档,粘贴下面一段代码。保存记事本文档,重命名为“更改账户登陆密码”,把文件的后缀名txt改...
扫描右侧二维码阅读全文
30
2016/07

[Windows] 跳过控制面板,利用VBS脚本修改计算机管理员账户的密码

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。如图所示:

3然后双击运行即可。.

 

转载由:吾爱破解

Last modification:March 16th, 2017 at 09:38 pm
If you think my article is useful to you, please feel free to appreciate

Leave a Comment