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