如何用ASP来获取网卡的MAC地址

最新推荐文章于 2022-11-05 14:51:09 发布

原创最新推荐文章于 2022-11-05 14:51:09 发布 · 2.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#asp #vbscript #function #html #null #c

博客展示了一段用VBScript编写的代码，通过Request.ServerVariables获取客户端IP和主机名，定义GetMACAddress函数，利用nbtstat -A命令获取客户端MAC地址，最后在HTML页面输出客户端的IP和MAC地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%@ 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
%>
<HTML>
<HEAD>
<TITLE>Say Hello To the MAC MAN</TITLE>
</HEAD>
<BODY>
<%Response.Write("Your IP is : " & strIP & "" & vbcrlf)%>
<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
</BODY>
</HTML>