2010-07-16 20:49

/* Displays information on the computer's processor(s) */
strcomputer = "."
objwmiservice = getobject("winmgmts:\\" || strcomputer || "\root\CIMV2")
colcses = objwmiservice~execquery("SELECT * FROM Win32_ComputerSystem")
DO objcs OVER colcses
	SAY "Computer Name:" objcs~name
	SAY "System Type:" objcs~systemtype
	SAY "Number Of Processors:" objcs~numberofprocessors
END
colprocessors = objwmiservice~execquery("Select * from Win32_Processor")
DO objprocessor OVER colprocessors
	SAY "Manufacturer:" objprocessor~manufacturer
	SAY "Name:" objprocessor~name
	SAY "Description:" objprocessor~description
	SAY "Processor ID:" objprocessor~processorid
	SAY "Address Width:" objprocessor~addresswidth
	SAY "Data Width:" objprocessor~datawidth
	SAY "Family:" objprocessor~family
	SAY "Maximum Clock Speed:" objprocessor~maxclockspeed
END

2010-07-16 20:49