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

f66666602

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 "密碼變更完成"