модемы и прграммирование

[Ципихович Эндрю]

Здравствуйте, подскажите на каком ЯП я могу точно узнать, то что узнаю вручную, а именно: Пуск Панель управления Телефоны и модемы Модемы, количество модемов, их название, к какому порту COM они подцеплены и из них узнать количество доступных модемов
После Вашего ответа пойду в ту ветку или скажите сразу как это узнать?, код? кожно и нужно в WEB'е, спасибо

[Arigato]

Сообщение от Ципихович Эндрю

кожно и нужно в WEB'е, спасибо

Не понял, в Вебе - это как?

[Ципихович Эндрю]

ДжавиСкрипт и тому подобное, может и нельзя я точно не уверен

[Mad_Cat]

ДжавиСкрипт

странный какой то WEB
Копать в сторону

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Modem

и

RasEnumDevices

[Arigato]

Из JS такого не сделать.

[Ципихович Эндрю]

в какую сторону копать я знаю, месяц копаю, мне нужен код, ВБ6, ВБА, я заплачу

Sub PhoneПозвонить_с_телефона()

    On Error Resume Next

    Dim strComputer As String
    strComputer = "."

    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")

    Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm

    Dim objItem As Object

    Dim Количество_модемов As Byte
    Dim Количество_доступных_модемов As Byte

    Dim ИмяCOMпорта As String
    Dim MSComm1Input As String
    Dim Результат As String
    Dim Доступные_модемы As String

    For Each objItem In colItems
        Количество_модемов = Количество_модемов + 1
        ИмяCOMпорта = objItem.AttachedTo
        'отнимаем первые три буквы, то есть COM
        MSComm1.CommPort = Right$(ИмяCOMпорта, (Len(ИмяCOMпорта) - 3))
        MSComm1.PortOpen = True
        'или Err.Clear, обнуляем ошибку
        If Err.Number = 8012 Then
            Err.Number = 0
            MSComm1.PortOpen = False
            MSComm1Input = ""
            GoTo Skip
        End If

        'MsgBox$ Err.Number & "-" & Err.Description
        MSComm1.Output = "ATI" & vbCr
        MSComm1Input = MSComm1.Input
        MSComm1.PortOpen = False

Skip:

        If Len(MSComm1Input) = 0 Then
            Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - Не доступен для звонка" & Chr$(13)

        Else

            Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - Доступен для звонка" & Chr$(13)
            Количество_доступных_модемов = Количество_доступных_модемов + 1
            Доступные_модемы = Доступные_модемы & objItem.Model & " - " & objItem.AttachedTo & Chr$(13)
        End If

    Next

    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set objWMIService = Nothing
    Set colItems = Nothing
    Set MSComm1 = Nothing

    'отключает действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
    On Error GoTo 0

    MsgBox$ "Количество установленных модемов в компьютере: " & Количество_модемов & Chr$(13) & Результат & "Количество модемов, доступных для звонка: " & Количество_доступных_модемов

    Exit Sub

При этом перед нажатием на кнопку проверяю вручную Пуск Панель управления Телефон и модемы Модемы, смотрю два порта присутствует, что и есть на самом деле. Нажимаю раз десять подряд, получаю ответы хаотичные, Количество доступных модемов 0 или 1, ни разу нет ответа 2, ЕРЕЕЕЕЕЕЕЕСЬ!!
Как лечить, подскажите, пожалуйста, заранее спасибо.
Хоть бы до Нового года успеть

[Ципихович Эндрю]

Сообщение от Arigato

Из JS такого не сделать.

понял, куда ни кинь, всюду клин, а из VBScript??

[Ципихович Эндрю]

если реестр
HKEY_LOCAL_MACHINE\System\CurrentCo ntrolSet\Services\Modem
там две папки
Enum
Parametrs
В какой папке смотреть?? Вручную если смотреть - ничего там интересного не вижу, может очки надеть