У кого есть опыт работы с gsm.dll?

  Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm
 
    Dim q As Byte
  
    'оператор для отлова ошибок, указывает, что при возникновении ошибки нужно переходить к следующей строке кода
    On Error Resume Next
    
    For q = 1 To 254
        'номер COM порта
        MSComm1.CommPort = q
        'открыть порт
        MSComm1.PortOpen = True
        '1й Beep
        If MSComm1.PortOpen = True Then Beep
        'устанавливаем\опрашиваем 0 или 1 присутствует на выводе CTS, состояние False или True
        MSComm1CTSHolding = MSComm1.CTSHolding
        '2й Beep
        If MSComm1CTSHolding = True Then Beep: Количество_портов = Количество_портов + 1
 
    Next q
 
MsgBox$ _
            "Количество портов" & Chr(13) & _
                                Количество_портов & Chr(13) & _
                                "Все порты" & Chr(13) & _
                                Все_порты

Option Explicit
 
Sub Модемы()
 
'http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
'предпоследний скрипт: Retrieves information about all the modems installed in a computer
'для запуска в VBA заменить wscript.echo на debug.print или MsgBox$ или  Selection.TypeText Text:=
 
    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 objItem As Object
    
Dim Количество_модемов As Byte
Dim Результат As String
 
    For Each objItem In colItems
    Количество_модемов = Количество_модемов + 1
        'MsgBox$ "Attached To - номер COM порта: " & objItem.AttachedTo
        'MsgBox$ "Blind Off: " & objItem.BlindOff
        'MsgBox$ "Blind On: " & objItem.BlindOn
        'MsgBox$ "Compression Off: " & objItem.CompressionOff
        'MsgBox$ "Compression On: " & objItem.CompressionOn
        'MsgBox$ "Configuration Manager Error Code: " & objItem.ConfigManagerErrorCode
        'MsgBox$ "Configuration Manager User Configuration: " & objItem.ConfigManagerUserConfig
        'MsgBox$ "Configuration Dialog: " & objItem.ConfigurationDialog
        'MsgBox$ "Country Selected - выбранная страна: " & objItem.CountrySelected
        'MsgBox$ "Device ID: " & objItem.DeviceID
        'MsgBox$ "Device Type - тип устройства: " & objItem.DeviceType
        'MsgBox$ "Driver Date: " & objItem.DriverDate
        'MsgBox$ "Error Control Forced: " & objItem.ErrorControlForced
        'MsgBox$ "Error Control Off: " & objItem.ErrorControlOff
        'MsgBox$ "Error Control On: " & objItem.ErrorControlOn
        'MsgBox$ "Flow Control Hard: " & objItem.FlowControlHard
        'MsgBox$ "Flow Control Off: " & objItem.FlowControlOff
        'MsgBox$ "Flow Control Soft: " & objItem.FlowControlSoft
        'MsgBox$ "Inactivity Scale: " & objItem.InactivityScale
        'MsgBox$ "Inactivity Timeout: " & objItem.InactivityTimeout
        'MsgBox$ "Index: " & objItem.Index
        'MsgBox$ "Maximum Baud Rate To SerialPort - максимальная скорость передачи последовательного порта: " & objItem.MaxBaudRateToSerialPort
        'MsgBox$ "Model - модель: " & objItem.Model
        'MsgBox$ "Modem Inf Path: " & objItem.ModemInfPath
        'MsgBox$ "Modem Inf Section: " & objItem.ModemInfSection
        'MsgBox$ "Modulation Bell: " & objItem.ModulationBell
        'MsgBox$ "Modulation CCITT: " & objItem.ModulationCCITT
        'MsgBox$ "Name - имя модема: " & objItem.Name
        'MsgBox$ "PNP Device ID: " & objItem.PNPDeviceID
        'MsgBox$ "Port SubClass: " & objItem.PortSubClass
        'MsgBox$ "Prefix: " & objItem.Prefix
        'MsgBox$ "Provider Name: " & objItem.ProviderName
        'MsgBox$ "Pulse - импульс: " & objItem.Pulse
        'MsgBox$ "Reset - сброс: " & objItem.Reset
        'имя (хуже)
        'MsgBox$ "Responses Key Name: " & objItem.ResponsesKeyName
        'спикер выбора режимов
        'MsgBox$ "Speaker Mode Dial: " & objItem.SpeakerModeDial
        'MsgBox$ "Speaker Mode Off: " & objItem.SpeakerModeOff
        'MsgBox$ "Speaker Mode On: " & objItem.SpeakerModeOn
        'MsgBox$ "Speaker Mode Setup: " & objItem.SpeakerModeSetup
        'MsgBox$ "Speaker Volume High: " & objItem.SpeakerVolumeHigh
        'MsgBox$ "Speaker Volume Info: " & objItem.SpeakerVolumeInfo
        'MsgBox$ "Speaker Volume Low: " & objItem.SpeakerVolumeLow
        'MsgBox$ "Speaker Volume Med: " & objItem.SpeakerVolumeMed
        'MsgBox$ "Status Info: " & objItem.StatusInfo
        'MsgBox$ "Terminator: " & objItem.Terminator
        'MsgBox$ "Tone - тон: " & objItem.Tone
        Результат = Результат & Количество_модемов & " " & objItem.Model & Chr$(13)
 
    Next
    
    MsgBox$ "Количество модемов: " & Количество_модемов & Chr$(13) & Результат
 
End Sub