Scripting

Hi this is my first ....

I'm about to deploy the new version of ultravnc using a great bit of software called VNCSCAN http://www.vncscan.com/. However we have over 3000 PCs with UltraVNC installed via the setup.exe, this was put on the orginal imaged and ghosted out to all the machines.

When I've tested installing UltraVNC 1.0.1 RC205 it installs itself as 2nd version, so in add\remove theres 2. I know you can run a upgrade on the currently install VNC but again this leaves 2 version in the add\remove programs.

I wanted to totally remove the old version and install them by VNCSCAN. We have a couple of machines out there with the WinVNC and tightVNC. I wanted to create a script to rip all the verisons off.

I've been looking around to see what options I have and tried the following VBS

1st way Script runs with no errors but no joy

Set oShell = CreateObject("WScript.Shell")
ASEEXEARGS = oShell.ExpandEnvironmentStrings("%ASEEXEARGS%")
WINDIR = oShell.ExpandEnvironmentStrings("%WINDIR%")
COMSPEC = oShell.ExpandEnvironmentStrings("%COMSPEC%")
' Uninstall UltraVnc
oShell.Run COMSPEC & " /c MsiExec.exe /X{A8AD990E-355A-4413-8647-A9B168978423}_is1 /qn", 7, True

2nd way Script runs with no errors but no joy

' Uninstall UltraVNC
WshShell.Run "msiexec /x {448C30CF-1082-43F7-A266-DF89B81B260E} /q",1,true

3rd way Script runs with no errors but no joy

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where Name = 'UltraVNC'") 'I've tried a number of things here.

For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next
msgbox"Its worked!"


To see what the Win32_Product Name was I used the script below.

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
strComputer & _
"\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
("SELECT * FROM Win32_Product")

If colSoftware.Count > 0 Then

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile( _
"c:\SoftwareList.txt", True)

For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.Caption & vbtab & _
objSoftware.Version & vbtab & _
objsoftware.Name
Next

objTextFile.Close

Else
WScript.Echo "Cannot retrieve software from this computer."

End If

However this only displays a cut down list of the applications listed in add\remove programs.

Does anyone know how to sliently uninstall a program from Add\Remove Programs?
Thanks,
Nino