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
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
Hello Nino,

Have a look at http://www.vncscan.com/UltraVNC/remove_ultravnc.htm

There is a tutorial on removing manually installed UltraVNC on the network using the built in remote scripting features of VNCScan.
Answered 11/14/2005 by: sbostedor
Yellow Belt

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