2010-07-16 20:49

/* Returns information about the keyboard connected to a computer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_Keyboard")
DO objitem OVER colitems
	SAY "Caption:" objitem~caption
	SAY "Description:" objitem~description
	SAY "Device ID:" objitem~deviceid
	SAY "Is Locked:" objitem~islocked
	SAY "Layout:" objitem~layout
	SAY "Name:" objitem~name
	SAY "Number of Function Keys:" objitem~numberoffunctionkeys
	SAY "Password:" objitem~password
	SAY "PNP Device ID:" objitem~pnpdeviceid
	SAY
END

2010-07-16 20:49