[WinOF] DAPLsetup CA, create %SystemDrive%\DAT if needed.

git-svn-id: svn://openib.tc.cornell.edu/gen1@723 ad392aa1-c5ef-ae45-8dd8-e69d62a5ef86

diff --git a/branches/WinOF/InstallShield/CustomActions.vbs b/branches/WinOF/InstallShield/CustomActions.vbs
index 0d30388d3ed398b57a6f782a5314fb8b41401bf3..ff373bc13462eb78295c3e1aa50eee9df1de2137 100644 (file)
--- a/branches/WinOF/InstallShield/CustomActions.vbs
+++ b/branches/WinOF/InstallShield/CustomActions.vbs
@@ -762,6 +762,33 @@ Sub OpensmServiceEvent()
 End Sub\r
 \r
 \r
+Sub DAPLsetup()\r
+      Dim sSysDrive, DatFolder, SrcFile, WshShell, fso\r
+\r
+      Set WshShell = CreateObject("WScript.Shell")\r
+      Set fso = CreateObject("Scripting.FileSystemObject")\r
+\r
+      SrcFile = Session.Property("INSTALLDIR") & "dat.conf"\r
+\r
+      If fso.FileExists(SrcFile) Then\r
+             On Error Resume Next \r
+          sSysDrive = WshShell.ExpandEnvironmentStrings("%SystemDrive%") \r
+          DatFolder = sSysDrive & "\DAT"\r
+          If fso.FolderExists(DatFolder) Then\r
+              ' Preserve existing %SystemDrive%\DAT\r
+              Exit Sub\r
+          End if\r
+          ' create %SystemDrive%\DAT & install dat.conf\r
+          fso.CreateFolder DatFolder\r
+          If Err Then\r
+              ErrMsg "Unable to create folder %SystemDrive%\DAT"\r
+              Exit Sub\r
+          End if\r
+          fso.CopyFile SrcFile, DatFolder & "\dat.conf"\r
+      End if\r
+End Sub\r
+\r
+\r
 Sub ScheduleReboot\r
                \r
        Set objWMILocator = CreateObject ("WbemScripting.SWbemLocator") \r