HOTFIXCHECK für SP2

#include <file.au3>
#include <Process.au3>
#include <Date.au3>
#include <Constants.au3>
#include <Array.au3>


Opt("RunErrorsFatal",0)
Opt("TrayIconDebug", 1); zeigt am trayicon welchen Befehl  das Script gerade Ausführt
$hotfix_inifile = @TempDir & "\hotfix.ini"
$hotfix_sp1_dir = "\server\!Patch_pakete\Windows\XP\spk1\WinBoard.org_UpdatePack_1.17_XP\Data"
$hotfix_sp2_dir = "\server\!Patch_pakete\Windows\XP\spk2\WinBoard.org_UpdatePack_2.12_XP\Data"


= "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix"
$reg_hotfix = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows XP\SP3"




dim $KB_read
dim $hotfixfind
dim $hotfixfile
dim $search2
dim $abbruch
dim $hotfix_dir
dim $mylist
dim $Form1
dim $anzahl_Patches
dim $strArr
Dim $mapdrive
dim $installierte_Patches
Global $zaehler




;--- HOTKEY für Abbruch -----
HotKeySet("!{ESC}","abbruch")




; --- Programm ablauf
OS_CHECK()
Hotfix_auslesen_xp()
Hotfix_delta_installieren()




;--- Funktionen
Func OS_CHECK()


If @OSTYPE   = "WIN32_WINDOWS"  Then Exit; keine WIN 9x Unterstützung
If @OSVersion  =   "WIN_2000"   Then Exit; keine WIN2000 Unterstützung
If @OSVersion = "WIN_XP" Then
if @OSServicePack = "Service Pack 1" then $hotfix_dir = $hotfix_sp1_dir
if @OSServicePack = "Service Pack 2" then $hotfix_dir = $hotfix_sp2_dir
EndIf
EndFunc 


Func Abbruch()
EnvSet("Abbruch",1)
MsgBox(4096,"!!! ACHTUNG !!!","Die Update- Aktion wird nach dem nächsten Patch abgebrochen",4)
EndFunc 


Func Hotfix_auslesen_xp()


FileDelete($hotfix_inifile) ; Neustart
FileChangeDir ($hotfix_dir) ; Pfad zu den ausgepackten Hotfixes
$search2 = FileFindFirstFile("*-x86-*.exe"); Suchmuster für Patchfiles
If $search2 = -1 Then
MsgBox(0, "Error", "Keine Patchfiles gefunden - Bitte das Quellverzeichnis überprüfen")
Run("Explorer " & $hotfix_dir)
   Exit 


Else
;--- Liste der Hotfixes im Hotfixverzeichnis nach Muster KB?????? erstellen
While 1
 $hotfixfind = FileFindnextFile($search2)  ; erstes Patchfile;~ MsgBox(0, "", $hotfixfind) 
  if @error = 1 Then ExitLoop
 $KB_STRING = StringSplit($hotfixfind,"-x86-",1) ;KB Nummer isolieren 1;~ MsgBox(0, "", $KB_STRING[1]) 
 $KB_STRING2 = StringSplit($KB_STRING[1],"-",1) ;KB Nummer isolieren 2;~ MsgBox(0, "", $KB_STRING2[2]) 
 IniWrite($hotfix_inifile,"HOTFIX",$KB_STRING2[2],1);KB Nummer in INI-File schreiben
WEnd
FileClose($search2); Close the search handle
EndIf




;--- bereis installierte Patches wieder aus der INI-Datei löschen
$y = 1; Startwert für $y'ten Eintrag


Do
 $prgkey_read = RegEnumKey($reg_hotfix, $y);Liest den Namen der installierten KB's aus der Registry aus.
;~    MsgBox(0,"Hotfix",$prgkey_read)
  if  $prgkey_read > "" then 
   IniDelete($hotfix_inifile,"HOTFIX",$prgkey_read); entfernet die installierten Patches aus der INI-Datei

  EndIf 
 $y = $y + 1
Until $prgkey_read= "";alle Keys ausgelesen


EndFunc






