【摘要】
現(xiàn)代化社會(huì)，電腦已成為我們不可缺少的一部分，有很多用戶的網(wǎng)絡(luò)環(huán)境沒(méi)有AD域，服務(wù)器都是屬于工作組的，安全性不是很高。然而管理員賬號(hào)的密碼需要定期修改，每次修改都需要花很多時(shí)間做重復(fù)的煩人的工作。所以，筆者寫(xiě)了一個(gè)VBS腳本，把需要改管理員密碼的服務(wù)器（IP地址）寫(xiě)入到一個(gè)TXT文件中，然后放在腳本所在目錄下，雙擊運(yùn)行腳本，輸入要更改的用戶名和密碼，即可完成這些任務(wù)，大大提高了運(yùn)維工作效率。
【正文】
1、首先在新建一個(gè)文本文檔，粘貼下面一段代碼。保存記事本文檔，重命名為“更改賬戶登陸密碼”，把文件的后綴名txt改為vbs。
代碼如下：
dim username,password
username=InputBox ('請(qǐng)輸入要修改密碼的用戶名: ')
NewPassword=InputBox('請(qǐng)輸入新的密碼: ')
IF username=Empty or NewPassword=Empty Then '判斷用戶名和密碼輸入是否為空，為空則提示并退出腳本
Wscript.Echo '您輸入的用戶名或密碼為空，請(qǐng)重新運(yùn)行腳本輸入。'
Wscript.Quit
End If
Return=MsgBox ('您輸入的用戶名為：'&username&vbcrlf&vbcrlf&'即將要修改的新密碼為：'&NewPassword&vbcrlf&vbcrlf&'取消修改密碼請(qǐng)點(diǎn)擊“取消”，繼續(xù)請(qǐng)點(diǎn)擊“確定”',VBOKCancel + vbQuestion+ vbDefaultButton2,'用戶名密碼修改提示')
If Return=2 Then '判斷用戶點(diǎn)擊的按鈕，確定則繼續(xù)修改密碼，取消則退出腳本不修改密碼
Wscript.Quit
End If
Set FSO=createObject('scripting.FileSystemObject')
If FSO.FileExists('ServersIP.txt') Then
Set IPFile=FSO.OpenTextFile('ServersIP.txt',1,false) '循環(huán)讀取ServersIP.txt的每一行內(nèi)容，獲取要修改密碼的計(jì)算機(jī)
Do While IPFile.AtendOfStream<>true
strComputer=IPFile.ReadLine()
Call CPword(strComputer,UserName,NewPassword) '調(diào)用密碼修改函數(shù)
Loop
Else
Wscript.Echo '未在腳本所在目錄找到ServersIP.txt文件，請(qǐng)創(chuàng)建并輸入計(jì)算機(jī)IP地址（一個(gè)IP占一行）' '如果不存在ServersIP.txt則提示并退出腳本
Wscript.Quit
End If
'清除緩存
IPFile.Close
Set FSO=nothing
Set IPFile=nothing
Function CPword(strComputer,UserName,NewPassword) '密碼修改函數(shù)
Set objUser=GetObject('WinNT://' & strComputer & '/'&UserName&',user') '修改賬戶名為administrator的密碼
objUser.SetPassword NewPassword '更改為新密碼
objUser.SetInfo '賬號(hào)的信息對(duì)象
Wscript.echo '密碼修改完成，請(qǐng)測(cè)試賬戶是否可以登錄！'
End Function
3、以上兩步做好之后，雙擊運(yùn)行“更改賬戶登陸密碼.vbs”。
↓然后彈出輸入框要求鍵入要修改的管理員賬戶名，然后點(diǎn)擊“確定”
現(xiàn)在你的登陸密碼已經(jīng)修改成功，趕快去試一下吧！
聯(lián)系客服
