ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как через WMI получить список портов?
8 сообщений из 8, страница 1 из 1
Как через WMI получить список портов?
    #38262561
donpauls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
donpauls
Гость
Т.е. требуется программно получить список портов, которые можно увидеть в диспетчере устройств в разделе "Порты".

Есть тема http://www.sql.ru/forum/901294/uznat-o-dostupnyh-dlya-zvonka-modemah
Здесь можно получить список модемов. Для этого используется строка запроса: "Select * from Win32_POTSModem"

Может кто знает, через какой запрос найти порты? (Требуется для определения портов UI и AI от модемов Huawei)
...
Рейтинг: 0 / 0
17.05.2013, 18:35
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38262790
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
donpauls,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Command2_Click()
Dim oWMI As Object, cItems As Object, oItem As Object
Dim str As String
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set cItems = oWMI.ExecQuery("Select * from Win32_SerialPort")
    str = ""
    For Each oItem In cItems
        str = str & oItem.DeviceID & ": " & oItem.Caption & ":" & oItem.PNPDeviceID & vbCrLf
    Next
    Set cItems = Nothing
    Set oWMI = Nothing
    MsgBox str, vbInformation, "COM-ports:"
End Sub
...
Рейтинг: 0 / 0
17.05.2013, 21:51
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38264079
donpauls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
donpauls
Гость
Дмитрий77donpauls,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Command2_Click()
Dim oWMI As Object, cItems As Object, oItem As Object
Dim str As String
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set cItems = oWMI.ExecQuery("Select * from Win32_SerialPort")
    str = ""
    For Each oItem In cItems
        str = str & oItem.DeviceID & ": " & oItem.Caption & ":" & oItem.PNPDeviceID & vbCrLf
    Next
    Set cItems = Nothing
    Set oWMI = Nothing
    MsgBox str, vbInformation, "COM-ports:"
End Sub



Что-то у меня ничего не находит.. Может ли это быть из за того, что система 64битная?
...
Рейтинг: 0 / 0
20.05.2013, 10:09
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38264451
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
donpaulsЧто-то у меня ничего не находит.. Может ли это быть из за того, что система 64битная?
Не, не может.
...
Рейтинг: 0 / 0
20.05.2013, 13:35
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38264547
donpauls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
donpauls
Гость
Дмитрий77donpaulsЧто-то у меня ничего не находит.. Может ли это быть из за того, что система 64битная?
Не, не может.

А почему же тогда ничего не находит? Что может быть?
...
Рейтинг: 0 / 0
20.05.2013, 14:21
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38264624
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
donpauls,

А что говорит диспетчер устройств на предмет присутствия COM портов?
...
Рейтинг: 0 / 0
20.05.2013, 15:04
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38264715
donpauls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
donpauls
Гость
kiv-1980donpauls,

А что говорит диспетчер устройств на предмет присутствия COM портов?

В том то и дело, что диспетчер устройств всё отображает корректно.
...
Рейтинг: 0 / 0
20.05.2013, 15:52
| Ответить | Цитировать | Написать  
Как через WMI получить список портов?
    #38265379
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
WMI может глючить и ничего не показывать, если в реестре есть некорректный entry с номером напр. 0000
Папка 0000 есть, а лежит в ней туфта.
По крайней мере с модемами это так.
Диспетчер покажет все "исправные" модемы, а WMI споткнется об 0000
Возникает такой entry при некорректной установке устройства:
зависло, плюнул - перезагрузил-забыл
Если причина как я сказал, то варианта два
1) Ковырять реестр ручками (где с портами я не знаю, с модемами если надо могу посмотреть и подсказать)
2) Переустанавливать систему
...
Рейтинг: 0 / 0
21.05.2013, 00:14
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как через WMI получить список портов?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=58&tid=2156970]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 27ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 251ms
total:  379ms
созд. / загр.: 379ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]