Updates und Anwendungen für Windows XP verteilen

Im Prinzip ist das kein Problem, wenn die Anwendung über eine unattended Installation verfügt.

Die Anwendungsinstallation in eine Freigabe auf dem Server stellen und z. B. das folgende vbscript mit dem Login starten:


dim WshShell,strDir,strBase,strCommand,strMe,strCheck,strRun
dim oFolders,oSubfolders,oFile,strControl,fsoFolder,fsoStatus
Dim process, running, firsttime

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fsoFolder = WScript.CreateObject("Scripting.FileSystemObject")
Set fsoStatus = WScript.CreateObject("Scripting.FileSystemObject")
strBase="\\Server\windows\apps"
strCommand="install.cmd"
Set objNetzwerk = WScript.CreateObject("WScript.Network")
strMe=objNetzwerk.ComputerName & ".txt"


' Ordner in update einlesen

Set oFolders = fsoFolder.GetFolder(strBase)
Set oSubFolder = oFolders.SubFolders

'pr?fe erstes Update nach Installation
strcheck=strBase & "\" & strMe
if fsoStatus.FileExists(strcheck) then
firsttime=false
else
firsttime=true
set oFile = fsoStatus.CreateTextFile(strCheck)
end if


For Each strDir In oSubFolder
'check if Update has already been done
strCheck = strDir & "\" & strMe
if fsoStatus.FileExists(strCheck) then
strcheck="done"
else
' Update ist auszuf?hren
strRun= strDir & "\" & strCommand
WshShell.Run strRun
err=0
set oFile = fsoStatus.CreateTextFile(strCheck)
end if
' Warteschleife
process = "cmd.exe"
running = true
while running=true
running = false
Set WMIClass = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & "localhost" & "\root\cimv2")
Set ListOfProcesses = WMIClass.ExecQuery("SELECT NAME FROM Win32_Process")
for each objProcess In ListOfProcesses
if objProcess.Name = process then
running=true
exit for
end if
next
wend
next
if firsttime=true then
set fsofolder=nothing
set fsoStatus=nothing
strRun="C:\WINDOWS\system32\shutdown.exe -r"
WshShell.Run strRun
else
set fsofolder=nothing
set fsoStatus=nothing
end if


Die install.cmd für OpemOffice im Ordner \\server\windows\apps\oo wäre dann:

@echo off
echo Opem Office wird installiert
\\server\windows\apps\oo\setup /q


Gruß


Lemmi