Retrieves information about all the Start menu program groups currently in use on a computer.
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_ProgramGroup") say "Caption:" objItem~Caption say "Description:" objItem~Description say "Group Name:" objItem~GroupName say "Name:" objItem~Name say "Setting ID:" objItem~SettingID say "UserName:" objItem~UserName end
strComputer = "." objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2") do objItem over objWMIService~ExecQuery("Select * from Win32_ProgramGroup") say "Caption:" objItem~Caption say "Description:" objItem~Description say "Group Name:" objItem~GroupName say "Name:" objItem~Name say "Setting ID:" objItem~SettingID say "UserName:" objItem~UserName end