1 Dim WshShell, versionArray, versionElement, versionNumbers, regValue, foundVersionsStr
2 Set WshShell = CreateObject("WScript.Shell")
4 versionNumbers = Session.Property("OLDSHIBVERSIONSTOUNINSTALL")
6 versionArray = split( versionNumbers, ";" )
10 for each versionElement in versionArray
11 if (versionElement<>"") then
13 'if RegRead fails, it won't set regValue, and it will hold the last value instead. Make sure the 'last' value is ""
16 regValue=WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Shibboleth " & versionElement & "\UninstallString")
17 if (regValue<>"") then
18 foundVersionsStr = foundVersionsStr & "Shibboleth " & versionElement & vbCRLF
24 if (foundVersionsStr<>"") then
25 Session.Property("OLDSHIBVERSIONSFOUND") = foundVersionsStr