clearadm/packages.vbs

   1 sub display (msg)
   2   wscript.echo msg
   3 end sub
   4
   5 host = "."
   6
   7 set wmi      = GetObject     ("winmgmts:\\" & host & "\root\cimv2")
   8 set packages = wmi.ExecQuery ("Select * from Win32_Product",, 48)
   9
  10 for each package in packages
  11   display "Name:        " & package.Name
  12   display "Version:     " & package.Version
  13   display "Vendor:      " & package.Vendor
  14   display "Description: " & package.Description
  15   display "-------------------------------------------------------------------------------"
  16 next