Как получить список COM-портов

[norkotik]

Подскажите, как с помощью Autoit получить список com-портов в системе?
если есть возможность то узнать занят он или нет.

 

[VladUs]

norkotik [?]

как с помощью Autoit получить список com-портов в системе?

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( _
    "SELECT * FROM Win32_SerialPort") 
For  $objItem in $colItems 
    ConsoleWrite ("Caption: " & $objItem.Caption & @CRLF)
    ConsoleWrite ("DeviceID: " & $objItem.DeviceID & @CRLF)
    ConsoleWrite ("Status: " & $objItem.Status & @CRLF)
    ConsoleWrite ("PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF)
    ConsoleWrite ("=====================================" & @CRLF)
Next

 

[norkotik]

Спасибо, буду разбираться. С моим уровнем знаний мне не все части пока кода понятны.
скрипт выводит только сом-порт №1, хотя их в системе больше.

 

[norkotik]

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
что делает эта строка?
не могу понять что за путь "\root\CIMV2"

 

[pos]

Сегодня решал эту задачу. И опять же нашел решение через реестр.
Перечень COM-портов тут:
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM
Жаль в стандартных функциях AUTOIT убого реализована работа с реестром. Приходится делать экспорт утилитой reg.exe и далее уже работать с полученным текстом.