WLAN Liste

Forumthread: WLAN Liste

WLAN Liste

28.05.2013 15:12:03

Peter

Ich würde gerne via VBA eine Liste der verfügbaren WLAN Quellen auslesen.
Zu diesem Zweck hat ich die Windows Funktion WlanGetAvailableNetworkList
gefunden.
Siehe auch Link: http://msdn.microsoft.com/en-us/library/windows/desktop/ms706749(v=vs.85).aspx
Habe zwar Code in C++ gefunden, brauche jedoch Code in VBA.
Danke im Voraus.
Grüße
Peter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

"SELECT * FROM Win32_NetworkAdapter " ?

28.05.2013 18:21:30

ransi
WLAN Liste

29.05.2013 07:31:29

Anton
AW: WLAN Liste

29.05.2013 09:32:49

Peter
AW: WLAN Liste

29.05.2013 11:47:27

Anton
AW: WLAN Liste

29.05.2013 11:58:33

Peter

"SELECT * FROM Win32_NetworkAdapter " ?

28.05.2013 18:21:30

ransi

Hallo Peter
Schau mal ob du hiermit etwas anfangen kannst :

Option Explicit

Public Sub machs()
    Dim myWMI As Object
    Dim objDienste
    Dim P As Object
    Dim I As Integer
    Dim L As Long
    Set myWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set objDienste = myWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapter ")
    Dim objDienst
    L = 1
    For Each objDienst In objDienste
        L = L + 1
        Cells(L, 1) = objDienst.Name
        I = 1
        For Each P In objDienst.properties_
                I = I + 1
            Cells(1, I) = P.Name
            Cells(L, I) = P.Value
        Next
    Next
End Sub

ransi

WLAN Liste

29.05.2013 07:31:29

Anton

Hallo Peter,
unter Win7 kannst du sowas ausprobieren:

Sub wlan()
Dim objShell As Object, objExec As Object
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("netsh wlan show networks mode=bssid")
Debug.Print objExec.StdOut.ReadAll
Set objShell = Nothing
End Sub

mfg Anton

AW: WLAN Liste

29.05.2013 09:32:49

Peter

Hallo Anton,
Dein Vorschlag ist sehr gut, da mit dem Kommando "netsh" alles gemacht werden kann.
Einige Frage ist noch wie ich die Daten vom objExec in eine Excel Tabelle rein schreiben kann.
Danke im Voraus.
Grüße
Peter

AW: WLAN Liste

29.05.2013 11:47:27

Anton

Hallo Peter,
so?:

Sub wlan()
Dim objShell As Object, objExec As Object, strZeile, zeile As Long
zeile = 1
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("netsh wlan show networks mode=bssid")
For Each strZeile In Split(objExec.StdOut.ReadAll, vbCrLf)
Cells(zeile, 1) = strZeile
zeile = zeile + 1
Next
Set objShell = Nothing
End Sub

mfg Anton

AW: WLAN Liste

29.05.2013 11:58:33

Peter

Perfekt.Vielen Dank!
Grüße
Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: WLAN Liste

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread