Option Explicit
Public installer, prod, a, fso

Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("components.txt", True)

' Connect to Windows Installer object
Set installer = CreateObject("WindowsInstaller.Installer")
a.writeline ("Products")
For Each prod In installer.products
a.writeline (prod & " " & installer.productinfo (prod,"InstalledProductName") & " " & installer.productinfo (prod,"VersionString") )
Next