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