2010-07-16 20:49

/* Returns information about devices built into the motherboard installed in a computer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_OnBoardDevice")
DO objitem OVER colitems
	SAY "Description:" objitem~description
	SAY "Device Type:" objitem~devicetype
	SAY "Model:" objitem~model
	SAY "Name:" objitem~name
	SAY "Tag:" objitem~tag
	SAY "Version:" objitem~version
	SAY
END

2010-07-16 20:49