[Iska]

Например, так (не проверялось):

Код:

AutoItSetOption("MustDeclareVars", 1)

Local $aSoftwareNames[3]   = ["Java(TM) 7 Update 5", "Java(TM) 7 Update 6", "Java(TM) 7 Update 7"]
Local $sSoftwareName

Local $sComputer = "."

Local $oSWbemLocator    = ObjCreate("WbemScripting.SWbemLocator")
Local $oSWbemServicesEx = $oSWbemLocator.ConnectServer($sComputer, "root\cimv2")
Local $cSWbemObjectSet  = $oSWbemServicesEx.ExecQuery("SELECT * FROM Win32_Product")
Local $oSWbemObjectEx

For $oSWbemObjectEx In $cSWbemObjectSet
	For $sSoftwareName In $aSoftwareNames
		If $sSoftwareName = $oSWbemObjectEx.Name Then
			$oSWbemObjectEx.Uninstall()
		EndIf
	Next
Next

$oSWbemObjectEx   = 0
$cSWbemObjectSet  = 0
$oSWbemServicesEx = 0
$oSWbemLocator    = 0

Exit(0)