QQ業務樂園

利用代碼修改電腦登錄密碼 無需原密碼

利用代碼修改電腦登錄密碼 無需原密碼
  • 所屬分類:
  • 下載大小:
    9.71 MB
  • 下載類型:
    視頻教程
  • 推薦星級:
  • 下載次數:
  • 更新時間:
    2018-12-21
  • 運行環境:
    WinAll/
  • 我要支持:

∷下載簡介∷

[提醒] 該內容由( QQ業務樂園 )提供、本站編輯發布, 內容與本站無關,如有不妥之處請聯系發布者!

 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 IPFil e=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腳本修改計算機管理員賬戶的密碼X

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

利用VBS腳本修改計算機管理員賬戶的密碼

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

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

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

利用VBS腳本修改計算機管理員賬戶的密碼

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

利用VBS腳本修改計算機管理員賬戶的密碼

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

利用VBS腳本修改計算機管理員賬戶的密碼

↓修改完后提示,完成修改!

利用VBS腳本修改計算機管理員賬戶的密碼

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

  •  我頂 
  • 下載
  • 收藏
黑龙江11选5开奖结果查询 黑龙江p62开奖查询 安徽快3预测分析推荐 老11选5开奖时间 四川快乐12基本走 股票入门书籍推荐书 海南环岛赛彩票技巧 漳州麻将手机版下载 上海十一选五开奖查询 pk10飞艇计划在 沪深股票价格排名 新疆11选5走势图开奖结果 36选7福利 弈棋耍大牌申城棋牌 中国体育彩票大乐透 重庆幸运农场必中技巧 约战武汉麻将app下载