Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WLAN Liste

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

Betreff
Datum
Anwender
Anzeige
"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

Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige