'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
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0

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
Answered 11/20/2008 by: AngelD
Red Belt

Please log in to comment
0
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...
Answered 11/20/2008 by: case2k5
Orange Belt

Please log in to comment
0
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
Answered 11/20/2008 by: AngelD
Red Belt

Please log in to comment
0
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.
Answered 11/21/2008 by: VBScab
Red Belt

Please log in to comment
0
Can you give me an example of 'Chr(34)' with this uninstall cmdline?

thx
Answered 11/21/2008 by: case2k5
Orange Belt

Please log in to comment
0

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
Answered 11/21/2008 by: AngelD
Red Belt

Please log in to comment
0
thx for all your help AngelD and VBScab
Answered 11/21/2008 by: case2k5
Orange Belt

Please log in to comment
Answer this question or Comment on this question for clarity