Re: VBS: список виртуальных USB Serial port

null@example.com (Mat Skywalker) — Tue, 01 Nov 2011 19:15:52 +0000

У меня, например множество СОМ портов создал блютуф адаптер при подключении. Как мне найти только тот USB Serial port в который воткнут Silicon Labs CP210x USB to UART Bridge?

VBS: список виртуальных USB Serial port

null@example.com (dandyd) — Mon, 31 Oct 2011 09:12:47 +0000

Добрый день

Как прочитать список виртуальных USB Serial port?

Таким образом они не обрабатываются:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort")

For Each objItem in colItems
    Wscript.Echo "Device ID: " & objItem.DeviceID
Next

Таким тоже не обрабатывается, хотя в http://www.codeproject.com/KB/dotnet/WM … _Demo.aspx пишут, что должно (An article to illustrate a useful tool for WMI (WMICodeCreator) & using WMI to find USB Serial / COM port adaptors).

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM MSSerial_PortName")

Вопрос решен

HKLM = &H80000002
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "HARDWARE\DEVICEMAP\SERIALCOMM"
oReg.EnumValues HKLM, strKeyPath, arrValueNames, arrValueTypes
For i=LBound(arrValueNames) To UBound(arrValueNames)
  oReg.GetStringValue HKLM, strKeyPath, arrValueNames(i), strValue
  MsgBox strValue
next

Серый форум — VBS: список виртуальных USB Serial port

Re: VBS: список виртуальных USB Serial port

VBS: список виртуальных USB Serial port