forum.opsi.org

Code: Alles auswählen

#include <GuiConstantsEx.au3>
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         Foppel

 Script Function:
	Hotfix Installation AutoIt script.

#ce ----------------------------------------------------------------------------
$Files = 0
; Windows XP Service Pack 3 ---- Automatische Hotfix Installation

; GUI
GuiCreate("Easy-Hotfix-Installer", 390, 100)

;Recursive File Lister
 
Dim $FolderName = @ScriptDir & "\hotfix"
Dim $FileCount = 0
 
$Files =  $FileCount
Dim $FileCount = 0
ScanFolder($FolderName)

Func ScanFolder($SourceFolder)
	Local $Search
	Local $File
	Local $FileAttributes
	Local $FullFilePath

	$Search = FileFindFirstFile($SourceFolder & "\*.exe")
 
	While 1
		If $Search = -1 Then
			ExitLoop
		EndIf

		$File = FileFindNextFile($Search)
		If @error Then ExitLoop

		$FullFilePath = $SourceFolder & "\" & $File
		$FileAttributes = FileGetAttrib($FullFilePath)

		If StringInStr($FileAttributes,"D") Then
			ScanFolder($FullFilePath)
		Else
			fileexec($FullFilePath)
		EndIf
 
	WEnd
 
	FileClose($Search)
EndFunc
 

Func fileexec($FileName)
	$FileCount += 1
	; Servicepacks Silent ausführen...
	RunWait($FileName & " /quiet /passive /norestart")
	; LABEL
	GuiCtrlCreateLabel("Installiere Hotfix:" & @CRLF & $FileName, 10, 22, 350, 140)
	GUISetState(@SW_SHOW)

EndFunc