VB.NET获取MAC地址

方法一：nbtstat 命令

Public Function GetMac(ByVal IP As String) As String

Try

'定义输出变量。

Dim StrMac As String = String.Empty

Dim Str As String = String.Empty

'定义进程参数。

Dim Info As New processstartinfo

Info.FileName = "nbtstat"

Info.Arguments = "-a " + IP

Info.UseShellExecute = False

Info.RedirectStandardInput = False

Info.RedirectStandardOutput = True

Info.RedirectStandardError = True

Info.CreateNowindow = True

Info.WindowStyle = ProcessWindowStyle.Hidden

'定义新进程。

Dim mProcess As New Process

'开始执行操作。

mProcess = Process.Start(Info)

'无限循环按行读取输出内容。

While True

'读取一行数据。

Str = mProcess.StandardOutput.ReadLine()

mProcess.WaitForExit()

StrMac = Str.Trim()

'判断是否有 Mac Address字眼。

If StrMac.ToLower.Contains("mac address") Then

Exit While

Else

If StrMac.ToLower.Contains("host not found") Then

Exit While

End If

End If

End While

'返回值。

Return StrMac

Catch ex As Exception

'返回错误值。

Return String.Format("Get Error. 原因:{0}",ex.Message)

End Try

方法2：SendARP 函数

Private Declare Ansi Function SendARP Lib "Iphlpapi.dll" (ByVal dest As Int32,ByVal host As Int32,ByRef mac As Int64,ByRef length As Int32) As Int32

Private Declare Ansi Function inet_addr Lib "Ws2_32.dll" (ByVal IP As String) As Int32

Public Function getRemoteMAC(ByVal RemoteIp As String) As String

Dim Dest As Int32 = inet_addr(RemoteIp)

Dim Str As String = String.Empty

Dim StrMac As String = String.Empty

Try

Dim MacInfo As New Int64

Dim Len As Int32 = 6

Dim Res As Integer = SendARP(Dest,MacInfo,Len)

Str = Convert.ToString(MacInfo,16).toupper

If Str.Length = 12 Then

'因为取出来的值是反的，所以要处理下。

Dim M(5) As String

M(0) = Str.Substring(10,2)

M(1) = Str.Substring(8,2)

M(2) = Str.Substring(6,2)

M(3) = Str.Substring(4,2)

M(4) = Str.Substring(2,2)

M(5) = Str.Substring(0,2)

StrMac = String.Format("{0}-{1}-{2}-{3}-{4}-{5}",M(0),M(1),M(2),M(3),M(4),M(5))

Else

StrMac = "Host not found."

End If

Catch ex As Exception

'返回错误值。

Return String.Format("Get Error. 原因:{0}",ex.Message)

End Try

Return StrMac

End Function

方法3：用WMI,先工程-引用 Microsoft WMI Scripting V1.1 Library

Private Sub wmiSoundDeviceInfo()

Dim wmiObjSet As WbemScripting.SWbemObjectSet

Dim obj As SWbemObject

wmiObjSet = Getobject("winmgmts:{impersonationLevel=impersonate}"). _

InstancesOf("Win32_NetworkAdapterConfiguration")

For Each obj In wmiObjSet

Debug.Print(obj.MACAddress)

Next

End Sub

方法4：

Imports System.Net.networkinformation

Function getMacAddress()

Dim nics() As NetworkInterface = _

NetworkInterface.GetAllNetworkInterfaces

Return nics(0).GetPhysicalAddress.ToString

End Function