For Each $objItem In GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("Select Vendor, Version, Name, LocalPackage from Win32_Product",,48)
	If InSTR($objItem.Vendor, "symantec")
		Shell "%comspec% /c msiexec /uninstall " + $objItem.LocalPackage + " /qn REMOVE=ALL RebootYesNo=No Reboot=ReallySuppress"
	EndIf
Next

Break ON
$=SetOption("Explicit","ON")

Dim $oWMI,$oResults,$objItem

$oWMI=GetObject("winmgmts:\\.\root\CIMV2")
If @ERROR "Cannot attache to CIMV2, reason: ["+@ERROR+"] "+@SERROR+@CRLF Exit 1 EndIf
$oResults=$oWMI.ExecQuery("Select Vendor, Version, Name from Win32_Product",,48)
If @ERROR "Cannot query packages, reason: ["+@ERROR+"] "+@SERROR+@CRLF Exit 1 EndIf
For Each $objItem In $oResults
	"Found package " $objItem.Name+"|"+$objItem.Vendor+"|"+$objItem.Version+@CRLF
	If InSTR($objItem.Vendor, "symantec")
		"   Uninstalling package here..."+@CRLF
	EndIf
Next