ASP. NET

From: http://www.guoblog.com/blogview.asp? Logid = 202

Public Function valuesepr (byval rawstring as string, byval sepchar as string) as string
If instr (1, rawstring, sepchar) <> 0 then
Valuesepr = Microsoft. VisualBasic. Right (rawstring, Len (rawstring)-instr (1, rawstring, sepchar ))
Else
Valuesepr = rawstring
End if
End Function
Public Function getmac (byval IP as string) as string
Try
Dim dirresults as string
Dim PSI as system. Diagnostics. processstartinfo = new system. Diagnostics. processstartinfo ()
Dim proc as new system. Diagnostics. Process ()
PSI. filename = "NBTSTAT"
PSI. redirectstandardinput = false
PSI. redirectstandardoutput = true
PSI. Arguments = "-a" & IP
PSI. useshellexecute = false
Proc = system. Diagnostics. process. Start (PSI)
Dim X as integer =-1
Do until x>-1
If dirresults <> nothing then
X = dirresults. Trim. tolower. indexof ("MAC address", 0)
If X>-1 then
Exit do
End if
End if
Dirresults = Proc. standardoutput. Readline
Loop
Proc. waitforexit ()
Getmac = valuesepr (dirresults. trim, "="). Trim
Catch err as exception
Response. Write (ERR. Message & err. stacktrace)
End try
End Function