[VB] Name von WLan abfragen ?

[bestora]

Kann man in Visual Basic den Namen des aktuell verbundenen WLan netzes abfragen?


Also zurzeit zuhause Fritzbox...
und schule **-Schule

Kann man irgendwie abfragen mit welchen Netz das Notebook verbunden ist?

[3Angle]

Das solltest du dir mal angucken.



Sonst das hier mal als Code.

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

Quelle :