Uninstalling All versions of Java from Windows Silent

Question

Hi Everyone,
If there is something somewhere on Sun sites that does this already I appologize, but I have to get all previous version of Java from Sun uninstalled from over 700 hundred PCs and so I have created a set of scripts to uninstall all previous versions.
You would copy 'java-uninstall.bat' and 'java-uninstaller.vbs' to c:\temp (make sure you have one) the script can be modified for another location of your choosing. Then you can execite the batch file or have it scheduled to do that with the NT 'AT' command. It will uninstall anything that shows up in Add/Remove programs with 'Java' in the displayname and 'Sun' as the publisher. This would including removal of SDK amd JRE versions, so keep that in mind.
This could probably be used in the login script, but thats not how I deploy updates, it may be fashioned to work with SMS, I don't know. I have a script that goes through network copying files to c$ shares and scheduling it for later in the night.
Also note this just uninstalls the older versions I have another script that does the reinstalling of the newer version.
Files below:
[java-uninstall.bat]
REM <start>
@echo off
if not exist c:\temp\. mkdir c:\temp
REM Export the Uninstall registry keys
start /wait "" REGEDIT /E c:\temp\registry.tmp HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\windows\currentversion\uninstall
REM Filter only the {} keys that Java might be in
type c:\temp\registry.tmp | find /i "\{" | find /i "}]" > c:\temp\uninstall.tmp
REM Run the Vbscript that uses this file to find Java Sun entries to uninstall
cscript c:\temp\java-uninstaller.vbs
REM <end>
[java-uninstaller.vbs]
'<start>
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
'Open the exported registry file
Set MyFile = fso.OpenTextFile("c:\temp\uninstall.tmp", ForReading)
Do While mYFile.AtEndOfStream <> True
     ReadLineTextFile = MyFile.ReadLine
     Uninstall = ReadLineTextFile
     CLSID = Mid(Uninstall, 73, 38)
     On Error Resume Next
     'DisplayName
     DisplayName=WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+CLSID+"\DisplayName")
     'Publisher
     Publisher=WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+CLSID+"\Publisher")
     'Search for presence of Java and Sun in DisplayName and Publisher
     search1 = Instr(1, DisplayName, "Java", 1)
     search2 = Instr(1, Publisher, "Sun", 1)
     'Execute removal if there is a match
     Uninstaller="MsiExec.exe /X"&CLSID+" /QN"
     if search1>0 And search2>0 Then Return = WshShell.Run(Uninstaller , 1, TRUE)
Loop
'<end>

Answer 1

Here is a batch file that I wrote to accomplish the same objective of uninstalling all versions of Java Virtual Machine JVM from a XP/Vista box:
You can name it anything you like, such as cleanjava.bat:
@echo off & cls
Rem List all Installation subkeys from uninstall key.
echo Searching Registry for Java Installs
for /f %%I in ('reg query HKLM\SOFTWARE\microsoft\windows\currentversion\uninstall') do echo %%I | find "{" > nul && call :All-Installations %%I
echo Search Complete..
goto :EOF
:All-Installations
Rem Filter out all but the Sun Installations
for /f "tokens=2*" %%T in ('reg query %1 /v Publisher 2^> nul') do echo %%U | find "Sun" > nul && call :Sun-Installations %1
goto :EOF
:Sun-Installations
Rem Filter out all but the Sun-Java Installations. Note the tilda + n, which drops all the subkeys from the path
for /f "tokens=2*" %%T in ('reg query %1 /v DisplayName 2^> nul') do echo  . Uninstalling - %%U: | find "Java" && call :Sun-Java-Installs %~n1
goto :EOF
:Sun-Java-Installs
Rem Run Uninstaller for the installation
MsiExec.exe /x%1 /qb
echo  . Uninstall Complete, Resuming Search..
goto :EOFAdditional Info: http://tinyurl.com/29cdah
Hope this helps.