Need help with script quotation mark locations??
'On Error Resume NExt
Dim objShell, objNewPort, objWMIService, oFSO, Path, strComputerA
Dim RunErrorToReturn, Results
Dim strComputer : strComputer = "."
Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
strComputerA = objNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
ProgramFiles = objShell.ExpandEnvironmentStrings("%ProgramFiles%")
windir= objShell.ExpandEnvironmentStrings("%windir%")
temp = objShell.ExpandEnvironmentStrings("%temp%")
allusers=objShell.ExpandEnvironmentStrings("%AllUsersProfile%")
path= oFSO.GetParentFolderName(WScript.ScriptFullName)
objShell.Run path+"RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup "C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe" -l0x9 -s -f1"c:\apps21\vpn403i\setupun.iss" VpnUninstall ",1,TRUE
Dim objShell, objNewPort, objWMIService, oFSO, Path, strComputerA
Dim RunErrorToReturn, Results
Dim strComputer : strComputer = "."
Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
strComputerA = objNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
ProgramFiles = objShell.ExpandEnvironmentStrings("%ProgramFiles%")
windir= objShell.ExpandEnvironmentStrings("%windir%")
temp = objShell.ExpandEnvironmentStrings("%temp%")
allusers=objShell.ExpandEnvironmentStrings("%AllUsersProfile%")
path= oFSO.GetParentFolderName(WScript.ScriptFullName)
objShell.Run path+"RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup "C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe" -l0x9 -s -f1"c:\apps21\vpn403i\setupun.iss" VpnUninstall ",1,TRUE
0 Comments
[ + ] Show comments
Answers (7)
Please log in to answer
Posted by:
AngelD
15 years ago
objShell.Run path & "\RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup ""C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe"" -l0x9 -s -f1""c:\apps21\vpn403i\setupun.iss"" VpnUninstall",1,TRUE
Posted by:
case2k5
15 years ago
Thank you for the response AngelD. This batch command line works:
RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup "C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe" -l0x9 -s -f1"c:\apps21\vpn403i\setupun.iss" VpnUninstall
The corrected VB script line that you posted didn't work. I get an error on that line.
Can you please look at it again?
Thank you very much...
RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup "C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe" -l0x9 -s -f1"c:\apps21\vpn403i\setupun.iss" VpnUninstall
The corrected VB script line that you posted didn't work. I get an error on that line.
Can you please look at it again?
Thank you very much...
Posted by:
AngelD
15 years ago
This should work:
objShell.Run "RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup ""C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe"" -l0x9 -s -f1""c:\apps21\vpn403i\setupun.iss"" VpnUninstall",1,TRUE
Posted by:
anonymous_9363
15 years ago
Quote marks are a pain when they have to be included as part of quoted text. They also make code harder to read and follow. I use 'Chr(34)' instead.
Posted by:
case2k5
15 years ago
Can you give me an example of 'Chr(34)' with this uninstall cmdline?
thx
thx
Posted by:
AngelD
15 years ago
objShell.Run "RunDll32.exe C:\PROGRA~1\COMMON~1\INSTAL~1\engine\6\INTEL3~1\Ctor.dll,LaunchSetup " & Chr(34) & "C:\Program Files\InstallShield Installation Information\{5624C000-B109-11D4-9DB4-00E0290FCAC5}\Setup.exe" & Chr(34) & " -l0x9 -s -f1" & Chr(34) & "c:\apps21\vpn403i\setupun.iss" & Chr(34) & " VpnUninstall",1,TRUE
Rating comments in this legacy AppDeploy message board thread won't reorder them,so that the conversation will remain readable.