2010-07-16 20:49

/* Displays computer manufacturer and model information */
strcomputer = "."
objwmiservice = getobject("winmgmts:\\" || strcomputer || "\root\CIMV2")
colitems = objwmiservice~execquery("SELECT * FROM Win32_ComputerSystem")
DO objitem OVER colitems
	SAY "Name:" objitem~name
	SAY "Manufacturer:" objitem~manufacturer
	SAY "Model:" objitem~model
END

2010-07-16 20:49