根据IP地址获得MAC

Imports System

Imports System.Diagnostics

Public Class MacAddress

Public Function GetMac(ByVal IP As String) As String

Dim str1 As String = String.Empty

Try

Dim str2 As String = String.Empty

Dim info1 As ProcessStartInfo = New ProcessStartInfo()

Dim process1 As Process = New Process()

info1.FileName = 'nbtstat'

info1.RedirectStandardInput = False

info1.RedirectStandardOutput = True

info1.Arguments = '-A ' + IP

info1.UseShellExecute = False

process1 = Process.Start(info1)

Dim num1 As Integer = -1

While (num1 <= -1)

num1 = str2.Trim().ToLower().IndexOf('mac address', 0)

If (num1 > -1) Then

Exit While

End If

str2 = process1.StandardOutput.ReadLine()

process1.WaitForExit()

str1 = str2.Trim()

End While

Catch ex As Exception

Throw ex

End Try

Return str1

End Function