Hotfix Installation leicht gemacht - Easy-Hotfix-Installer

[Foppel]

Hallo Leute,

ich habe ein kleines Programm geschrieben mit dem es einfach möglich ist Hotfixes in den Opsi zu integrieren. Das Programm ist eine kleine *.exe Datei und es erwartet einen Unterordner mit dem Namen hotfix. In dem Ordner werden alle *.exe Dateien gesucht und hintereinander silent installiert. Getestet habe ich es mit 30 Updates die nach dem SP3 kamen.

Download:
http://technik-fan.de/hotfix.exe

Das komplette Opsi Paket mit den MS Hotfixes nach SP3 bekommt ihr hier:
http://rapidshare.com/files/191090365/h ... .opsi.html

Installation mit:
opsi-package-manager -i hotfix_1.0-1.opsi

greets - Foppel

[martin]

Hi,

danke !!!
funktioniert super

Gruß Martin

[Foppel]

Ich habe es jetzt auch bei mehreren Rechner direkt mit in die /var/lib/opsi/config/templates/pcproto.ini geschrieben. So werden die Hotfixes direkt nach der Installation von Windows auch mit installiert und man muss das Paket nicht immer auswählen.

Bitte beachten: Die Hotfixes erzeugen ein paar temporäre Ordner mit kryptischen Bezeichnungen unter C:\ das ist aber normal und diese verschwinden automatisch nach einem Neustart...

Falls jemand das Programm verändern möchte gebe ich hier mal den Quellcode frei. Es ist unter AutoIT v3 kompiliert. Kostenloser Download unter: http://www.autoitscript.com/autoit3/downloads.shtml

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

[stfn_MD]

Super sache.
Werds nachher gleich mal noch Testen wenn ich die Zeit finde.
Auf jedenfall eine Super Idee...

Gehen damit auch Office 2003 Fixes oder nur die für Windows allgemein?! Denke doch mal ersteres.. odeR?

Grüße
Stfn

[lenny]

Hallo Eine Frage,

wir betreiben einen WSUS wo die ganzen Updates bereits vorliegen, aber die x mal neustarten sind schon öde.

Frage 1: Kann ich das Tool dafür hernehmen?
Frage2: Wie komme ich an die Exe Dateien aus meiner WSUS DB?

Wenn jemand antwort weis würde ich mich freuen.

Grüße Lenny

[untouchable]

Hallo Foppel

Super Job
thx very much

leider hat sich der rapidshare link ins jenseits abgemeldet
werde dann mal bei meine XP mit WSUS deine Lösung implementieren.

Feedback folgt

gruss
untouchable

[lenny]

Ich bin mal gespannt auf Deine Lösung wäre auch sehr daran interessiert

[keller_e]

Könnte jemand das Programm nochmal hochladen, bitte!?

[ueluekmen]

auch wenn es hier nicht alle hören wollen, dieser Thread ist mal wieder eine Steilvorlage für bisschen Werbung in eigener Sache :

http://www.uib.de/www/service_support/s ... bonnements