joml
Goto Top

Für mehrere User im AD die Passwörter zurücksetzten

Hallo zusammen,

Folgendes Problem:
Ich sollte für mehrere User das Passwort im AD zurücksetzten.
Alle User sollen am Schluss das gleiche Passwort haben. Die User befinden sich in einer spez AU.

Frage:
Wie kann ich im AD für mehrer User das Passwort zurücksetzten OHNE das ich sie mir einzeln vornehmen muss?
Gibts da Möglichkeiten per Script, Tools etc..?

Vielen Dank

Gruss
JOML

Content-ID: 72586

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

Ausgedruckt am: 25.11.2024 um 07:11 Uhr

bastla
bastla 02.11.2007 um 19:11:37 Uhr
Goto Top
Hallo JOML2005!

Dafür sollte folgendes VBScript (Vorlage ausgeborgt bei MS themselves) reichen:
Set objOU = GetObject _
    ("LDAP://ou=PWTest,dc=firma,dc=local")  
ObjOU.Filter = Array("user")  
For Each objUser in objOU
	objUser.SetPassword "i5A2sj*!"  
Next

Grüße
bastla
JOML
JOML 03.11.2007 um 12:09:40 Uhr
Goto Top
Hi bastla,

Vielen Dank... so in der Art habe ich mir das vorgestellt. face-smile

Nur.. leider habe ich (noch) sehr wenig Erfahrung in Sachen VBScripting.
Kann ich das so Einsetzten, wie's da steht (natürlich an unsere AD Struktur angepasst), oder muss voher oder nacher noch was im Script stehen...?

Super wäre natürlich eine visuelle Ausgabe wie z.B:
"Für folgende User wurde das Passwort zurückgestellt:
user1
user2
user3
etc.

Ich kann mir vorstellen, dass das noch relativ einfach wäre.... wenn man weiss wie. Aber eben.. da habe ich halt noch meine Probleme... und die Zeit läuft mir davon um so eine Lösung zu implementieren.


Vielen Dank nochmals

Gruss
JOML
bastla
bastla 03.11.2007 um 13:23:46 Uhr
Goto Top
Hallo JOML2005!

Kann ich das so Einsetzten, wie's da steht (natürlich an unsere AD Struktur angepasst), oder muss voher oder nacher noch was im Script stehen...?
Mehr braucht's eigentlich nicht, sorry ... face-wink

Um allerdings die von Dir gewünschte Ausgabe zu erzeugen, müsste das Script doch um 2 Zeilen erweitert werden:
Set objOU = GetObject _
    ("LDAP://ou=PWTest,dc=firma,dc=local")  
ObjOU.Filter = Array("user")  
WScript.Echo "Fuer folgende User wurde das Passwort zurueckgestellt:" & vbCrLF  
For Each objUser in objOU
	WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")"  
	objUser.SetPassword "i5A2sj*!"  
Next

Wenn Du das Script als "C:\Scripts\ResetPW4OU.vbs" speicherst, kannst Du es von der Kommandozeile mit
cscript //nologo C:\Scripts\ResetPW4OU.vbs
starten und erhältst die Ausgabe im CMD-Fenster, oder analog mit
cscript //nologo C:\Scripts\ResetPW4OU.vbs > D:\ResetPW4OU.txt
ein Logfile.

Grüße
bastla
JOML
JOML 03.11.2007 um 16:00:38 Uhr
Goto Top
WOW.. das ging aber schnell face-smile

Vielen Dank... werde es am Montag gleich mal versuchen...

Nice weekend

JOML
JOML
JOML 05.11.2007 um 10:38:17 Uhr
Goto Top
Hallo bastla,

Irgendwie scheint das nicht so zu funktionieren.
das CMD Fenster geht ganz kurz auf und wieder zu... und das Passwort wird nicht zurückgestellt und auch die Auflistung funktioniert nicht.

Aufgerufen wirds mit:
cscript //nologo C:\Scripts\test.vbs

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

Ist da noch irgedwo ein Fehler drin...?

Vielen Dank für die Hilfe
JOML
bastla
bastla 05.11.2007 um 12:10:44 Uhr
Goto Top
Hallo JOML2005!

Das CMD Fenster geht ganz kurz auf und wieder zu...
Die Idee ist es eigentlich, zunächst über "Start / Ausführen... / cmd" ein CMD-Fenster zu öffnen und von der Kommandozeile aus das Script, wie beschrieben, mit
cscript //nologo C:\Scripts\test.vbs
zu starten.

Ist da noch irgedwo ein Fehler drin...?
Das lässt sich leichter erkennen, wenn Du < code>-Tags (ohne Leerzeichen) verwendest ...
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
Ob Dein LDAP-Pfad stimmt (zB Sub-Domain "YYYY"), musst Du natürlich selbst überprüfen, ansonsten sieht syntaktisch alles OK aus und läuft (natürlich mit meinen Domäneneinstellungen) hier auch.

Grüße
bastla
JOML
JOML 05.11.2007 um 12:11:08 Uhr
Goto Top
Ist da noch irgedwo ein Fehler drin...?


Sorry... war mein Fehler.
So ein typischer Montagmorgenschreibfehler. Hatte im Script eine falsche OU drin.
Jetzt gehts...

Danke nochmals...

Gruss
JOML
Biber
Biber 05.11.2007 um 15:08:53 Uhr
Goto Top
@joml2005
Ist da noch irgedwo ein Fehler drin...?
Diese Frage (am besten mit treuherzigem Wimpernschlag) liebe ich auch bei meinen Kunden.
Es sind schon Fragende aus geringerem Anlass gevierteilt worden.

Aber egal, der Beitrag ist hervorragend gelöst worden und ich schliesse ihn jetzt guten Gewissens.

Grüße
Biber