Список установленного софта

Set objSet = GetObject("WinMgmts:").ExecQuery _ 
("Select * from WindowsInstaller_Products") 
For Each obj in objSet 
   WScript.Echo "name: " & obj.product 
Next