2010-07-16 20:49

strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_PortConnector")
DO objitem OVER colitems
	SAY "Connector Pinout:" objitem~connectorpinout
	type. = objitem~connectortype
	DO i OVER type.
		SAY "Connector Type:" VALUE("TYPE."||i)
	END
	SAY "Description:" objitem~description
	SAY "External Reference Designator:" objitem~externalreferencedesignator
	SAY "Internal Reference Designator:" objitem~internalreferencedesignator
	SAY "Name:" objitem~name
	SAY "Port Type:" objitem~porttype
	SAY "Serial Number:" objitem~serialnumber
	SAY "Tag:" objitem~tag
	SAY "Version:" objitem~version
	SAY
END

2010-07-16 20:49