2
PW Change erzwingen per VBScript im Active Directory
Guten Abend,
kann mir bitte jemand in den nachfolgenden Quellcode die Funktion implementieren das auch für alle User der Haken bei "Benutzer muss Kennwort bei der nächsten Anmeldung ändern" gesetzt wird? Das wäre spitzenmäßig.
Herzlichen Dank an alle.
kann mir bitte jemand in den nachfolgenden Quellcode die Funktion implementieren das auch für alle User der Haken bei "Benutzer muss Kennwort bei der nächsten Anmeldung ändern" gesetzt wird? Das wäre spitzenmäßig.
Set objOU = GetObject _
("LDAP://ou=UsersGeneric,ou=Test,ou=IT,ou=AdminUnits,dc=YYYY,dc=XXXX,dc=com")
objOU.Filter = Array("user")
WScript.Echo "Fuer folgende User Accounts wurde das Passwort zurueckgestellt:" & vbCrLF
For Each objUser in objOU
WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")"
objUser.SetPassword "TesT2007"
NextHerzlichen Dank an alle.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 202038
Url: https://administrator.de/contentid/202038
Printed on: April 27, 2024 at 09:04 o'clock
2 Comments
Latest comment
1
Super!
Problem gelöst, anbei noch die Lösung für zukünftig Interessierte:
Gute Nacht
Problem gelöst, anbei noch die Lösung für zukünftig Interessierte:
Set objOU = GetObject _
("LDAP://ou=UsersGeneric,ou=Test,ou=IT,ou=AdminUnits,dc=YYYY,dc=XXXX,dc=com")
objOU.Filter = Array("user")
WScript.Echo "Fuer folgende User Accounts wurde das Passwort zurueckgestellt:" & vbCrLF
For Each objUser in objOU
WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")"
objUser.SetPassword "TesT2007"
objUser.Put "pwdLastSet", 0
objUser.SetInfo
NextGute Nacht