🚀 go-pugleaf

> You might try converting the code at this link:
>  http://www.vbip.com/wininet/wininet_connection_01.asp
>
> WMI is huge.  It would difficult to create the kind of simple code one 
> wants in an example yet exercise a decent percentage of it.  You would 
> probably be best served by getting a book that deals with WMI.
>
> .  Ed
>

Thank you for the link. I also found the following very short VB6 code, but 
it seems to be that it is not that simple to convert it to C++ for BCB6.


Private Sub Timer1_Timer()
    Set nicset =
GetObject("winmgmts:{impersonationLevel=impersonate}!root/wmi").InstancesOf("MSNdis_80211_ReceivedSignalStrength")
    On Error GoTo no80211Error
    For Each nic In nicset
        SignalStrengthValue = Right(nic.Ndis80211ReceivedSignalStrength, 
Len(nic.Ndis80211ReceivedSignalStrength) - 1)
        If SignalStrengthValue <> "" Then
            SendText ("S=NetSignalStrength~" & SignalStrengthValue)
        End If
        Exit For
    Next
    nicset = Nothing
    Exit Sub

no80211Error:
    SendToConsole "No 802.11 network adapters found"
    Timer1.Enabled = False
End Sub