標題: 變更網域中所有電腦的本機管理員密碼 [打印本頁] 作者: f66666602 時間: 2007-7-27 20:53 標題: 變更網域中所有電腦的本機管理員密碼 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 "密碼變更完成"
歡迎光臨 中央論壇 - CENTER BBS (https://mail.centerbbs.com/)