1 Тема от dandyd (изменено: dandyd, 2011-11-01 14:53:55)

  • dandyd
  • Участник
  • Неактивен

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

Добрый день

Как прочитать список виртуальных 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

2 Ответ от Mat Skywalker

  • Mat Skywalker
  • Участник
  • Неактивен

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

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

Автоматизирую торговлю. Не 1С