Startup Script to Install Software

Rob,

I'm not sure that I understand your solution.  Are you suggesting that the application, including the setup.exe file be moved to the /scripts/ folder?  In my case, that wouldn't be acceptable.  The application runs on a TrueCrypt "drive" which is created from a TrueCrypt container on an eSata drive.  It can't be moved to another location.  I could move the setup.iss file, but not the program itself.

Hmmm, that might make it difficult to have the Startup Script access the other network location.

The other thing you could try then, is allowing the local SYSTEM account access to the App1 folder on the original file share.  Go to the NTFS security permissions of the folder, and add the local SYSTEM account.  Then, hopefully your script will have access to it.  You shouldn't need to map the drive though, so just change the file paths to the UNC paths once you have done that.

Regards,

Rob.

Rob,

That didn't work either.  Under Sharing and Security for the TrueCrypt "drive", I tried SYSTEM with full control.  Also tried Domain/Admin.  No luck.

Under the Properties tab, I set all to full control.  Still no luck.

Last month, I installed a trial version of Windows Server 2008 and the script ran fine on it.

Ah very good.  OK, given that, I see two possible issues with the VBS as to why it may not have worked.

First off, there is no error checking on the mapping of the drive, which means if it happened to produce an error, it would have ended the script there.  I have added error checking on the mapping in the code below.

Secondly, the is no space after the -f1 parameter of the caf.exe call.  In the DOS version, you have a space.

Oh, and another "possible" issue, is that the command may *need* to be run at the command prompt.  I have accounted for that too.

Sorry I didn't pick up on these things earlier, but feel free to try the VBS version again if you like.  Otherwise you are able to close the question, accepting your last post as the answer.

Regards,

Rob.

'
' A script to install software in silent mode using a setup.iss file
'
'--------------------------------------------------------------------
Option Explicit
'
On Error Resume Next
Dim objNetwork, strDriveLetter, strRemotePath, boolPersistent
Dim objFSO, execFile, setupFile, WSHShell
'
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method.  Result Z: drive
'
strDriveLetter = "Z:" 
strRemotePath = "\\SERVER\SHARE"
boolPersistent = False
 
Set objNetwork = CreateObject("WScript.Network") 
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Disconnect the drive first in case it is incorrectly mapped
If objFSO.DriveExists(strDriveLetter) = True Then objNetwork.RemoveNetworkDrive strDriveLetter, True, False
WScript.Sleep 1000
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, boolPersistent
'
' Now we install the software
'
execFile = "Z:\APP1\Setup.exe"
setupFile = "Z:\APP1\setup.iss"
' 
Set WshShell = CreateObject("WScript.Shell") 	
WSHShell.Run "cmd /c " & chr(34) & execFile & Chr(34) & " -s -f1 " & Chr(34) & setupFile & Chr(34), 0, False

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

If you change this line
WSHShell.Run "cmd /c " & chr(34) & execFile & Chr(34) & " -s -f1 " & Chr(34) & setupFile & Chr(34), 0, False

to this
WSHShell.Run "cmd /k " & chr(34) & execFile & Chr(34) & " -s -f1 " & Chr(34) & setupFile & Chr(34), 1, False

and then run it manually, what does the DOS prompt say? (don't leave it like this to run it automatically....the /k makes the DOS prompt stay open).

Regards,

Rob.

Rob,

Finally got it to work as a VBS script.  Problem was with concatination of strings.  Attached is the code.
execFile and setupFile are already strings, so shouldn't be wrapped in quotes.

'
' A script to install software in silent mode using a setup.iss file
'
'--------------------------------------------------------------------
Option Explicit
'
On Error Resume Next
Dim objNetwork, strDriveLetter, strRemotePath, boolPersistent
Dim objFSO, execFile, setupFile, WSHShell, strComm
'
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method.  Result Z: drive
'
strDriveLetter = "Z:" 
strRemotePath = "\\AARP\TWSRVR_Q"
boolPersistent = False
 
Set objNetwork = CreateObject("WScript.Network") 
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Disconnect the drive first in case it is incorrectly mapped
If objFSO.DriveExists(strDriveLetter) = True Then objNetwork.RemoveNetworkDrive strDriveLetter, True, False
WScript.Sleep 1000
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, boolPersistent
'
' Now we install the software
'
execFile = "Z:\APP1\Setup.exe"
setupFile = "Z:\APP1\setup.iss"
strComm = "cmd /k " & execFile & " -s -f1" & setupFile
' 
Set WshShell = CreateObject("WScript.Shell") 	
WSHShell.Run strComm

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32: