Dim $file, $u, $array
Global $array
Global $keys
$PCNAME = @WKSTA
$Jcurrent = Exist("%PROGRAMFILES%\Java\jre1.5.0_06\bin\java.exe")
	IF $Jcurrent <> 1
		SHELL '\\servershare\jre-1_5_0_06-windows-i586-p.exe /S /v"/qn /Lev %WINDIR%\System32\WCM\SMS\J2SE_15_upd6.log"'
			IF @ERROR <> 0
				$err = @ERROR
				$serr = @SERROR
				OPEN (1, "\\servershare\Java_15upd6_Fail.log", 5)     ;write log if uninstall fails!
				WRITELINE (1, @DATE + " " + @TIME + " Java 2 SE 1.5 upd 6 failed to install on " + @WKSTA + " " + $err + " " + $serr + @CRLF)
				CLOSE(1)
			ELSE
				OPEN (1, "\\servershare\Java_15upd6_Success.log", 5)     ;write log if uninstall succeeds!
				WRITELINE (1, @DATE + " " + @TIME + " Java 2 SE 1.5 upd 6 installed on " + @WKSTA + @CRLF)
				CLOSE(1)
			ENDIF
	ELSE
		OPEN (1, "\\servershare\Java_15upd6_Previous.log", 5)     ;write log if uninstall succeeds!
		WRITELINE (1, @DATE + " " + @TIME + " Java 2 SE 1.5 upd 6 already installed on " + @WKSTA + @CRLF)
		CLOSE(1)
	ENDIF
$key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall"  ;enumerate all of the programs shown in Add/Remove!
$keys = fEnumKey($PCNAME, $key)
$file = ReadFile("\\servershare\data.txt")  ;read all the lines in the file into an array!
	For Each $f in $file	 ;for each line in the file
		$array = SPLIT($f, ";")	  ;split each line wherever the semi-colon is located
			$u = UBOUND($array)    ;find my upper boundary for each line in the file!  0 will equal everything to the left of the semi-colon and 1 will equal everything to the right!
				For Each $k in $keys
					$display = readvalue($key + "\" + $k,"DisplayName")  ;Read the DisplayName value for each uninstall key!
						IF $display = $array[0] and $display <> ""  ;Do the Add/Remove display name and the name in the file match, and is displayname value not blank?
						$run = "%COMSPEC% /c " + $array[1]
							SHELL $run
								IF @ERROR <> 0
									$err = @ERROR
									$serr = @SERROR
									OPEN (1, "\\servershare\Java_Unins_Fail.log", 5)     ;write log if uninstall fails!
									WRITELINE (1, @DATE + " " + @TIME + " " + $array[0] + " failed to uninstall on " + @WKSTA + " " + $err + " " + $serr + @CRLF)
									CLOSE(1)
								ELSE
									OPEN (1, "\\servershare\Java_Unins_Success.log", 5)     ;write log if uninstall succeeds!
									WRITELINE (1, @DATE + " " + @TIME + " " + $array[0] + " uninstalled on " + @WKSTA + @CRLF)
									CLOSE(1)
								ENDIF
						ENDIF
				Next			           		
	Next

Function ReadFile($file)
	Dim $lf, $f, $_, $t
	$lf=chr(10)
	$f=freefilehandle
	$_=open($f,$file)
		if @error   exit @error   endif
		do $t=$t+$lf+readline($f) until @error
		$_=close($f)
	$ReadFile=split(substr($t,2),$lf)
EndFunction

Function fEnumKey($PCNAME, $Key)
   Dim $Index, $Error, $x
   $Index = 0
   Dim $KeyName[$Index]
   If $PCNAME <> ""
      $Key = "\\" + $PCNAME + "\" + $Key
   Endif

   If KeyExist($Key)
      Do
         $x = ENUMKEY($Key, $Index)
         $Error = @Error
         If NOT $Error and $Index > Ubound($KeyName)
            ReDim PRESERVE $KeyName[$Index]
         Endif
         If NOT $Error
            $KeyName[$Index] = $x
            $Index = $Index + 1
         Endif
      Until $Error
   Else
      $KeyName[0] = ""
      Exit 2
   Endif
   $fEnumKey = $KeyName
   Exit 0
Endfunction

:end
SHELL "%COMSPEC% /C cscript.exe \\servershare\sms-hinv.vbs"
exit