Trying to uninstall 2 apps with 1x .vbs script...

[dbowe]

It is uninstalling one of the applications that i want to uninstall, but not the other.......its not to do with the uninstall string ( if i swap over the strings then it uninstalls the other app fine but again......its not doing both of the uninstalls ).
Can anyone spot what im misisng in my script?


Option Explicit
On Error Resume Next
Dim oShell, sUninstallStrin g
Set oShell = CreateObject("W Script.Shell")

Const UNINSTALLPATH = "HKEY_LOCAL_MAC HINE\SOFTWARE\M icrosoft\Window s\CurrentVersio n\Uninstall\"
Const PRODCODE = "InstallShield_ {8D3D93DA-B0C4-4C56-8FB9-67CB050EB15D}"
Const PRODCODE2 ="{6257E290-5E8E-11D4-9B8D-00D0B72459DD}"
Const PACKAGE = "Setup.exe"

Uninstall
Install

Set oShell = Nothing
WScript.Quit

'************** *************** *************** *************** *************** ***************
'Check for existance of Rits Client and if present uninstall it.
'************** *************** *************** *************** *************** ***************
Sub Uninstall()
On Error Resume Next
Err.Clear

sUninstallStrin g = oShell.RegRead (UNINSTALLPATH & PRODCODE & "\UninstallStri ng")
If err.number = 0 Then
oShell.Run "C:\Program Files\Common Files\InstallSh ield\Driver\8\I ntel 32\IDriver.exe" & """/M{8D3D93DA-B0C4-4C56-8FB9-67CB050EB15D}"" ", 0,True
End If
sUninstallStrin g = ""

sUninstallStrin g = oShell.RegRead (UNINSTALLPATH & PRODCODE2 & "\UninstallStri ng")
If err.number = 0 Then
oShell.Run "RunDll32 C:\PROGRA~1\COM MON~1\INSTAL~1\ engine\6\INTEL3 ~1\Ctor.dll,Lau nchSetup " & """C:\Progr am Files\InstallSh ield Installation Information\{62 57E290-5E8E-11D4-9B8D-00D0B72459DD}\S etup.exe""" & " UNINST /S /f1""C:\Packages \RitsClient\uni nst.iss""", 0,True
End If

End Sub