Sub algo()
Dim objs As Object
    Dim obj As Object
    Dim WMI As Object
    Dim strSN As String
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("CIM_MediaAccessDevice")
    For Each obj In objs
        Debug.Print "Caption....:" & obj.Caption
        Debug.Print "DeviceID...:" & obj.DeviceId
        Debug.Print "Descripcion:" & obj.Description
        Debug.Print String(79, "=")
    Next

End Sub