Как узнать устройства занимающие com порты

23.04.2014, 19:16. Показов 1002. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Добрый всем день или вечер. Не могу найти решение своего вопроса. Мне нужно узнать программно какие устройства и нак каких номерах портов висят.
Когда делаю так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim oWMI As Object, cItems As Object, oItem As Object
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    'Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
    Set cItems = oWMI.ExecQuery("Select * From Win32_POTSModem")
    
    For Each oItem In cItems
       Text1.Text = oItem.AttachedTo & ": " & vbCrLf & vbCrLf  'наименование устройства
 
        Text1.Text = Text1.Text & "Наименование устройства: " & oItem.Caption & vbCrLf & vbCrLf 'наименование устройства
        Text1.Text = Text1.Text & "Описание устройства: " & oItem.Description & vbCrLf & vbCrLf 'описание устройства
        Text1.Text = Text1.Text & "Идентификатор устройства: " & oItem.DeviceID & vbCrLf & vbCrLf 'идентификатор устройства
        Text1.Text = Text1.Text & "Идентификатор устройства Plug-and-Play: " & oItem.PNPDeviceID & vbCrLf & vbCrLf 'идентификатор устройства Plug-and-Play
        Text1.Text = Text1.Text & "Имя компьютера: " & oItem.SystemName & vbCrLf & vbCrLf 'имя компьютера
    Next
    'str = str & oItem.DeviceID & ": " & oItem.Caption & ":" & oItem.PNPDeviceID
    Set cItems = Nothing
    Set oWMI = Nothing

то получаю только
COM4: HUAWEI Mobile Connect - 3G Modem
А главное мне нужно поределить номер порта и имя устройства двух другихз портов которые занимает тот же USB модем. Каким способом можно это сделать?
Вопрос задаю не для критики в свой адрес а для конструктивной помощи. Ссылок много пересмотрел, так как ищу решение уже в течении пары месяцев. И поиском пользоваться тоже умею.

Миниатюры

Как узнать устройства занимающие com порты

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

23.04.2014, 19:16

Ответы с готовыми решениями:

Узнать процессы, занимающие файл
Здравствуйте! В целях корректной работы моей программы со своими файлами нельзя допускать оплошностей: Если программе нужно...

Как узнать подключенные COM порты, их названия и количество
вообщем хочу написать программу, которая будет автоматически находить нужный COM порт по названию устройства и подключаться к нему. нужно...

Как узнать открытые порты на чужом компьютере ?
Как узнать открытые порты на чужом компьютере ?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

23.04.2014, 19:16

Помогаю со студенческими работами здесь

Как узнать про порты (разъемы) на моем компьютере?
Добрый вечер! В универе задали задание, узнать про порты на своем компьютере через командную строку, некие интернет-сервисы и...

Как узнать ID устройства
Как можно узнать ID Wi-Fi карточки? "About this mac" не предлагать - она не определяется в системе.

Как узнать ip устройства с USB-свистком
Добрый день. Подключил USB-свисток к Raspberry pi по мануалу https://blog-agents.rhcloud.com/wifi-pi-point/ . Раньше к pi я подключался...

USB-порты не распознают устройства
Здравствуйте! Поготите разобраться. Поставил Windows XP с нуля а USB-порты не распознают устройства. В чем проблема? Если вставить пишет...

как узнать Vendor и Product, USB устройства?
Всем привет! Народ как узнать Vendor и Product, USB устройства во Freebsd? заранее спасибо.

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Наверх