Returns the name and product code of binary information (such as bitmaps, icons, executable files, and so on) used by a Windows Installer application.
This script was tested using Object REXX 2.1.0 for Microsoft Windows, available from IBM.
strComputer = "."
objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2")
do objItem over objWMIService~ExecQuery("Select * from Win32_Binary")
say "Caption:" objItem~Caption
say "Data:" objItem~Data
say "Description:" objItem~Description
say "Name:" objItem~Name
say "Product Code:" objItem~ProductCode
say "Setting ID:" objItem~SettingID
end
strComputer = "."
objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2")
do objItem over objWMIService~ExecQuery("Select * from Win32_Binary")
say "Caption:" objItem~Caption
say "Data:" objItem~Data
say "Description:" objItem~Description
say "Name:" objItem~Name
say "Product Code:" objItem~ProductCode
say "Setting ID:" objItem~SettingID
end