Hola a todos.

Alguien sabe la manera de obtener los programas instalados en el PC ?
algo asi como AGREGAR O QUITAR PROGRAMAS de Windows.


Lo que tengo es:


Local oWInst
oWInst = Createobject("WindowsInstaller.Installer")

oProducts = oWInst.Products
For Each Product In oProducts
strName = oWInst.ProductInfo (Product, "ProductName")
strMinVer = oWInst.ProductInfo (Product, "VersionMinor")
strMaxVer = oWInst.ProductInfo (Product, "VersionMajor")
strVer = oWInst.ProductInfo (Product, "VersionString")
? strName + strMinVer + strMaxVer + strVer
Next



Pero esto solo me muestralas aplicaciones instaladas con Windows Instaler y no me sirve mucho.


Gracias.