2010-07-16 20:49

/* Lists all the pointing devices (including mice and trackballs) installed on a computer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_PointingDevice")
DO objitem OVER colitems
	SAY "Description:" objitem~description
	SAY "Device ID:" objitem~deviceid
	SAY "Device Interface:" objitem~deviceinterface
	SAY "Double Speed Threshold:" objitem~doublespeedthreshold
	SAY "Handedness:" objitem~handedness
	SAY "Hardware Type:" objitem~hardwaretype
	SAY "INF File Name:" objitem~inffilename
	SAY "INF Section:" objitem~infsection
	SAY "Manufacturer:" objitem~manufacturer
	SAY "Name:" objitem~name
	SAY "Number Of Buttons:" objitem~numberofbuttons
	SAY "PNP Device ID:" objitem~pnpdeviceid
	SAY "Pointing Type:" objitem~pointingtype
	SAY "Quad Speed Threshold:" objitem~quadspeedthreshold
	SAY "Resolution:" objitem~resolution
	SAY "Sample Rate:" objitem~samplerate
	SAY "Synch:" objitem~synch
	SAY
END

2010-07-16 20:49