Chapter 10: Using System Hardware Classes 199
ware development kit (SDK) includes tables that enable you to look up the meanings of these
various properties.
PortConnector.vbs
strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select * from win32_PortConnector"
strUsr =""'Blank for current security. Domain\Username
strPWD = ""'Blank for current security.
strLocl = "MS_409" 'U.S. English. Can leave blank for current language
strAuth = ""'if specify domain in strUsr, this must be blank
iFlag = "0" 'only two values allowed here: 0 (wait for connection), 128 (wait max two min)
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer, _
wmiNS,
strUsr, strPWD, strLocl, strAuth, ...