This shows you the differences between two versions of the page.
userspace:windows_updates [2013/01/09 17:50] tobias |
userspace:windows_updates [2021/08/23 08:37] |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | ====== WSUS Updates ====== | ||
- | |||
- | Mit diesem Script wird bei jedem Start per always.ins (wahlweise auch nur einmalig oder bei der Neuinstallation per setup.ins) der interne WSUS Server nach neuen Updates gefragt. So kann ein Client schon bei der Installation durchgepatcht werden. | ||
- | Evtl funktioniert das script auch ohne WSUS. Habe ich allerdings nicht getestet. Als Betriebssystem habe ich Windows XP SP3 verwendet. | ||
- | |||
- | |||
- | * Tested with opsi 4.0.2 | ||
- | * Tested with Winst Version 4.11.2.5 | ||
- | * Tested with Windows XP SP3 | ||
- | |||
- | By --- // | ||
- | |||
- | ==== always.ins ==== | ||
- | |||
- | <code winst always.ins> | ||
- | [Initial] | ||
- | setLogLevel=9 | ||
- | ; Log Errors in Logfile but don't abort: | ||
- | ExitOnError=false | ||
- | ; Show syntax errors in the script: | ||
- | ScriptErrorMessages=on | ||
- | ; Dont trace step by step through the script: | ||
- | TraceMode=off | ||
- | ; let started programs run in front of the winst window | ||
- | StayOnTop=false | ||
- | |||
- | |||
- | [Actions] | ||
- | requiredWinstVersion >= " | ||
- | |||
- | DefVar $ProductId$ | ||
- | DefVar $Version$ | ||
- | DefVar $LogDir$ | ||
- | DefVar $Inst_Cmd32$ | ||
- | DefVar $Inst_Prg$ | ||
- | DefVar $MinimumSpace$ | ||
- | DefVar $INST_architecture$ | ||
- | DefVar $INST_SystemType$ | ||
- | DefVar $LicenseRequired$ | ||
- | DefVar $LicensePool$ | ||
- | DefVar $Uninst_Prg$ | ||
- | |||
- | Set $INST_SystemType$ = GetSystemType | ||
- | set $INST_architecture$ = GetProductProperty(" | ||
- | Set $LogDir$ = " | ||
- | |||
- | ; ---------------------------------------------------------------- | ||
- | ; - Please edit the following values | ||
- | ; ---------------------------------------------------------------- | ||
- | ; | ||
- | ; therefore please: only lower letters, no umlauts, | ||
- | ; no white space use ' | ||
- | Set $ProductId$ | ||
- | Set $Version$ | ||
- | Set $MinimumSpace$ | ||
- | Set $LicenseRequired$ = " | ||
- | Set $LicensePool$ | ||
- | Set $Inst_Prg$ | ||
- | Set $Uninst_Prg$ | ||
- | Set $Inst_Cmd32$ | ||
- | |||
- | ; ---------------------------------------------------------------- | ||
- | |||
- | if not(HasMinimumSpace (" | ||
- | LogError "Not enough space on %SystemDrive%, | ||
- | isFatalError | ||
- | ; Stop process and set installation status to failed | ||
- | else | ||
- | comment "Show product picture" | ||
- | ShowBitmap " | ||
- | |||
- | if $LicenseRequired$ = " | ||
- | comment " | ||
- | Sub_get_licensekey | ||
- | endif | ||
- | |||
- | comment " | ||
- | |||
- | if (($INST_SystemType$ = "x86 System" | ||
- | Message " | ||
- | comment "Start setup program. This may take a lot of time ..." | ||
- | Winbatch_install_32 | ||
- | endif | ||
- | |||
- | endif | ||
- | |||
- | [Winbatch_install_32] | ||
- | %ScriptPath%\$Inst_Prg$ | ||
- | |||
- | ExitWindows /Reboot | ||
- | </ | ||
- | Start einer Command auf dem Zielsystem (damit der Befehl in einer cmd ausgeführt wird und der Nutzer auch sieht was an seinem PC passiert | ||
- | |||
- | |||
- | ==== script.cmd ==== | ||
- | <code - script.cmd> | ||
- | cscript.exe P: | ||
- | </ | ||
- | Über die script.cmd wird die Datei wsus_updates.vbs aufgerufen | ||
- | |||
- | |||
- | ==== wsus_updates.vbs ==== | ||
- | <code vb wsus_updates.vbs> | ||
- | Set updateSession = CreateObject(" | ||
- | Set updateSearcher = updateSession.CreateupdateSearcher() | ||
- | |||
- | WScript.Echo " | ||
- | |||
- | Set searchResult = _ | ||
- | updateSearcher.Search(" | ||
- | |||
- | |||
- | WScript.Echo "List of applicable items on the machine:" | ||
- | |||
- | For I = 0 To searchResult.Updates.Count-1 | ||
- | Set update = searchResult.Updates.Item(I) | ||
- | WScript.Echo I + 1 & "> " & update.Title | ||
- | Next | ||
- | |||
- | If searchResult.Updates.Count = 0 Then | ||
- | WScript.Echo "There are no applicable updates." | ||
- | WScript.Quit | ||
- | Else | ||
- | Set WSHShell = WScript.CreateObject(" | ||
- | WScript.Echo "STOP SAV..." | ||
- | WshShell.Run "net stop SAVService", | ||
- | WScript.Sleep 10000 | ||
- | |||
- | End If | ||
- | |||
- | |||
- | WScript.Echo vbCRLF & " | ||
- | |||
- | Set updatesToDownload = CreateObject(" | ||
- | |||
- | For I = 0 to searchResult.Updates.Count-1 | ||
- | Set update = searchResult.Updates.Item(I) | ||
- | WScript.Echo I + 1 & "> adding: " & update.Title | ||
- | updatesToDownload.Add(update) | ||
- | Next | ||
- | |||
- | WScript.Echo vbCRLF & " | ||
- | |||
- | Set downloader = updateSession.CreateUpdateDownloader() | ||
- | downloader.Updates = updatesToDownload | ||
- | downloader.Download() | ||
- | |||
- | WScript.Echo | ||
- | |||
- | For I = 0 To searchResult.Updates.Count-1 | ||
- | Set update = searchResult.Updates.Item(I) | ||
- | If update.IsDownloaded Then | ||
- | | ||
- | End If | ||
- | Next | ||
- | |||
- | Set updatesToInstall = CreateObject(" | ||
- | |||
- | WScript.Echo | ||
- | " | ||
- | |||
- | For I = 0 To searchResult.Updates.Count-1 | ||
- | set update = searchResult.Updates.Item(I) | ||
- | If update.IsDownloaded = true Then | ||
- | | ||
- | | ||
- | End If | ||
- | Next | ||
- | |||
- | WScript.Echo " | ||
- | Set installer = updateSession.CreateUpdateInstaller() | ||
- | installer.Updates = updatesToInstall | ||
- | Set installationResult = installer.Install() | ||
- | |||
- | ' | ||
- | WScript.Echo " | ||
- | installationResult.ResultCode | ||
- | WScript.Echo " | ||
- | installationResult.RebootRequired & vbCRLF | ||
- | WScript.Echo " | ||
- | "and individual installation results:" | ||
- | |||
- | For I = 0 to updatesToInstall.Count - 1 | ||
- | WScript.Echo I + 1 & "> " & _ | ||
- | updatesToInstall.Item(i).Title & _ | ||
- | ": " & installationResult.GetUpdateResult(i).ResultCode | ||
- | Next | ||
- | |||
- | If installationResult.RebootRequired = true Then | ||
- | WScript.Echo "" | ||
- | WScript.Echo " | ||
- | Set WSHShell = WScript.CreateObject(" | ||
- | WshShell.Run " | ||
- | WScript.Sleep 10000 | ||
- | WshShell.Run " | ||
- | Else | ||
- | WScript.Echo "" | ||
- | WScript.Echo "No reboot needed" | ||
- | Set WSHShell = WScript.CreateObject(" | ||
- | WScript.Echo "START SAV" & vbCRLF | ||
- | WshShell.Run "net start SAVService", | ||
- | WshShell.Run " | ||
- | End If | ||
- | </ | ||
- | |||
- | Den Code für die wsus_updates.vbs habe ich aus dem Internet zusammengesucht. Bei der Installation wird zusätzlich (zur besseren Performance) der Symantec Antivirus Dienst angehalten. Bei mir funktioniert das so sehr gut. | ||
- | |||
- | Verbesserungsvorschläge und Optimierungen sind jederzeit willkommen. | ||
- | |||
- | |||
- | ====== Updates on the Fly ====== | ||
- | |||
- | Ich habe eine weitere Variante entwickelt um Updates automatisiert nach der OS Installation auf den Client zu bringen. | ||
- | Mein Script basiert auf dem Programm [[WUInstall http:// |