WLAN-Verbindung steuern

[Berry]

Hallo!
Sub WLAN_connect_2()
Status = CreateObject("wscript.shell").exec("cmd /c netsh wlan show interface").stdout.readall
If InStr(1, Status, "verbunden") > 1 Then MsgBox "verbunden"
End Sub
 
Der Code läuft zwar ohne Fehlermeldung, aber die Variable Status enthält nur Gänsefüsse.
Noch eine Idee für einen Amateur?
 
Berry

[Phi.VBA]

@Berry

Prüfung auf größer 0:

Code:

Sub WLAN_connect_2()
Status = CreateObject("wscript.shell").exec("cmd /c netsh wlan show interface").stdout.readall
If InStr(1, Status, "verbunden") > 0 Then MsgBox "verbunden"
End Sub

Testen im Einzelschrittmodus F8 und den Wert der Variable "Status" prüfen.

[RPP63]

Ja, ich hatte den String Status aus dem Lokalfenster entnommen.
Im Direktfenster erscheint:

Code:

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:54:1b:75:91:da
   Status                 : Verbunden
   SSID                   : EasyBox-630146
   BSSID                  : 78:94:b4:0c:87:f6
   Netzwerktyp            : Infrastruktur
   Funktyp                   : 802.11ac
   Authentifizierung   : WPA2-Personal
   Verschlsselung        : CCMP
   Verbindungsmodus          : Profil
   Kanal               : 60
   Empfangsrate (MBit/s)  : 433.3
   šbertragungsrate (MBit/s) : 433.3
   Signal              : 99%
   Profil                 : EasyBox-630146

   Status des gehosteten Netzwerks  : Nicht verfgbar

@Berry:
Folgender abgeänderter Code funktioniert bei mir einwandfrei:
Beachte die Suche nach Verbunden.

Sub WLAN()
Dim Status$
Status = CreateObject("wscript.shell").exec("cmd /c netsh wlan show interface").stdout.readall
Debug.Print Status
If InStr(Status, "Verbunden") Then MsgBox "verbunden"
End Sub

[Berry]

Hallo!

Funktioniert super, zehn Daumen.

Berry