End Sub
-Dim FileSystemObj, ConvertedDir, ConfigFile, XMLDir
+Dim FileSystemObj, ConvertedDir, ConfigFile, XMLDir, WshShell
Dim customData, msiProperties, InstallDir, ShibdPort
on error resume next
ConfigDir = InstallDir & "\etc\shibboleth\"
DistDir = ConfigDir & "dist\"
+ 'Set ConvertedDir as the SHIBSP_PREFIX system variable.
+ Set WshShell = CreateObject("WScript.Shell")
+ WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\SHIBSP_PREFIX", ConvertedDir, "REG_SZ"
+
'Perform actual Substitutions
'Afterwards, if the config file doesn't already exist, copy up to etc/shibboleth
'Also strip *.in for files in dist
FileSystemObj.CopyFile DistDir & "globalLogout.html", ConfigDir, false
End If
- If (NOT FileSystemObj.FileExists(ConfigDir & "openssl.cnf")) then
- FileSystemObj.CopyFile DistDir & "openssl.cnf", ConfigDir, false
- End If
-
If (NOT FileSystemObj.FileExists(ConfigDir & "console.logger")) then
FileSystemObj.CopyFile DistDir & "console.logger", ConfigDir, false
End If