Sätt att alla i ett OU skall byta passord vid nästa påloggning

Sätt eller ta bort flaggan "byt passord vid nästa inloggning"

Set objUser = GetObject _

("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objUser.Put "pwdLastSet", 0
objUser.SetInfo

Sätter flaggan

Set objUser = GetObject _

("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objUser.Put "pwdLastSet", -1
objUser.SetInfo

Tar bort flaggan