Software Deployment

I'm repackaging a legacy installation app that was installed a while ago in my environment with a wise installer. The wise uninstall for this was nasty, left a bunch of elements behind.

In my repackaged MSI, I have made a custom action vb script that checks for and removes the legacy installation if it is present. It is run under the Execute Immediate sequence right after InstallInitialize. The script is shown below, although it is not the focus of this problem because the script works when I run it manually, I put it here for reference only. Here's my problem:

When I invoke the script via custom action, (Call VBScript from Embedded Code, Synchronous, Always Execute), the CA runs, but does not actually remove the software, (line sho.run "UNWISE.EXE /S Clientview.LOG",,True), it appears to immediately step through. Again, when I simply run the script it works like a champ, Any ideas on what might be causing this? I really don't want to use a wrapper. Wscript is the default scripting host on all our machines.

Thanks all.


On Error Resume Next
Set sho = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objEnv = WshShell.Environment("Process")
strComputer = "."
'******* Abort Removal if legacy install not present
If Not keyExists("ClientView", "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", &H80000002) Then
msgbox "reg key not found, aborting legacy removal"
wscript.quit(0)
End If
msgbox "initiating legacy removal"
'******* Check for Clientview Processes, kill if running
ProcKill("ClientView.exe")
ProcKill("Client~1.exe")
ProcKill("qCapSvc.exe")
'******* Delete Clientview screen capture service
deleteservice "Qfiniti Screen Capture","TRUE"
'******* Check for Clientview, remove if installed
If keyExists("ClientView", "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", &H80000002) Then
sho.CurrentDirectory = "C:\Program Files\AutoQuality"
sho.run "UNWISE.EXE /S Clientview.LOG",,True
msgbox "NOW check for removal..."
End If
If fso.FolderExists("C:\Program Files\AutoQuality") Then
fso.DeleteFolder "C:\Program Files\AutoQuality",force
msgbox "Found and removed C:\Program Files\AutoQuality..."
END IF
If fso.FolderExists("C:\Documents and Settings\All Users\Start Menu\Programs\Etalk ClientView") Then
fso.DeleteFolder "C:\Documents and Settings\All Users\Start Menu\Programs\Etalk ClientView",force
msgbox "Found and removed C:\Documents and Settings\All Users\Start Menu\Programs\Etalk ClientView..."
END IF
'******** Functions Below Here
Function deleteservice(strSvcName,boolStopService)
strComputer = "."
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objService = objWMI.Get("Win32_Service.Name='" & strSvcName & "'")
if boolStopService = TRUE then
intRC = objService.StopService
WScript.Sleep 5000 ' Give the service 5 seconds to stop
end if
intRC = objService.Delete
End Function
Function ProcKill(strProcNam)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Debug)}!\\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name ='"+strProcNam+"'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function
Function keyExists(strKeyName, strKeyPath, regCategory)
retVal = false
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

oReg.EnumKey regCategory, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
If strKeyName = subkey Then
retVal = true
Exit For
End If
Next
keyExists = retVal
End Function