Func Liste_anzeigen()
;--- GUI erzeugen - Patchliste
$Form1 = GUICreate("Update Übersicht", 120, 440, 10 , 10) 
$mylist = GUICtrlCreateList("",5 ,15, 110, 430) 
GUISetState()


$deltafile = IniReadSection($hotfix_inifile,"HOTFIX")
For $i = 1 To $deltafile[0][0]
 GUICtrlSetData($mylist,$deltafile[$i][0])
   Next
EndFunc






Func Hotfix_delta_installieren()


If DriveGetType($hotfix_dir) = 'Network' And DriveGetType($hotfix_dir) <> 'Unknown' Then
$mapdrive = DriveMapAdd("*", $hotfix_dir)
EndIf
;~ DriveMapAdd("B:", $hotfix_dir)
FileChangeDir( $mapdrive)


;--- neue Methode mit 1D Array
$var = IniReadSection($hotfix_inifile,"HOTFIX"); INI Datei in 2D Array einlesen
If @error Then 
   exit_error_func()
Else
;--- ARRAY von 2D nach 1D wandeln, Thanks To ARI
 $anzahl_Patches = $var[0][0]
 For $i = 1 To $var[0][0]
  $strArr = $strArr & '|' & $var[$i][0]
 Next
 
 If StringLeft($strArr , 1) = '|' Then
  $strArr = StringTrimLeft($strArr, 1)
 EndIf
 
 $arrNewArr = StringSplit($strArr, '|')
 _ArraySort( $arrNewArr)
 
 
;--- $hotfix_inifile sortiert zurückschreiben
 FileDelete($hotfix_inifile); erst löschen
 For $i = 1 To $arrNewArr[0]
   IniWrite($hotfix_inifile,"HOTFIX",$arrNewArr[$i],1)
  Next
 
 
;--- sortiertes Array - Patches nacheinander installieren
 For $i = 1 To $arrNewArr[0];$arrNewArr[0] entspricht der Anzahl der zu instalierenden Patches

   Liste_anzeigen()
   $zaehler= $i

   $search = FileFindFirstFile("*" & $arrNewArr[$i] & "*"); Suche nach dem Patch mit der KB-Nummer
    If @error Then ExitLoop
   $deltafile = FileFindNextFile($search)   ; Name des kompletten Files finden
  ;~ MsgBox(0,"",$deltafile)
   FileClose($search)
   SplashTextOn("Windowsupdate",$deltafile & " wird jetzt installiert", 500, 50, @DesktopWidth/2-250, 10)
   RunWait($deltafile & ' -u -z')
   IniDelete($hotfix_inifile,"HOTFIX",$arrNewArr[$i]); installieren Patch aus der INI-Datei entfernen
   SplashOff()
   GUICtrlDelete($mylist)
   GUIDelete($Form1)

   $var2 = EnvGet("abbruch")      ; IF (Abbruch Variable durch HOTKEY ausgelößt) THEN Abarbeitung beenden
    if $var2 == 1 Then 
     MsgBox(4096,"Windowsupdate", "Das Update wird auf Anforderung abgebrochen" & @LF &  "Beim nächsten LOGIN wird an dieser Stelle angeknüpft",4)
     exitfunc()
    EndIf

  Next
EndIf








EndFunc 


Func exitfunc()
Run($mapdrive & "\qchain.exe") 
EnvSet
DriveMapDel($mapdrive)
MsgBox(0,"!!! Bitte Computer neustarten !!!","Es wurden " & $zaehler & " von " & $anzahl_Patches & " Updates installiert " & @CR & @CR &  "Abbhänigkeiten wurden geprüft um sicherzustellen, dass nach dem Neustart des Computers nur die neuesten Versionen einer Datei installiert wurde." & @CR & @CR & "!!! Bitte Computer neustarten !!!")
Exit 
EndFunc 




Func exit_error_func()
DriveMapDel($mapdrive)
MsgBox(4096,"FEHLER","Es ist ein Fehler beim WINDOWSUPDATE aufgetreten, bitte informieren Sie ihren Administrator",5)
Exit 
EndFunc