【摘要】

現(xiàn)代化社會，電腦已成為我們不可缺少的一部分，有很多用戶的網(wǎng)絡環(huán)境沒有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&'取消修改密碼請點擊“取消”，繼續(xù)請點擊“確定”',VBOKCancel + vbQuestion+ vbDefaultButton2,'用戶名密碼修改提示')

If Return=2 Then '判斷用戶點擊的按鈕，確定則繼續(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)容，獲取要修改密碼的計算機

Do While IPFile.AtendOfStream<>true

strComputer=IPFile.ReadLine()

Call CPword(strComputer,UserName,NewPassword) '調(diào)用密碼修改函數(shù)

Loop

Else

Wscript.Echo '未在腳本所在目錄找到ServersIP.txt文件，請創(chuàng)建并輸入計算機IP地址（一個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 '賬號的信息對象

Wscript.echo '密碼修改完成，請測試賬戶是否可以登錄！'

End Function

2、在“更改賬戶登陸密碼”的同文件夾中新建一個文本文檔，輸入本地IP地址，保存并重命名為ServersIP.txt。如圖所示：

注意：IP地址一定要與本地IP一致。

3、以上兩步做好之后，雙擊運行“更改賬戶登陸密碼.vbs”。

↓然后彈出輸入框要求鍵入要修改的管理員賬戶名，然后點擊“確定”

↓接著彈出另一個輸入框，要求鍵入該賬戶的新的“密碼”，然后點擊“確定”

↓接著會提示用戶要修改的用戶名和密碼，進一步確認，確認無誤則點擊“確定”，取消修改則點擊“取消”

↓修改完后提示，完成修改！

現(xiàn)在你的登陸密碼已經(jīng)修改成功，趕快去試一下吧！