Obtain MAC address based on IP Address

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