Gsm.dll и VB(A)

Формулировка задачи:

Здравствуйте,
Кто нибудь пользовался этой либой?, можете выложить код при её применении на VB(A)?
Спасибо

Решение задачи: «Gsm.dll и VB(A)»

textual
                            Листинг программы 
                        

                            <<font color="blue">html</font>>
<<font color="blue">head</font>><<font color="blue">title</font>>Звоним<!--<font color="blue"-->title><!--<font color="blue"-->head>
<<font color="blue">script</font> language = VBScript>

Option Explicit

Sub Full_modems()
    
    On Error Resume Next

    Dim strComputer 
    strComputer = <font color="#00AA00">"."</font>

    Dim objWMIService
    Set objWMIService = GetObject(<font color="#00AA00">"winmgmts:\\"</font> & strComputer & <font color="#00AA00">"\root\cimv2"</font>)

    Dim colItems 
    Set colItems = objWMIService.ExecQuery(<font color="#00AA00">"Select * from Win32_POTSModem"</font>)

    Dim objItem 

    Dim Count_modem 
    Dim Result 

    For Each objItem In colItems
        Count_modem = Count_modem + <font color="darkblue"><b>1</b></font>
        Result = Result & Count_modem & <font color="#00AA00">" "</font> & objItem.Model & <font color="#00AA00">" - "</font> & objItem.AttachedTo & Chr(<font color="darkblue"><b>13</b></font>)
    Next

    MsgBox <font color="#00AA00">"Количество модемов: "</font> & Count_modem & Chr(<font color="darkblue"><b>13</b></font>) & Result

End Sub

<!--<font color="blue"-->script>
<!--<font color="blue"-->head>

<<font color="blue">body</font>>
<font color="teal"><!----></font>
<<font color="blue">button</font> onclick=<font color="#00AA00">"Full_modems()"</font>>Надпись на кнопке<!--<font color="blue"-->button>
<!--<font color="blue"-->body>
<!--<font color="blue"-->html>
                        