<%@ LANGUAGE="VBSCRIPT"%>


<%


strIP = Request.ServerVariables("REMOTE_ADDR")


strMac = GetMACAddress(strIP)


strHost = Request.ServerVariables("REMOTE_HOST")


function GetMACAddress(strIP)


Set net = Server.CreateObject("wscript.network")


Set sh = Server.CreateObject("wscript.shell")


sh.run "%comspec% /c nbtstat -A " & strIP & " > c:" & strIP & ".txt",0,true


Set sh = nothing


Set fso = createobject("scripting.filesystemobject")


Set ts = fso.opentextfile("c:" & strIP & ".txt")


macaddress = null


Do While Not ts.AtEndOfStream


data = ucase(trim(ts.readline))


if instr(data,"MAC ADDRESS") Then


macaddress = trim(split(data,"=")(1))


Exit Do


End if


loop


ts.close


Set ts = nothing


fso.deletefile "c:" & strIP & ".txt"


Set fso = nothing


GetMACAddress = macaddress


End function


%>










<body>


<%Response.Write("Your IP is : " & strIP & "" & vbcrlf)%>


<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>


</body>

2009/05/26 13:37 2009/05/26 13:37

Trackback Address :: https://youngsam.net/trackback/491