[VB] Name von WLan abfragen ?

Public Sub inets()
        Dim sComputer As String
        Dim sSQL As String
        Dim oWMI As Object
        Dim oResult As Object
        Dim oItem As Object

        ' eigener Rechner
        sComputer = "."

        ' WMI-Objekt erzeugen
        oWMI = GetObject("winmgmts://" & sComputer & "/root\WMI")

        ' WMI-Abfrage erstellen
        sSQL = "SELECT * FROM MSNdis_80211_ReceivedSignalStrength " & "WHERE Active=true"
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts oWMI.ExecQuery konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        oResult = oWMI.ExecQuery(sSQL)

        ' alle Einträge durchlaufen
        On Error Resume Next
        For Each oItem In oResult
            With oItem
                'UPGRADE_WARNING: Die Standardeigenschaft des Objekts oItem.InstanceName konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Debug.Print(.InstanceName)
                'UPGRADE_WARNING: Die Standardeigenschaft des Objekts oItem.Ndis80211ReceivedSignalStrength konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Debug.Print(.Ndis80211ReceivedSignalStrength)

                ' Signalstärke im Klartext
                'UPGRADE_WARNING: Die Standardeigenschaft des Objekts oItem.Ndis80211ReceivedSignalStrength konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                Select Case .Ndis80211ReceivedSignalStrength
                    Case Is >= -55
                        MsgBox("Hervorragend (5 Balken)")
                    Case Is >= -67
                        MsgBox("Sehr gut (4 Balken)")
                    Case Is >= -71
                        MsgBox("gut (3 Balken)")
                    Case Is >= -79
                        MsgBox("schlecht (2 Balken)")
                    Case Is > -1000
                        MsgBox("sehr schlecht (1 Balken)")
                    Case Else
                        MsgBox("keine Verbindung")
                End Select
            End With
        Next oItem
        On Error GoTo 0

    End Sub