获取Mac地址

最新推荐文章于 2021-08-13 15:47:36 发布

kingapex1

最新推荐文章于 2021-08-13 15:47:36 发布

阅读量1.2k

点赞数

分类专栏： asp 文章标签： vbscript function html null c

asp 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

<%@ 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>