Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

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

Frage Entwicklung VB for Applications

Mitglied: JOML

JOML (Level 1) - Jetzt verbinden

02.11.2007, aktualisiert 05.11.2007, 7702 Aufrufe, 8 Kommentare

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
Mitglied: bastla
02.11.2007 um 19:11 Uhr
Hallo JOML2005!

Dafür sollte folgendes VBScript (Vorlage ausgeborgt bei MS themselves) reichen:
01.
Set objOU = GetObject _ 
02.
    ("LDAP://ou=PWTest,dc=firma,dc=local") 
03.
ObjOU.Filter = Array("user") 
04.
For Each objUser in objOU 
05.
	objUser.SetPassword "i5A2sj*!" 
06.
Next
Grüße
bastla
Bitte warten ..
Mitglied: JOML
03.11.2007 um 12:09 Uhr
Hi bastla,

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

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
Bitte warten ..
Mitglied: bastla
03.11.2007 um 13:23 Uhr
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 ...

Um allerdings die von Dir gewünschte Ausgabe zu erzeugen, müsste das Script doch um 2 Zeilen erweitert werden:
01.
Set objOU = GetObject _ 
02.
    ("LDAP://ou=PWTest,dc=firma,dc=local") 
03.
ObjOU.Filter = Array("user") 
04.
WScript.Echo "Fuer folgende User wurde das Passwort zurueckgestellt:" & vbCrLF 
05.
For Each objUser in objOU 
06.
	WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")" 
07.
	objUser.SetPassword "i5A2sj*!" 
08.
Next
Wenn Du das Script als "C:\Scripts\ResetPW4OU.vbs" speicherst, kannst Du es von der Kommandozeile mit
01.
cscript //nologo C:\Scripts\ResetPW4OU.vbs
starten und erhältst die Ausgabe im CMD-Fenster, oder analog mit
01.
cscript //nologo C:\Scripts\ResetPW4OU.vbs > D:\ResetPW4OU.txt
ein Logfile.

Grüße
bastla
Bitte warten ..
Mitglied: JOML
03.11.2007 um 16:00 Uhr
WOW.. das ging aber schnell

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

Nice weekend

JOML
Bitte warten ..
Mitglied: JOML
05.11.2007 um 10:38 Uhr
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:
01.
cscript //nologo C:\Scripts\test.vbs
01.
Set objOU = GetObject _ 
02.
    ("LDAP://ou=UsersGeneric,ou=Test,ou=IT,ou=AdminUnits,dc=YYYY,dc=XXXX,dc=com") 
03.
ObjOU.Filter = Array("user") 
04.
WScript.Echo "Fuer folgende User Accounts wurde das Passwort zurueckgestellt:" & vbCrLF 
05.
For Each objUser in objOU 
06.
	WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")" 
07.
	objUser.SetPassword "TesT2007" 
08.
Next
Ist da noch irgedwo ein Fehler drin...?

Vielen Dank für die Hilfe
JOML
Bitte warten ..
Mitglied: bastla
05.11.2007 um 12:10 Uhr
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
01.
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 ...
01.
Set objOU = GetObject _ 
02.
("LDAP://ou=UsersGeneric,ou=Test,ou=IT,ou=AdminUnits,dc=YYYY,dc=XXXX,dc=com") 
03.
objOU.Filter = Array("user") 
04.
WScript.Echo "Fuer folgende User Accounts wurde das Passwort zurueckgestellt:" & vbCrLF 
05.
For Each objUser in objOU 
06.
 	WScript.Echo objUser.sAMAccountName & " (" & Replace(objUser.Name, "CN=", "") & ")" 
07.
 	objUser.SetPassword "TesT2007" 
08.
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
Bitte warten ..
Mitglied: JOML
05.11.2007 um 12:11 Uhr
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
Bitte warten ..
Mitglied: Biber
05.11.2007 um 15:08 Uhr
@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
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
Lokale User Passworte im AD - Best Practice (9)

Frage von Der-Phil zum Thema Windows Userverwaltung ...

Microsoft Office
Excelsheet gesperrt durch nicht mehr vorhandenen AD-User (5)

Frage von Dopamin85 zum Thema Microsoft Office ...

Windows Server
gelöst Wie AD User sauber löschen? (34)

Frage von McLion zum Thema Windows Server ...

Mac OS X
gelöst OSX AD Passwort Caching möglich? (3)

Frage von Phill93 zum Thema Mac OS X ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

Windows 7
Bluesreens unternehmensweit (18)

Frage von SYS64738 zum Thema Windows 7 ...

LAN, WAN, Wireless
IP Adressen - Modem - Switch - Accesspoint (17)

Frage von teuferl82 zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
DNS ins mehreren Subnetzen (13)

Frage von joerg zum Thema Windows Netzwerk ...