【摘要】
現代化社會，電腦已成為我們不可缺少的一部分，有很多使用者的網絡環境沒有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腳本之家），很炫酷哦~！