WLAN-Verbindung steuern

[Berry]

Hallo Excel Freunde,
ist es möglich mit VBA aus Excel heraus meine WLAN-Verbindung zu deaktivieren bzw. aktivieren?

Wenn ja, hat jemand eventuell den passenden Code dazu?

Danke an alle die sich Gedanken machen!


Gruss
Berry

[Phi.VBA]

@Berry

mit den richtigen NET SH WLAN - Befehlen sollte das gehen. Probiere es im CMD aus, wenn es geht, kann man das auch aus XL mit VBA ausführen.

Code:

Accespoint anschalten:
netsh wlan set hostnetwork mode=allow ssid=SomeSSID key=passphrase

starten mit: netsh wlan start hostednetwork

[Flotter Feger]

Hallo.

prinzipiell hat Phi schon recht ... allerdings kann man diese Befehle nicht direkt in Excel ausführen.

du musst den Code in eine Neue Textdatei einfügen und die Datei speichern ... dann benennst du die Endung auf .bat um.

WLAN starten ...

Code:

@echo off
@netsh wlan connect name="DeinWLANAdapter"

@start https://www.clever-excel-forum.de/forum-2.html

rem ... oder falls du eine leere Seite möchtest
rem @start firefox.exe
rem @start iexplore.exe
rem ... Zeile, je nach Browser

WLAN beenden

Code:

@echo off
@netsh wlan disconnect

Ab Windows 10 ab Build 1803 funktioniert das mit der BAT nicht mehr ... da M$ die Eingabeaufforderung, per Konsole nicht mehr freigibt ... hier muss zwingend die Powershell verwendet werden.

[Berry]

Hallo,
das mit *.bat Datei funktioniert schon mal super, Daumen hoch.
 
1.Wie bekomme ich das in mein Excel-Modul?
2.Wieso funktioniert das nicht als *vbs Datei?
 
Berry

[Phi.VBA]

@Berry

ungeprüft
NetSh in C:\temp\test.bat

Code:

CreateObject("wscript.shell").exec("cmd /c dir c:\temp\Test.bat")

Direkt:

CreateObject("wscript.shell").exec("cmd /c netsh wlan disconnect")

Zu den WIN-Versionen kann ich nichts sagen.

[Berry]

Hallo,
funktioniert super, zweimal Daumen hoch.

Gibt es noch eine Möglichkeit das cmd abzuschalten?
 
Berry

[Berry]

Hallo!
Letzte Frage, wie kann ich auf connect und disconnect mit If Abfragen?
 
Berry

[Phi.VBA]

@Berry

versuche in CMD

Code:

netsh wlan show interface

und prüfe auf "Status".

ungeprüft:

Code:

Sub WLAN_connect()
Status = CreateObject("wscript.shell").exec("cmd /c netsh wlan show interface").stdout.readall)

if instr(1, Status, "Verbunden") > 1 then msgbox "verbunden")
end sub

[RPP63]

@Phi.VBA:
Da mich dies interessiert, habe ich es mal ausprobiert.
Die letzten schließenden Klammern pro Zeile entfernt, ergab sich folgendes Ergebnis (bei verbundenem WLAN):

Es ist 1 Schnittstelle auf dem System vorhanden:


    Name                   : WLAN
    Beschreibung           : Intel(R) Dual Band Wireless-AC 3165
    GUID                   : 0179e0c1-64ee-4289-a56b-80328e87e11d
    Physische Adresse      : 98

Da steht nix von "verbunden"
Zusatz: Seitdem ist die Leertaste im VBE ohne Funktion?? 
Erst ein Neustart von Excel behob das Problem.

Gruß Ralf

[Phi.VBA]

@RPP

die Antwort, gestartet im CMD:

Code:

C:\Users\xxx\Desktop>netsh wlan show interface > WLAN.txt

Es ist 1 Schnittstelle auf dem System vorhanden:

    Name                   : WLAN
    Beschreibung           : Broadcom 802.11n Wireless SDIO Adapter
    GUID                   : 8e426721-74d6-419c-b43d-f80e41c7196e
    Physische Adresse      : a0:26:d7:42:82:6f
    Status                 : Verbunden
    SSID                   : meineSSID
    BSSID                  : 80:3f:5d:9e:7a:f3
    Netzwerktyp            : Infrastruktur
    Funktyp                   : 802.11n
    Authentifizierung   : WPA2-Personal
    Verschlsselung        : CCMP
    Verbindungsmodus          : Automat. Verbindung
    Kanal               : 6
    Empfangsrate (MBit/s)  : 144
    šbertragungsrate (MBit/s) : 72
    Signal              : 82%
    Profil                 : meineSSID

    Status des gehosteten Netzwerks  : Nicht verfgbar