'Uninstall MSJVM
'For uninstalling the Microsoft Java Virtual Machine which has been known to present 
'security problems.
'UninstallMSJVM.vbs
'© Robert Dunham - 1/19/2006
'Downloaded from http://www.nilpo.com
On Error Resume Next

message = "This script provided by Nilpo.com" + vbcr + vbcr
message = message + "This script envokes Internet Explorer's uninstaller for the Microsoft" + vbcr
message = message + "Java Virtual Machine.  You will need to install another Java runtime" + vbcr
message = message + "in order for your internet browser to work.  You can try Sun" + vbcr
message = message + "Microsystem's Java Runtime Environment available at:" + vbcr + vbcr
message = message + "                        http://www.java.com/getJava" + vbcr + vbcr
message = message + "You should download this BEFORE uninstalling the MSJVM!"

result = msgBox(message, _
	VBOKCancel + vbInformation + vbDefaultButton1 + vbSystemModal, _
	"MSJVM Uninstall Launcher")

If result = vbCancel Then
    WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
cmdLine = "RunDll32.exe advpack.dll,LaunchINFSection java.inf,UnInstall"
WshShell.Run cmdLine, 0, FALSE

Set WshShell = Nothing
Wscript.Quit