Определение положения модема

[step]

Как определить где весит модем, т.е. на каком коме? Я пробовал по очереди посылать на кажый комик по АТ, где ответ ОК, там значит модем, но не совсем это получилось, подскажите как это реализовать.
Заранее всем огромное спасибо!

Код: Выделить всё

1
portznach = portznach + 1
MSComm1.CommPort = portznach
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If

MSComm1.Output = "AT" + Chr$(13)
Do
Dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 2

'if MSComm1.Input=0 then end <<<????

MSComm1.PortOpen = False


[Sebas]

Win32_POTSModemToSerialPort

[step]

А где его искать?

[Sebas]

WMI

[alibek]

WMI

Можно было не уточнять Sebas и WMI неотделимы

[GSerg]

Да А ведь раньше эти три буквы всегда суммонили РейШейда

[alibek]

RayShade это особый случай
Это альяс, а то бинд

[step]

Ничего ни нашёл про Win32_POTSModemToSerialPort, может потому, что не знал где искать!
А можно какн-ть найти модем через код, преведённый мной выше?

[FaKk2]

step
Медитируем... Ходим по ссылке в моей подписи.. Много думаем...
И находим решение. Я нашел например.

[step]

Ладно, всем спасибо!
FAKK2
Теперь понятно, почему у тебя такой ник!

[FaKk2]

step

У ты какой догадливый

[step]

Люди, вот вам на всякий, вроде доработал как мог, если есть косяки, пишите!

Код: Выделить всё

'Добавьте на форму Command1 и MSComm1
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
On Error Resume Next
For q = 1 To 10
MSComm1.CommPort = q
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "AT" + Chr$(13)
Sleep 1
If MSComm1.Input = " " Then
MsgBox MSComm1.CommPort - 1
MSComm1.PortOpen = False
Exit Sub
End If
MSComm1.PortOpen = False
Next q
End Sub

[kirrun]

Этож заипешься!

[kirrun]

Да, кста, а если у человека модем висит на COM20?

[step]

kirrun
For q = 1 To 100000000000000000000000
Тогда можно и 20 и 1000 и 10000000 COM просмотреть!

kirrun
Ну а как быстрее скажи, если не секрет? Всё перерыл, ни чё ни нашёл!

[Sebas]

Ничего ни нашёл про Win32_POTSModemToSerialPort, может потому, что не знал где искать!
А можно какн-ть найти модем через код, преведённый мной выше?

Скорее всего, мс лохи, стопудово! ТЫ на SUN.COM искал чё ли?
http://search.microsoft.com/search/resu ... SerialPort

[step]

А вот оно, спасиб Sebas

http://msdn.microsoft.com/library/defau ... alport.asp

Только я не совсем понял, что и куды и как делать???

[Sebas]

дуй на МС в ScriptCenter