• 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

Object Storage Arubacloud
0 głosów
209 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 (254,880 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 689 wizyt
+1 głos
2 odpowiedzi 689 wizyt
pytanie zadane 8 listopada 2021 w Visual Basic przez Quba Użytkownik (870 p.)
+1 głos
1 odpowiedź 531 wizyt

92,761 zapytań

141,685 odpowiedzi

320,483 komentarzy

62,105 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.

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...