7 set wmi = GetObject ("winmgmts:\\" & host & "\root\cimv2")
8 set packages = wmi.ExecQuery ("Select * from Win32_Product",, 48)
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 "-------------------------------------------------------------------------------"