Obtener direcciones IP o MAC en red LAN

Revisa mi modulo:



Imports System.Net
Imports System
Imports System.Management

#Region "Creador"
'Modulo RED
'Saca IP
'MyMacAddress


'07/11/2003
'Freddy Cáceres
#End Region

Module MdlRed

Function SacaIp() As String
Dim s As String = ""

Dim addressList As IPAddress() Dns.GetHostByName(Dns.GetHostName()).AddressList()

Dim i As Integer
For i = 0 To addressList.Length - 1
s += addressList(i).ToString()
Next i
SacaIp = s
End Function

Public Function Es_IP(ByVal texto As String) As String
'Dim re As New
Regex("(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])")
'Dim mc As Match = re.Match(texto)
'If texto.Length > 0 AndAlso texto.Length = mc.Length
Then
'Es_IP = texto
'Else
' Es_IP = ""
'End If
End Function

Function MyMacAddress() As String
'Aca necesitas Agregar una referencia .NET
System.Management
Dim mc As ManagementClass
Dim moc As ManagementObjectCollection
Dim mo As ManagementObject
mc = New
ManagementClass("Win32_NetworkAdapterConfiguration")
moc = mc.GetInstances() ' Get all network adapter
instances
For Each mo In moc
If mo.Item("IPEnabled") = True Then MyMacAddress mo.Item("MacAddress").ToString()
mo.Dispose()
Next
End Function
End Module

Saludos
-
Freddy Cáceres
Santiago - Chile

Que tal, espero puedan ayudarme con algo que le he dado
vueltas y no encuentro como resolverlo.
Me gustaria saber como puedo obtener las direcciones IP o
bien las direcciones MAC de una red LAN usando VB.NET o C#

.