Untested script to run keygen batch file.

git-svn-id: https://svn.middleware.georgetown.edu/cpp-sp/trunk@2773 cb58f699-b61c-0410-a6fe-9272a202ed29

diff --git a/msi/scripts/shib_keygen.vbs b/msi/scripts/shib_keygen.vbs
new file mode 100644 (file)
index 0000000..ccc4a16
--- /dev/null
+++ b/msi/scripts/shib_keygen.vbs
@@ -0,0 +1,17 @@
+Dim ConvertedDir, InstallDir, ScriptName, WshShell\r
+\r
+On Error Resume Next\r
+Set WshShell = CreateObject("WScript.Shell")\r
+If (Err = 0) then\r
+  'Get the INSTALLDIR value via CustomActionData\r
+  InstallDir = Session.Property("CustomActionData")\r
+\r
+  'Remove all trailing backslashes to normalize\r
+  Do While (Mid(InstallDir,Len(InstallDir),1) = "\")\r
+    InstallDir = mid(InstallDir,1,Len(InstallDir)-1)\r
+  Loop\r
+  ConvertedDir = Replace(InstallDir, "\", "/")\r
+  ScriptName = ConvertedDir & "\etc\shibboleth\keygen.bat"\r
+  \r
+  WshShell.Exec(ScriptName)\r
+End If\r