Wed Apr 11, 2012 6:25 pm
Thanks Daniel. I am testing the Professional edition now.
My problem now is that the .vbs script does not recognize the install directory as indicated in Advanced Installed. I am using the script below. The value of Session.Property("INSTALLDIR") is being set to "C:\Program Files (x86)" even though I have specified "C:\Program Files". The Application Folder is set to "[ProgramFiles64Folder]xxx" where "xxx" is the product name. Is there another variable I need to use to indicate the path?
dim wshFSO : Set wshFSO = CreateObject("Scripting.FileSystemObject")
dim wshShell : Set wshShell = CreateObject("WScript.Shell")
dim wshSysEnv : Set wshSysEnv = wshShell.Environment
dim wshPrcEnv : Set wshPrcEnv = wshShell.Environment("Process")
dim strSysFolder : strSysFolder = wshSysEnv("windir")
strSysFolder = Replace(strSysFolder, "%SystemRoot%", wshPrcEnv("SYSTEMROOT"), 1, -1, vbTextCompare)
Dim sInstalldir
sInstalldir = Session.Property("INSTALLDIR")
Dim sFile
'register and load the service
sFile = strSysFolder & "\Microsoft.NET\Framework64\v4.0.30319\installutil.exe"
If Not wshFSO.FileExists(sFile) Then
MsgBox "The file " & sFile & " does not exist. Please make sure that .NET v4.0 is installed on your machine. Installation incomplete."
Else
RunMe = sFile & " " & """" & sInstallDir & "bin\services.exe" & """"
return = wshShell.run("cmd /K " & RunMe,,true)
'MsgBox "Business Services installed"
End If
Last edited by
itmanager8815 on Fri Apr 27, 2012 5:39 pm, edited 1 time in total.