Dim sComputer As String
Dim sSQL As String
Dim oWMI As Object
Dim oResult As Object
Dim oItem As Object
 
' eigenr Rechner
sComputer = "."
 
' WMI-Objekt erzeugen
Set oWMI = GetObject("winmgmts://" & sComputer & "/root\WMI")
 
' WMI-Abfrage erstellen
sSQL = "SELECT * FROM MSNdis_80211_ReceivedSignalStrength " & _
  "WHERE Active=true"
Set oResult = oWMI.ExecQuery(sSQL)
 
' alle Einträge durchlaufen
On Error Resume Next
For Each oItem In oResult
  With oItem
    Debug.Print .InstanceName
    Debug.Print .Ndis80211ReceivedSignalStrength
    Select Case .Ndis80211ReceivedSignalStrength
      Case Is <= -55
        Debug.Print "Hervorragend (5 Balken)"
      Case Is <= -67
        Debug.Print "Sehr gut (4 Balken)"
      Case Is <= -71
        Debug.Print "gut (3 Balken)"
      Case Is <= -79
        Debug.Print "schlecht (2 Balken)"
      Case Is < -1000
        Debug.Print "sehr schlecht (1 Balken)"
      Case Else
        Debug.Print "keine Verbindung"
    End Select
  End With
Next 
On Error GoTo 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de