Installationsscript, das zuvor prüft, ob eine Software schon installiert ist

Nach dem ich hier bereits beschrieben habe, wie man Geogebra 5 per Gruppenrichtlinie ausrollen kann, folgt nun an dieser Stelle ein etwas abgeändertes Script, das zuvor prüft, ob eine gewünschte Software bereits vorhanden ist am System.

Falls diese Software fehlt, wird das (Installations-)Script gestartet, anderenfalls bleibt das System unberührt.

Dieses VBScript lässt sich sowohl zur Installation per Script, als auch für andere Zwecke nutzen…
[Anmerkung: das folgende Script installiert Geogebra unter der Voraussetzung, das Geogebra 5 noch NICHT vorhanden ist!]

' HINWEIS: als .vbs speichern

on Error resume next

'############# HIER den Displaynamen der Software angeben, nach der gesucht werden soll ##########

Wunschsoftware = "geogebra 5"

'#################################################################################################

myinstallation = "true"
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
installedSoftwaresPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

Set objReg = GetObject("winmgmts://./root/default:StdRegProv")

objReg.EnumKey HKLM, installedSoftwaresPath, arrSubkeys
For Each strSubkey In arrSubkeys
    Ret = objReg.GetStringValue(HKLM, installedSoftwaresPath & strSubkey, "DisplayName", SoftwareName)
    If Ret <> 0 Then
    objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", SoftwareName       
    End If
    If instr(1,SoftwareName,Wunschsoftware,1) >= 1 Then
        'WScript.Echo VbCrLf & "Display Name: " & SoftwareName
		myinstallation = "false"
    End If
Next

if myinstallation = "true" then

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "msiexec.exe /i ""\\server\share\scripts\software\geogebra\GeoGebra-Windows-Installer-5.msi"" /qn ALLUSERS=2  /Lime C:\GeogebraProtokolldatei.txt", 0, True 
else

		' msgbox Wunschsoftware & " schon installiert!"
END IF