變更網域中所有電腦的本機管理員密碼 - Visual Basic 語言 - 電腦程式設計

sanyu

幼兒生(0/200)

潛水

UID 272990
精華 0
積分 98
帖子 97
潛水 2789 米
閱讀權限 10
註冊 2006-9-23

發表於 2007-7-22 02:13 AM 資料文集短消息

伊莉遊戲

變更網域中所有電腦的本機管理員密碼

[顯示] [隱藏]

這對許多MIS來說非常有用，有些電腦的本機管理員密碼不是被User偷改就是年久遺失，這個好方法可以一次通通改成一樣的，不可不用！

[Copy to clipboard]

CODE:

Set objOU = GetObject("LDAP://DC=test,DC=com,DC=tw/subtree")
objOU.Filter = Array("ou")
i=0
For Each objItem in objOU

strComputer = objItem.CN
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator")
for each oju in objuser
objuser.get("displayname")
next
i = i + 1
objUser.SetPassword("admpassword")
Next
Msgbox "密碼變更完成"

shun0226
該用戶已被刪除

發表於 2007-8-17 02:11 AM

伊莉遊戲

支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持
支持支持支持支持支持支持支持支持支持支持支持█████████持支持支持
支持支持支持支持支持支持支持支持支持███████████████持支持
支持支持支持支持支持支持支持支██████████████████持支持
支持支持支持支持支持支████████████████持支持支持支持支持
支持支持支持支持███████持███持支█████支持支持支持支持支持
支持支████████████持支持支持支████持支持支持支持支持支持
支██████████████持支持支持支████持支持支持支持支持支持
支████████████持支持支持支持███████████持支持支持
支████████████持支持支持支██████████████持支持
支持██████████支持支持支██████持支持███████持支持
支持支持支持支持████支持支持支████持支持支持支█████支持支持
支持支持支持支持████支持支持████支持██支持支█████支持支持
支持支持支持支持████支持支持████支持████支█████支持支持
支持支持支持支持████支持支持████支持████支█████支持支持
支持支持支持支持████支持支持████支持███持支█████支持支持
支持支持支持支持████支持支持████支持███持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持███持支████持支█████支持支持
支持██支持支█████支持支持███持支███支持支█████支持支持
支持██████████支持支持支██持支██持支持支█████支持支持
支持支█████████支持支持支持支持███持支持支持████支持支持
支持支持支███████支持支持支持支持███持████支持支持支持支持
支持支持支持██████支持支持支持支████持支 [color=blue][size=2][ [u]瀏覽完整內容請先註冊或登入會員[/u]。][/size][/color]

fckgw