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.
Mauricio Henao Romero
Analista de Proyectos Informaticos Editoriales
EL COLOMBIANO