Dezinstalare Aplicatie Windows

objWMI = GetObject("winmgmts:\\")
cCadWMI = "Select * from Win32_Product Where Name = 'Nume Aplicatie'"
oColS = objWMI.ExecQuery(cCadWMI)

For Each oSoft in oColS
oSoft.Uninstall()
Next