2010-07-16 20:49

/* Lists serial ports */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_SerialPort")
DO objitem OVER colitems
	SAY "Binary:" objitem~binary
	SAY "Description:" objitem~description
	SAY "Device ID:" objitem~deviceid
	SAY "Maximum Baud Rate:" objitem~maxbaudrate
	SAY "Maximum Input Buffer Size:" objitem~maximuminputbuffersize
	SAY "Maximum Output Buffer Size:" objitem~maximumoutputbuffersize
	SAY "Name:" objitem~name
	SAY "OS Auto Discovered:" objitem~osautodiscovered
	SAY "PNP Device ID:" objitem~pnpdeviceid
	SAY "Provider Type:" objitem~providertype
	SAY "Settable Baud Rate:" objitem~settablebaudrate
	SAY "Settable Data Bits:" objitem~settabledatabits
	SAY "Settable Flow Control:" objitem~settableflowcontrol
	SAY "Settable Parity:" objitem~settableparity
	SAY "Settable Parity Check:" objitem~settableparitycheck
	SAY "Settable RLSD:" objitem~settablerlsd
	SAY "Settable Stop Bits:" objitem~settablestopbits
	SAY "Supports 16-Bit Mode:" objitem~supports16bitmode
	SAY "Supports DTRDSR:" objitem~supportsdtrdsr
	SAY "Supports Elapsed Timeouts:" objitem~supportselapsedtimeouts
	SAY "Supports Int Timeouts:" objitem~supportsinttimeouts
	SAY "Supports Parity Check:" objitem~supportsparitycheck
	SAY "Supports RLSD:" objitem~supportsrlsd
	SAY "Supports RTSCTS:" objitem~supportsrtscts
	SAY "Supports Special Characters:" objitem~supportsspecialcharacters
	SAY "Supports XOn XOff:" objitem~supportsxonxoff
	SAY "Supports XOn XOff Setting:" objitem~supportsxonxoffset
	SAY
END

2010-07-16 20:49