View source for Detecting Network Adapters

To detect the network adapters, we use WMI as follows: 

(NOTE: you need to add a reference to the Microsoft WMI Scripting V1.1 Library in order to use this code.  If you don't want to do this, you can change the declarations of all the objects to the type Object and it will still work)

  '-- Objects we need from WMI
  Dim objWMIService As SWbemServices
  Dim colNetAdapters As SWbemObjectSet
  Dim objNetAdapter As SWbemObject
  
  '-- Get the WMI Service object
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  '-- Fill the object set with the network adapter configs that have IPEnabled = True
  Set colNetAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
  
  '-- Loop through the collection and add each adapter to the listview
  For Each objNetAdapter In colNetAdapters
      Debug.Print objNetAdapter.Caption, objNetAdapter.IPAddress(0)
  Next
  
  '-- Clean up
  Set colNetAdapters = Nothing
  Set objWMIService = Nothing
  Set objNetAdapter = Nothing

And that's it :)