杨浦区社保中心 平凉路:哪位高手能提供用ASP技术或.NET技术获得客户端MAC地址的代码啊,要正确的(通过测试的)!谢谢

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 19:19:38

<%
strIP = Request.ServerVariables("REMOTE_ADDR")
strMac = GetMAC(strIP)

Function GetMAC(strIP)
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
TempPath="c:\" '临时目录
sh.run "%comspec% /c nbtstat -A " & strIP & " > " &TempPath&strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile(TempPath&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 TempPath&strIP & ".txt"
Set fso = nothing
GetMAC = macaddress
End Function
%>
<HTML>
<HEAD>
<TITLE>Say Hello To the MAC MAN</TITLE>
</HEAD>
<BODY>
<%Response.Write("I P:" & strIP & "" & vbcrlf &"<p>")%>
<%Response.Write("MAC:" & strMac & vbcrlf)%>
</BODY>
</HTML>

已经经过调试!ASP程序