天天看點

跳過控制台,利用VBS腳本修改計算機管理者賬戶的密碼

作者:快樂蝦

【摘要】

現代化社會,電腦已成為我們不可缺少的一部分,有很多使用者的網絡環境沒有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腳本修改計算機管理者賬戶的密碼

現在你的登陸密碼已經修改成功,趕快去試一下吧!

想要學習更多電腦小知識,歡迎關注微信公衆号 vbs_edit(VBS腳本之家),很炫酷哦~!