I compiled a small script that works very well no matter the version:

On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set WshShell = CreateObject("wscript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
   strDisplayName = WshShell.RegRead ("HKLM\" & strKeyPath & "\" & subkey & "\DisplayName")
   If  strDisplayName = "Apple Mobile Device Support" Then
    WshShell.Run "msiexec.exe /norestart /X " & SubKey & " /qb", 7, True
   ElseIf  strDisplayName = "Bonjour" Then
    WshShell.Run "msiexec.exe /norestart /X " & SubKey & " /qb", 7, True
   ElseIf  strDisplayName = "iTunes" Then
    WshShell.Run "msiexec.exe /norestart /X " & SubKey & " /qb", 7, True
   ElseIf  strDisplayName = "Apple Application Support" Then
    WshShell.Run "msiexec.exe /norestart /X " & SubKey & " /qb", 7, True
   End If
Next  

Silent Un-install

MsiExec.exe /qn /X{0225AD21-F3E2-4916-BFF3-65D3F9052582}