2010-07-16 20:49

strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_SerialPortConfiguration")
DO objitem OVER colitems
	SAY "Abort Read Write On Error:" objitem~abortreadwriteonerror
	SAY "Baud Rate:" objitem~baudrate
	SAY "Binary Mode Enabled:" objitem~binarymodeenabled
	SAY "Bits Per Byte:" objitem~bitsperbyte
	SAY "Continue XMit On XOff:" objitem~continuexmitonxoff
	SAY "CTS Outflow Control:" objitem~ctsoutflowcontrol
	SAY "Discard NULL Bytes:" objitem~discardnullbytes
	SAY "DSR Outflow Control:" objitem~dsroutflowcontrol
	SAY "DSR Sensitivity:" objitem~dsrsensitivity
	SAY "DTR Flow Control Type:" objitem~dtrflowcontroltype
	SAY "EOF Character:" objitem~eofcharacter
	SAY "Error Replace Character:" objitem~errorreplacecharacter
	SAY "Error Replacement Enabled:" objitem~errorreplacementenabled
	SAY "Event Character:" objitem~eventcharacter
	SAY "Is Busy:" objitem~isbusy
	SAY "Name:" objitem~name
	SAY "Parity:" objitem~parity
	SAY "Parity Check Enabled:" objitem~paritycheckenabled
	SAY "RTS Flow Control Type:" objitem~rtsflowcontroltype
	SAY "Setting ID:" objitem~settingid
	SAY "Stop Bits:" objitem~stopbits
	SAY "XOff Character:" objitem~xoffcharacter
	SAY "XOff XMit Threshold:" objitem~xoffxmitthreshold
	SAY "XOn Character:" objitem~xoncharacter
	SAY "XOn XMit Threshold:" objitem~xonxmitthreshold
	SAY "XOn XOff InFlow Control:" objitem~xonxoffinflowcontrol
	SAY "XOn XOff OutFlow Control:" objitem~xonxoffoutflowcontrol
	SAY
END

2010-07-16 20:49