分享

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

 雪鹰精品书屋 2016-07-20

【摘要】

现代化社会,电脑已成为我们不可缺少的一部分,有很多用户的网络环境没有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

跳过控制面板,利用VBS脚本修改计算机管理员账户的密码2、“更改账户登陆密码”的同文件夹中新建一个文本文档,输入本地IP地址,保存并重命名为ServersIP.txt。如图所示:

跳过控制面板,利用VBS脚本修改计算机管理员账户的密码注意:IP地址一定要与本地IP一致。

3、以上两步做好之后,双击运行“更改账户登陆密码.vbs”。

↓然后弹出输入框要求键入要修改的管理员账户名,然后点击“确定”

跳过控制面板,利用VBS脚本修改计算机管理员账户的密码↓接着弹出另一个输入框,要求键入该账户的新的“密码”,然后点击“确定”

跳过控制面板,利用VBS脚本修改计算机管理员账户的密码↓接着会提示用户要修改的用户名和密码,进一步确认,确认无误则点击“确定”,取消修改则点击“取消”

跳过控制面板,利用VBS脚本修改计算机管理员账户的密码↓修改完后提示,完成修改!

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

现在你的登陆密码已经修改成功,赶快去试一下吧!


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多