2010-07-16 20:49

/* Retrieves information about all the sound cards installed in a computer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_SoundDevice")
DO objitem OVER colitems
	SAY "Description:" objitem~description
	SAY "Device ID:" objitem~deviceid
	SAY "DMA Buffer Size:" objitem~dmabuffersize
	SAY "Manufacturer:" objitem~manufacturer
	SAY "MPU 401 Address:" objitem~mpu401address
	SAY "Name:" objitem~name
	SAY "PNP Device ID:" objitem~pnpdeviceid
	SAY "Product Name:" objitem~productname
	SAY "Status Information:" objitem~statusinfo
	SAY
END

2010-07-16 20:49