Puedes usar WMI
local loProducts, loProduct, loWMI
loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI = loLocator.ConnectServer()
loProducts = loWMI.ExecQuery("SELECT * FROM Win32_Product")
For Each loProduct in loProducts
with loProduct
if Isnull(.Name)
loop
endif
? .Name, .Caption, .Description, .IdentifyingNumber, .InstallDate, .InstallDate2, .InstallLocation, .SKUNumber, .Vendor, .Version
endwith
endfor
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
