LAN-Verbindungen im Systray anzeigen Alle aktivierten LAN-Verbindungen ermitteln und im Systray anzeigen
Autor:   Michael Gosse	Bewertung:     [ Jetzt bewerten ]	Views:  12.991
www.ech-o-lot.de	System:  WinXP, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachstehendem Code wird für alle Netzwerkkarten, die connected sind, ein Registry-Eintrag gesetzt, damit die LAN-Verbindung als Sysmbol im Info Bereich der Taskbar (SysTray) angezeigt wird. Sowohl das Ermitteln der Verbindungen, als auch das Schreiben der Registry-Einträge erfolgt über das WMI-Objekt.

Private Sub ShowLANInSysTray()
  ' Deklaration der Variabelen
  Dim strMACaddress(9)
  Dim strSettingID(9)
  Dim strComputer As String
  Dim objWMIService As Object
  Dim colAdapters As Object
  Dim objAdapter As Object
  Dim i As Long
  Dim colAdapters2 As Object
  Dim strRegKey As String
  Dim strRegKey1 As String
  Dim strRegKey2 As String
  Dim strKeyPath As String
  Dim oReg  As Object
  Dim strValueName As String
  Dim dwValue As Long
 
  Const HKEY_LOCAL_MACHINE = &H80000002
 
  strComputer = "."
 
  ' Hier wird überprüft, welche Netzwerkkarte connected ist
  Set objWMIService = GetObject("winmgmts:" & "!\\" & _
    strComputer & "\root\cimv2")
  Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapter Where NetConnectionStatus = 2")
 
  ' Für den Netzwerkadapter, der connected ist, wird die MAC Adresse
  ' in strMACaddress(i) geschrieben
  i = 0
  For Each objAdapter In colAdapters
    If Not IsNull(objAdapter.MACAddress) Then
      Debug.Print "MAC Adresse: " & objAdapter.MACAddress
      strMACaddress(i) = objAdapter.MACAddress
      i = i + 1
    End If
  Next
 
  For i = 0 To UBound(strMACaddress)
    Debug.Print strMACaddress(i)
  Next
 
  ' Hier wird die SettingID(i) der Netzwerkkarte herausgefunden,
  ' die conncted ist
  Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
 
  Set colAdapters2 = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = TRUE")
 
  For Each objAdapter In colAdapters2
    For i = 0 To UBound(strMACaddress)
      If objAdapter.MACAddress = strMACaddress(i) Then
        Debug.Print "test:" & strMACaddress(i)
        strSettingID(i) = objAdapter.SettingID
 
        Debug.Print "SettingID:" & strSettingID(i)
 
        ' Hier wird der Registry-Key zusammengebaut, der gesetzt werden soll
        strRegKey = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
        strRegKey1 = strRegKey & strSettingID(i)
        strRegKey2 = "\Connection"
        strKeyPath = strRegKey1 & strRegKey2
 
        ' Ausgabe des Registry-Keys
        Debug.Print "RegKey1:" & strKeyPath
 
        ' Setzen von Variabelen
        Set oReg = GetObject("winmgmts:" & "!\\" & strComputer & "\root\default:StdRegProv")
        strValueName = "ShowIcon"
        dwValue = 1
 
        ' Hier wird der Wert (Reg DWORD) in die Registry geschrieben
        oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
      End If
    Next i
  Next
End Sub