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.

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"  
Next

Herzlichen Dank an alle.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 202038

Url: https://administrator.de/contentid/202038

Ausgedruckt am: 22.11.2024 um 13:11 Uhr

2 Kommentare

Neuester Kommentar

Hallo,

war Google down? Schau mal hier nach.

Gruß
Friemler

Super!

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 
Next