1 Dim ConvertedDir, InstallDir, ScriptName, WshShell
\r
4 Set WshShell = CreateObject("WScript.Shell")
\r
6 'Get the INSTALLDIR value via CustomActionData
\r
7 InstallDir = Session.Property("CustomActionData")
\r
9 'Remove all trailing backslashes to normalize
\r
10 Do While (Mid(InstallDir,Len(InstallDir),1) = "\")
\r
11 InstallDir = mid(InstallDir,1,Len(InstallDir)-1)
\r
13 ConvertedDir = Replace(InstallDir, "\", "/")
\r
14 ScriptName = ConvertedDir & "\etc\shibboleth\keygen.bat"
\r
16 WshShell.Exec(ScriptName)
\r