john pfeiffer
  • Home
  • Categories
  • Tags
  • Archives

DumpInstalledComponentList.vbs

' produceS a text file of each installer & the product that's using it, Guids and all.

Option Explicit
Public installer, fullmsg, comp, a, prod, fso, pname, ploc, pid, psorce

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

' Connect to Windows Installer object
Set installer = CreateObject("WindowsInstaller.Installer")
a.writeline ("Components")
on error resume next
For Each comp In installer.components
   a.writeline (comp & " is used by:")
   for each prod in Installer.ComponentClients (comp)
      pid = installer.componentpath (prod, comp)
      pname = installer.productinfo (prod, "InstalledProductName")
      a.Writeline ("     " & pname & " " & prod & " at " & pid)
   Next
Next
MsgBox("DumpComponentsList - Done.")

  • « swing awt simple gui button framelistener closing window adapter
  • Squid proxy squid3 blacklist »

Published

Aug 25, 2011

Category

bat-vbs-perl

~82 words

Tags

  • bat-vbs-perl 51
  • dumpinstalledcomponentlist.vbs 1