Foro de elhacker.net

• Win32_NetworkAdapterConfiguration class - MSDN (https://msdn.microsoft.com/en-us/library/windows/desktop/aa394217%28v=vs.85%29.aspx)

    Public Shared ReadOnly Iterator Property MacAddresses() As IEnumerable(Of KeyValuePair(Of String, String))
        Get
            For Each mo As ManagementObject In New ManagementClass("Win32_NetworkAdapterConfiguration").GetInstances
 
                If CBool(mo("IPEnabled")) Then
                    Dim mac As String = DirectCast(mo("MACAddress"), String)
                    Dim ipv4 As String = DirectCast(mo("IPAddress"), String())(0)
 
                    Yield New KeyValuePair(Of String, String)(mac, ipv4)
                End If
 
            Next mo
        End Get
    End Property

obj.Key   = dirección MAC
obj.Value = dirección IPv4