Beiträge von daMeier

; Übergreifende Variablen erstellen
Local $IPAdresse
Local $PfadtxtDatei
Local $PfadLogDatei
Local $CMD
Local $var
Local $msg
Local $Ping
Local Const $varFileSelectFolder = ""


; Hier beginnt das Programm
GUICreate("Windows Update Stand prüfen", 400, 500)
$Label = GUICtrlCreateLabel("Dieses Programm, prüft einen oder mehrere Arbeitsplätze (aufgelistet in einer txt-Datei) über das Netzwerk auf ihren Windows Update stand." &@CRLF& "" &@CRLF& "***************************************************************************************" &@CRLF& "Dazu wird das Tool Microsoft Baseline Security Analyzer (MBSA) verwendet und muss vorab auf dem ausführenden Arbeitsplatz installiert werden." &@CRLF& "" &@CRLF& "- Auf den zu prüfenden Arbeitsplätzen muss der Dienst RemoteRegistry (Remoteregistrierung) auf Automatisch gestellt und gestartet sein." &@CRLF& "- Der Benutzer (Administrator) muss mit einem bekannten Kennwort anglegt und aktiviert sein." &@CRLF& "" &@CRLF& "***************************************************************************************" &@CRLF& "" &@CRLF& "Wählen Sie nun, ob Sie einen geziehlten Arbeitsplatz prüfen oder anhand einer txt-Datei mehrere Arbeitsplätze prüfen wollen." &@CRLF& "" &@CRLF& "" &@CRLF& "WICHTIG !!! Diese Programm muss als Administrator ausgeführt werden!!!", 25, 25, 350, 300)
$Button1 = GUICtrlCreateButton("Einen Arbeitsplatz prüfen", 25, 320, 130, 30)
$Button2 = GUICtrlCreateButton("Mehrere Arbeitsplätze prüfen", 25, 360, 150, 30)
$Button3 = GUICtrlCreateButton("Beenden", 285, 445, 90, 30)


GUISetState()
   while 1
	  $msg = GUIGetMsg()
	  Select
		 Case $msg = -3
			Exit
; Drücken des Button "Einen Arbeitsplatz prüfen"
		 Case $msg = $Button1
; Zu überprüfende IP-Adresse abfragen und Info für das weitere vorgehen
			$IPAdresse = inputbox("Windows Update Stand prüfen - Abfrage der IP-Adresse und Info für das weitere vorgehen", "" &@CRLF& "Bitte geben Sie die IP-Adresse des zu prüfende Arbeitsplatzes an." &@CRLF& "" &@CRLF& "Als nächstes wählen Sie den Speicherort für das Protokoll." &@CRLF& "" &@CRLF& "" &@CRLF& "" &@CRLF& "z.B. 192.168.178.1", "", "", 500, 215)
			if @error = 1 Then
			   Exit
			Else
			   EndIf
; Prüfen ob die IP-Adresse über das Netzwerk erreichbar ist
			$Ping = Ping($IPAdresse, 250)
			If $Ping Not Then
			   MsgBox(0, "Windows Update Stand prüfen - Arbeitsplatz nicht erreichbar.", "Der Arbeitsplatz mit der IP-Adresse " &$IPAdresse &" ist nicht über das Netzwerk zu erreichen." &@CRLF& "" &@CRLF& "Bitte prüfen Sie ob der Arbeitsplatz eingeschaltet ist.")
			   Exit
			Else
			   EndIf
; Pfad für Log Dateien auswählen
			$PfadLogDatei = FileSelectFolder($varFileSelectFolder, "")
			if @error = 1 Then
			   Exit
			Else
			   EndIf
; Ausführen des MBSA Scripts für eingegebene IP-Adresse.
			$CMD = "C:\PROGRA~1\MICROS~3\mbsacli /target "&$IPAdresse& " /u USERNAME /p PASSWORD /rd "&$PfadLogDatei& " /n OS+SQL+IIS+Password /qt /ia"
			RunWait(@ComSpec & " /c " & $CMD)
			MsgBox(0, "Windows Update Stand prüfen - Arbeitsplatz erfolgreich geprüft.", "Der Arbeitsplatz mit der IP-Adresse "&$IPAdresse &" wurde erfoglreich geprüft." &@CRLF& "" &@CRLF& "Die Protokolldatei zu diesem Vorgang finden Sie unter: "&$PfadLogDatei&"")
			Exit
