获取本地机器的MAC,该如何解决

获取本地机器的MAC
Dim LocalMAC As String = ""
Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
  For Each WmiObj As Management.ManagementObject In Wmi.Get
  If CBool(WmiObj("IPEnabled")) Then
  LocalMAC += "|" & WmiObj("MACAddress")
  End If
  Next

这个是我从网上找的，它会把我所有的mac就抓出来了，但我想要的结果是只要有获得IP的那个MAC，应该怎么做，哪位大侠指教下哦！或者有另外的方法（VB），不胜感激！

------解决方案--------------------
Friend Function getMACAddress() As String
Dim netcard As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
Dim i As Integer = 0, cnt As Integer = 0
Dim k As Integer = 0, kcnt As Integer = 0

cnt = netcard.Length()
Do While i < cnt
If netcard(i).OperationalStatus = OperationalStatus.Up And netcard(i).NetworkInterfaceType = NetworkInterfaceType.Ethernet Then
kcnt = netcard(i).GetIPProperties.UnicastAddresses.Count()
k = 0
Do While k < kcnt
If netcard(i).GetIPProperties.UnicastAddresses(k).Address.AddressFamily = AddressFamily.InterNetwork Then
Return (netcard(i).GetPhysicalAddress().ToString())
Exit Function
End If
k = k + 1
Loop
End If
i = i + 1
Loop
Return ""
End Function