Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Ho do I retrieve a systems Mac Address 1
- Thread starter StuWilson
- Start date
-
1
- #2
HI,
It is possible to get the mac address using ASP code but I have to tell you that this is not reliable 'coz we tried it. Some use proxy and the mac address of the server is what we get not the mac of the particular user who is accessing the web page. But anyway if you are really up to it I could send you the code.
It is possible to get the mac address using ASP code but I have to tell you that this is not reliable 'coz we tried it. Some use proxy and the mac address of the server is what we get not the mac of the particular user who is accessing the web page. But anyway if you are really up to it I could send you the code.
- Thread starter
- #3
We used this code also to track things, make the best out of it.
<%
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" 'Used to delete the temp file
Set fso = nothing
GetMACAddress = macaddress
End Function
%>
<HTML>
<HEAD>
<TITLE> MAC MAN</TITLE>
</HEAD>
<BODY>
<%Response.Write("Your IP is : " & strIP & "<BR>" & vbcrlf)%>
<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
</BODY>
</HTML>
<%
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"
Thenmacaddress = trim(split(data,"="
(1))Exit Do
End If
loop
ts.close
Set ts = nothing
'fso.deletefile "c:\" & strIP & ".txt" 'Used to delete the temp file
Set fso = nothing
GetMACAddress = macaddress
End Function
%>
<HTML>
<HEAD>
<TITLE> MAC MAN</TITLE>
</HEAD>
<BODY>
<%Response.Write("Your IP is : " & strIP & "<BR>" & vbcrlf)%>
<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
</BODY>
</HTML>
- Thread starter
- #6
- Status
Similar threads
- Locked
- Question
- Locked
- Question