; Drücken des Button "Mehrere Arbeitsplätze prüfen"
		 Case $msg = $Button2
; Infos zum weiteren vorgehen
			$var = MsgBox(1, "Windows Update Stand prüfen - mehrere Arbeitsplätze prüfen", "Erstellen Sie bitte eine txt-Datei (Dateiname ohne Leerzeichen) in welcher Sie die zu überprüfenden IP-Adressen der Arbeitsplätze unter einander auflisten z.B." &@CRLF& "192.168.178.1" &@CRLF& "192.168.178.2" &@CRLF& "usw." &@CRLF& "" &@CRLF& "Wählen Sie im nächsten Fenster wo die Logdateien abgespeichert werden sollen." &@CRLF& "" &@CRLF& "Im darauf folgenden Fenster wählen Sie die txt-Datei in der die IP-Adressen der zu prüfenden Arbeitsplätze hinterlegt sind." &@CRLF& "" &@CRLF& "Alle Arbeitsplätze in der txt-Datei werden auf Verfügbarkeit über das Netzwerk (Ping) geprüft. Sollte ein Arbeitsplatz nicht erreichbar sein wird dieser nicht geprüft.")
			if $var = 2 Then
			   Exit
			Else
			   EndIf
; Pfad für Log Dateien auswählen
			$PfadLogDatei = FileSelectFolder($varFileSelectFolder, "")
			if @error = 1 Then
			   Exit
			Else
			   EndIf
; txt-Datei mit den zu überprüfenden IP-Adressen auswählen
			$PfadtxtDatei = FileOpenDialog("txt-Datei auswählen", @WindowsDir & "\", "Textdatei (*.txt)", 1 + 2)
			If @error Then
			   MsgBox(0, "Windows Update Stand prüfen - keine txt-Datei ausgewählt", "Sie haben keine txt-Datei ausgewählt. Bitte wählen Sie die txt-Datei in der die IP-Adressen der zu überprüfenden Arbeitsplätze hinterlegt sind.")
			   Exit
			Else
			EndIf
			Local $file = FileOpen("" &$PfadtxtDatei& "", 0)
			While 1
			   Local $line = FileReadLine($file)
			   If @error = -1 Then ExitLoop
; Prüfen ob die IP-Adressen über das Netzwerk erreichbar ist
			   $Ping = Ping($line, 250)
			   If $Ping Not Then
				  $CMD = "echo " &$line& " - offline >> "&$PfadLogDatei& "\Netzwerkstatus_Arbeitsplaetze.log"
				  RunWait(@ComSpec & " /c " & $CMD)
			   Else
				  $CMD = "echo " &$line& " - online >> "&$PfadLogDatei& "\Netzwerkstatus_Arbeitsplaetze.log"
				  RunWait(@ComSpec & " /c " & $CMD)
			   EndIf
			WEnd
			FileClose($file)
			MsgBox(0, "Windows Update Stand prüfen - Netzwerkstatus Arbeitsplätze.", "Der Netzwerkstatus der zu prüfenden Arbeitsplätze wurde überprüft und in eine Logdatei unter "&$PfadLogDatei& "\Netzwerkstatus_Arbeitsplaetze.log geschrieben.")
; Ausführen des MBSA Scripts für eingegebene IP-Adresse.
			$CMD = "C:\PROGRA~1\MICROS~3\mbsacli /listfile " &$PfadtxtDatei& " /u USERNAME /p PASSWORD /rd "&$PfadLogDatei& " /n OS+SQL+IIS+Password /qt /ia"
			RunWait(@ComSpec & " /c " & $CMD)
			MsgBox(0, "Windows Update Stand prüfen - Die Arbeitsplätze wurden erfolgreich geprüft.", "Die Arbeitsplätze mit den IP-Adressen aus der txt-Datei unter ("&$PfadtxtDatei&") wurden erfoglreich geprüft." &@CRLF& "" &@CRLF& "Die Log Dateien zu diesem Vorgang finden Sie unter: "&$PfadLogDatei&"")
			Exit
		 Case $msg = $Button3
			Exit
	  EndSelect
   WEnd

#include <File.au3>
#include <Array.au3>


Local $FileList = _FileListToArray("C:\Test" , "*.txt")
If @error = 1 Then
    MsgBox(0, "", "Keine Ordner gefunden.")
    Exit
EndIf
If @error = 4 Then
    MsgBox(0, "", "Keine Dateien gefunden.")
    Exit
EndIf