[求助]如何获取网卡的mac码. - ASP技术论坛

问题点数：0 回复次数：6

[求助]如何获取网卡的mac码.

在ASP中如何获取网卡的MAC码.我在网上找了一些资料.
<%@ 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>
可是运行的时候提示我:
Microsoft VBScript 运行时错误错误 '800a0046'

没有权限

/wd1.asp，行 11
请问还有其它的方法或者是怎么样才可以获得权限啊?

搜索更多相关主题的帖子: mac　网卡　获取　

第 2 楼

得分:0

回复：（风雨中）[求助]如何获取网卡的mac码.

<%
''用于读取某IP的网卡MAC地址
''本程序通过调用arp命令通过查询本机arp表读取特定IP的MAC地址
''使用本程序需注意以下事项：
''本程序需要“WSCRIPT.SHELL”、“wscript.network”和“Scripting.FileSystemObject”三个组件，请确保您的服务器可以正常使用这三个组件
''本程序需要调用cmd.exe程序，请确保IIS来宾帐号对程序有访问权限。
''本程序需要临时文件保存结果，请确保IIS来宾帐号对临时目录有写权限。

'取客戶端ip
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
hostname=Request.ServerVariables("HTTP_HOST")

'取mac地址
mac=GetMACAddress(userip)

Function GetMACAddress(strIP)
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\" & strIP & ".tmp",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("c:\" & strIP & ".tmp")
macaddress = null
Do While Not ts.AtEndOfStream
data = ucase(trim(ts.readall))
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 & ".tmp"
Set fso = nothing
GetMACAddress = macaddress
End Function