• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Excel / Access VBA - nazwa aktualnej sieci

Aruba Cloud - Virtual Private Server VPS
0 głosów
277 wizyt
pytanie zadane 1 września 2022 w Visual Basic przez morking Nowicjusz (210 p.)
Witam, czy jest możliwość uzyskania nazwy podłączonej lub wszystkich w pobliżu sieci WiFi przez VBA (Excel / Access)?
Z góry dziękuję za pomoc.

1 odpowiedź

+1 głos
odpowiedź 2 września 2022 przez VBService Ekspert (256,600 p.)
wybrane 4 września 2022 przez morking
 
Najlepsza

Możesz np. z poziomu VBA (Excel / Access) uruchomić polecenie dos-owe: netsh

netsh wlan show networks mode=bssid

 

przykład

Option Explicit

Sub wifi() ' przykładowa nazwa makra
    Dim objShell, objShellExec As Variant
    Dim strCmd, strOutput As String
    
    Set objShell = CreateObject("WScript.Shell")
    
    strCmd = "netsh wlan show networks mode=bssid"
    Set objShellExec = objShell.Exec(strCmd)

    strOutput = objShellExec.StdOut.ReadAll
    
    If Not strOutput = vbNullString Then
        Dim intIndex As Integer, arrOutput() As String
        
        MsgBox (strOutput)
        arrOutput = removeEmptyLines(strOutput)
        
        MsgBox arrOutput(2) ' nazwa sieci
        
        'For intIndex = 0 To UBound(arrOutput)
        '    MsgBox arrOutput(intIndex)
        'Next
    End If
End Sub

Function removeEmptyLines(strIn As String) As Variant
    If Len(strIn) > 0 Then
        Dim intIndex As Integer, strTemp, arrTemp() As String
        
        arrTemp = Split(strIn, vbNewLine)
        
        For intIndex = 0 To UBound(arrTemp)
            If Not Trim(arrTemp(intIndex)) = vbNullString Then
                strTemp = strTemp & arrTemp(intIndex) & ";"
            End If
        Next
        
        If Right(strTemp, 1) = ";" Then strTemp = Left(strTemp, Len(strTemp) - 1)
        removeEmptyLines = Split(strTemp, ";")
    Else
        removeEmptyLines = Empty
    End If
End Function

 

Sprawdź też: VBA - Obtain Wireless Network Name (Connected)

1
komentarz 4 września 2022 przez morking Nowicjusz (210 p.)
Działa! Bardzo dziękuję!

Podobne pytania

0 głosów
0 odpowiedzi 751 wizyt
+1 głos
2 odpowiedzi 907 wizyt
pytanie zadane 8 listopada 2021 w Visual Basic przez Quba Użytkownik (870 p.)
+1 głos
1 odpowiedź 636 wizyt

93,336 zapytań

142,332 odpowiedzi

322,418 komentarzy

62,672 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj

Wprowadzenie do ITsec, tom 1 Wprowadzenie do ITsec, tom 2

Można już zamawiać dwa tomy książek o ITsec pt. "Wprowadzenie do bezpieczeństwa IT" - mamy dla Was kod: pasja (użyjcie go w koszyku), dzięki któremu uzyskamy aż 15% zniżki! Dziękujemy ekipie Sekuraka za fajny rabat dla naszej Społeczności!

...