Quelltext der Seite AutoIt:Remote Domain Password Changer

[[Kategorie:AutoIt]][[Kategorie:Windows]][[Kategorie:Windows_XP]][[Kategorie:Terminalserver]][[Kategorie:Windows_Server_2000]][[Kategorie:Windows_Server_2003]][[Kategorie:Windows_Server_2008]][[Kategorie:Windows_Vista]][[Kategorie:Windows_7]][[Kategorie:Active_Directory]][[Kategorie:Batch]][[Kategorie:Anmeldeskripte]]
===Passwörter in Domäne A aus Domäne B ändern===
In einem Kundenprojekt gab es die Anforderung, Kennwörter für Benutzer aus der Domäne A in der Domäne B zu ändern. Natürlich heissen die Benutzer in den beiden Domänen auch noch unterschiedlich.<br>
Grund war das wir aus einer alten NT4.0 Domäne heruas bereits einen neuen Exchange Server in einer Windows 2003 Active Directory Domäne nutzen wollen. Da wir aber für den Fileserver auch die SID's migriert hatten, weigerte sich die AD-Domäne in der NT4.0 Domäne noch zu suchen - wir konnten zwar NT4.0 Benutzern dank der Vertrauensstellung Rechte in der neuen Active Directory Domäne gewähren - jedoch hatten die neuen Systeme dank der migrierten SID's schon immer einen Treffer in der eigenen Domäne noch bevor die NT4.0 Domäne abgefragt wurde.<br>

<u>'''Ausgangslage:'''</u><br>
Ein Benutzer aus der Domäne "NTDOMAIN"

 NTDOMAIN\Mustermann

möchte sein Kennwort in der Domäne "NEUEDOMAIN" ändern. In dieser hat er gleich seinen neuen Benutzernamen:

 NEUEDOMAIN\M.Mustermann


<u>'''Lösung:'''</u><br>

Das nachfolgende AutoIt Script braucht folgende Zusatzdateien:

 BenutzerALT-NEU.txt            In dieser Datei stehen die alten und neuen Benutzernamen
                                in der Form
 
                                Alter Name,Neuer Name
 
                                z.B.:
                                Mustermann,M.Mustermann
 

 pspasswd.exe                  Programm von Microsoft / Systinternals aus der PsTools Sammlung zum Ändern des Kennwortes
                               http://www.sysinternals.com/
                               http://technet.microsoft.com/de-de/sysinternals/bb896649
 
                               AutoIt könnte zwar auch Kennwörter im Active Directory ändern - aber ich hatte schwierigkeiten wegen der anderen Domäne
                               in der es stattfinden soll. Also der Kunstgriff zu diesem Hilfstool.


Beim Start prüfen wir, ob das Programm auch wirklich aus der alten Domäne aufgerufen wird und der Benutzer auch in der Benutzerlistendatei steht.<br>
Vor setzten des Passwortes wird auch noch geprüft ob das Passwort den Anforderungen bezüglich Länge und Komplexität entspricht.<br>

Fertig sieht das ganze so aus:<br>

[[Datei:AutoIT-pwchanger-001.gif]]<br>

Das fertige Script zum herunterladen: [[Media:Pw-changer-znilwiki.au3]]

Und der Quelltext:

<syntaxhighlight lang="autoit">
 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <string.au3>
#include <Array.au3>

; Passwort Änderungen für Exchange Umstellung
; April 2011 von Bernhard Linz
; Bernhard.Linz@datagroup.de
; ######################################################
; Variablen deklarien
Dim $PfadBenutzerliste = "\\SERVER\FREIGABE\BenutzerALT-NEU.txt"

Dim $EingelesendeZeile
Dim $EingelesendeZeileArray
Dim $NameLinks
Dim $NameRechts
Dim $BenutzerListeDatei
Dim $DomainALT = "NTDOMAIN"
Dim $DomainNEU = "NEUEDOMAIN"
Dim $DomainAKTUELL
Dim $BenutzernameALT ;Benutzeranmeldename in der Domäne aus der das Programm aufgerufen wird in der Regel alte Domäne
Dim $BenutzernameNEU ;Benutzeranmdelename aus der Ziel-Domäne
Dim $Passwort1
Dim $Passwort2
Dim $Rueckgabewert
Dim $AdminBenutzer = "NEUEDOMAIN\Administrator"
Dim $AdminBenutzerPasswort = "adminpasswort"
Dim $Pfadpspasswd = "\\SERVER\FREIGABE\pspasswd.exe"
Dim $DomainControllerZielDomain = "DC01"
; Prüfen ob wir uns denn aus der richtigen Domäne anmelden ...

$DomainAKTUELL = EnvGet("USERDOMAIN")
If $DomainAKTUELL <> $DomainALT Then
 MsgBox (266256, "PW-Changer.exe" , "Fehlerhafte Quelldomäne" & @CRLF & "Sie starten dieses Programm aus der Domäne " & $DomainAKTUELL & @CRLF & "Sie müssen es aber aus der Dömane " & $DomainALT & " starten.",360)
 Exit
EndIf
; Prüfen, ob denn der Benutzer auch in unserer Liste der Benutzer steht ...
$BenutzerListeDatei = FileOpen($PfadBenutzerliste,0)
If $BenutzerListeDatei = -1 Then
 MsgBox (266256, "PW-Changer.exe" , "Fehlende Datei:" & @CRLF & "Kann die Datei" & @CRLF & $PfadBenutzerliste & @CRLF & "nicht finden / öffnen.",360)
 Exit
EndIf
$BenutzernameALT = EnvGet("USERNAME") ;Umgebungsvariable Abfragen
$BenutzernameNEU = "Benutzer nicht gefunden"
While 1
 $EingelesendeZeile = FileReadLine($BenutzerListeDatei)
 If @error = -1 Then ExitLoop ;Dateiende erreicht
 $EingelesendeZeileArray = StringSplit($EingelesendeZeile,",")
 If $EingelesendeZeileArray[1] = $BenutzernameALT Then
  $BenutzernameNEU = $EingelesendeZeileArray[2]
  ExitLoop
 EndIf
WEnd
If $BenutzernameNEU = "Benutzer nicht gefunden" Then
 MsgBox (266256, "PW-Changer.exe" , "Fehlender Benutzer in Domäne " & $DomainNEU & @CRLF & "Der Benutzer" & $BenutzernameALT & "steht nicht in der Liste " & @CRLF & $PfadBenutzerliste & @CRLF & "somit hat er kein Exchange-Konto",360)
 Exit
EndIf
;Wir haben alles - Dialog starten:

#Region ### START Koda GUI section ### Form=c:\install\passwordchanger\dialogfensterv1.kxf
$Form1_1 = GUICreate("Passwort für Exchange Postfach ändern ... V1.0", 633, 506, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Willkommen!", 8, 8, 154, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Hier können Sie Ihr Passwort für Ihr Exchange (Outlook) Mailkonto ändern / setzen.", 8, 48, 589, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup(" Benutzernamen ", 8, 80, 617, 137)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Benutzername SA:", 24, 115, 139, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Benutzername Exchange:", 24, 163, 188, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$InputBenutzernameSA = GUICtrlCreateInput($BenutzernameALT, 264, 112, 337, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Courier New")
GUICtrlSetState(-1, $GUI_DISABLE)
$InputBenutzernameACHIM = GUICtrlCreateInput($BenutzernameNEU, 264, 160, 337, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Courier New")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Passwort setzen ", 8, 232, 617, 169)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$InputPasswort1 = GUICtrlCreateInput("", 264, 264, 337, 31, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 16, 400, 0, "Courier New")
$InputPasswort2 = GUICtrlCreateInput("", 264, 312, 337, 31, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 16, 400, 0, "Courier New")
$Label7 = GUICtrlCreateLabel("Neues Passwort:", 24, 267, 123, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Passwort wiederholen:", 24, 315, 162, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Anforderungen an Passwort: Mindestens 7 Zeichen, mindestens ein GROSSbuchstabe, (A-Z)", 16, 352, 549, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("mindestens ein Kleinbuchstabe (a-z), mindestens eine Zahl (0-9)", 16, 368, 380, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ButtonPasswortSetzen = GUICtrlCreateButton("Passwort setzen", 8, 456, 297, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$ButtonAbbrechen = GUICtrlCreateButton("Abbrechen", 328, 456, 297, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Fehlermeldungen = GUICtrlCreateLabel("Fehlermeldungen", 8, 408, 617, 41, BitOR($SS_CENTER,$SS_CENTERIMAGE,$WS_BORDER))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $ButtonAbbrechen
   Exit
  Case $ButtonPasswortSetzen
   $Passwort1 = GUICtrlRead($InputPasswort1)
   $Passwort2 = GUICtrlRead($InputPasswort2)
   ;Test 1: stimmen die beiden Passwörter überein
   If $Passwort1 <> $Passwort2 Then
    GUICtrlSetData($Fehlermeldungen,"Passwörter stimmen nicht überein!")
    GUICtrlSetState($Fehlermeldungen,$GUI_SHOW)
    ContinueCase
   EndIf
   ;Test 2: Ist das Passwort lang genug? 7 Zeichen sind minimum
   If StringLen($Passwort1) < 7 Then
    GUICtrlSetData($Fehlermeldungen,"Passwort zu kurz! Mindestens 7 Zeichen!")
    GUICtrlSetState($Fehlermeldungen,$GUI_SHOW)
    ContinueCase
   EndIf
   ;Test 3: Ist eine Zahl enthalten?
   If StringRegExp($Passwort1,"[0-9]",0) = 0 Then
    GUICtrlSetData($Fehlermeldungen,"Keine Zahl im Passwort enthalten!")
    GUICtrlSetState($Fehlermeldungen,$GUI_SHOW)
    ContinueCase
   EndIf
   ;Test 4: Ist ein Kleinbuchstabe enthalten?
   If StringRegExp($Passwort1,"[a-z]",0) = 0 Then
    GUICtrlSetData($Fehlermeldungen,"Kein Kleinbuchstabe (a-z) Passwort enthalten!")
    GUICtrlSetState($Fehlermeldungen,$GUI_SHOW)
    ContinueCase
   EndIf
   ;Test 5: Ist ein Grossbuchstabe enthalten?
   If StringRegExp($Passwort1,"[A-Z]",0) = 0 Then
    GUICtrlSetData($Fehlermeldungen,"Kein Grossbuchstabe (A-Z) Passwort enthalten!")
    GUICtrlSetState($Fehlermeldungen,$GUI_SHOW)
    ContinueCase
   EndIf
   ;Wenn wir bis hierher kommen ist alles in Ordnung - ContinueCase würde uns sonst überspingen
   GUICtrlSetData($Fehlermeldungen,"Passwort ist OK!")
   GUICtrlSetBkColor($Fehlermeldungen,0x00DD00) ;Hintergrund auf Gruen statt Rot
   GUICtrlSetColor($Fehlermeldungen, 0x000000) ;Schriftfarbe Schwarz statt Gelb
   GUICtrlSetState($Fehlermeldungen,$GUI_SHOW) ;Und Anzeigen (vorher unsichtbar)
   GUICtrlSetState ($ButtonPasswortSetzen,$GUI_DISABLE) ; Schaltfäche für Kennwort ändern deaktivieren
   Sleep (2000) ; Kunstpause
   GUICtrlSetData($Fehlermeldungen,"Setze nun Passwort ..... ")
   ;wir nutzen das Tool pspasswd.exe von Sysinternals als externen Befehl. Zwar können wir Grundsätzlich auch per AutoIt auf das AD zugreifen - aber wir wollen das in einer
   ;anderen Domäne tun, müssten uns also vorher erst an der anderen Domäne passend anmelden.
   ;Zudem schummeln wir und ändern die Passwörter über einen zentralen Admin-Account - so müssen wir das alte vorher nicht wissen.
   ;Das pspasswd.exe Tool zeigt beim ersten mal aber einen EULA-Dialog an. Damit dieser eben nicht kommt, setzen wir den entsprechenden Registrywert
   RegWrite("HKEY_CURRENT_USER\Software\Sysinternals\PsPasswd", "EulaAccepted", "REG_DWORD", "1")
   ;Nun der leichte Teil - passwd aufrufen:
   $Rueckgabewert = RunWait ($Pfadpspasswd & " \\" & $DomainControllerZielDomain & " -u " & $AdminBenutzer & " -p " & $AdminBenutzerPasswort & " " & $BenutzernameNEU & " " & $Passwort1,@WindowsDir,@SW_HIDE)
   ;$Rueckgabewert = 0
   ;MsgBox(0,"Rückgabewert",$Rueckgabewert)
   If $Rueckgabewert = 0 Then
    GUICtrlSetData ($Fehlermeldungen,"Passwort wurde erfolgreich geändert!")
    GUICtrlSetData ($ButtonAbbrechen,"BEENDEN")
   Else
    GUICtrlSetData($Fehlermeldungen,"Passwort konnte nicht gesetzt werden !")
    GUICtrlSetBkColor($Fehlermeldungen,0xFF00) ;Hintergrund auf Rot
    GUICtrlSetColor($Fehlermeldungen, 0xFFFF00) ;Schriftfarbe Gelb
    GUICtrlSetState ($ButtonPasswortSetzen,$GUI_ENABLE)
   EndIf
   RegDelete ("HKEY_CURRENT_USER\Software\Sysinternals\PsPasswd")
   ;MsgBox(0,"test",$GUI_HIDE)
 EndSwitch
WEnd
 
</syntaxhighlight>
<comments />