2010-07-16 20:49

/* Retrieves information about all the Start menu program groups */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_ProgramGroup")
DO objitem OVER colitems
	SAY "Description:" objitem~description
	SAY "Group Name:" objitem~groupname
	SAY "Name:" objitem~name
	SAY "User Name:" objitem~username
	SAY
END

2010-07-16 20:49