Auslesen des Namens der LAN-Verbindung

Public Function getAdapterInfos()
  Dim objWMIService As Object
  Dim objRegistry As Object
  Dim Adapters As Object
  Dim Adapter As Object
  Dim Adapter2 As Object
  Dim AConfig As Object
  Dim conName As String
  Dim keyPath As String
  Dim sql As String
  Dim Computer As String
  Dim s As String
  Dim regPath As String
  Const HKEY_LOCAL_MACHINE = &H80000002
  Computer = "localhost"  
  
  Set objRegistry = GetObject("winmgmts:" & "!\\" & Computer & "\root\default:StdRegProv")  

  sql = "SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionStatus Is Not NULL And MACAddress Is Not NULL"  

  Set objWMIService = GetObject("winmgmts:" & "!\\" & Computer & "\root\cimv2")  
  Set Adapters = objWMIService.ExecQuery(sql)

  For Each Adapter In Adapters
    s = Adapter.Name & "," & Adapter.AdapterType & "," & Adapter.MACAddress & ","  
    Set AConfig = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where Index = " & Adapter.Index)  
    
    For Each Adapter2 In AConfig
      keyPath = "SYSTEM\CurrentControlSet\Control\Network\" & _  
        "{4D36E972-E325-11CE-BFC1-08002BE10318}\" & Adapter2.SettingID & "\Connection"  
      objRegistry.GetExpandedStringValue HKEY_LOCAL_MACHINE, keyPath, "Name", conName  
    Next Adapter2
    s = s & conName
    Debug.Print s
  Next
End Function