asp 读取网卡mac地址

原创 2005年03月03日 10:26:00

<%
Dim RemoteAddr
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=Empty then
 remoteaddr=Request.ServerVariables("REMOTE_ADDR")
else
 RemoteAddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
If GetMac(RemoteAddr)<> "" then
  session("mac") = GetMac(RemoteAddr)
End If
sql="select * From MacAddress where mac_address='"&GetMac(RemoteAddr)&"'"
set rst = server.CreateObject("ADODB.Recordset")
rst.open sql,conn,1,3
set rst=nothing
Response.Write(GetMac(RemoteAddr))

'由于读取某IP的网卡MAC地址


'本程序调用arp命令通过查询本机arp表读取特定IP的MAC地址


'本程序需要“WSCRIPT.SHELL”和“Scripting.FileSystemObject”两个组件,

'请确保您的服务器可以正常使用这两个组件

'本程序需要调用Cmd.exe程序,临时文件保存结果,请确保IIS来宾帐号对程序有访问权限,

'临时目录有写'权'限。
function GetMac(IP)
On Error Resume Next
Dim oScript
Dim oFileSys, oFile
Dim All, szTempFile,ipc,phyc,typec
Dim TempPath
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
TempPath="d:/temp/"                                                                                                       '临时目录
szTempFile = TempPath & oFileSys.GetTempName()                                            ' 获取临时文件名
Call oScript.Run ("cmd.exe /c ping -n 2 " & IP, 0, True)                                              'Arp表中须有此IP
Call oScript.Run ("cmd.exe /c arp -a " & IP & " > " & szTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
All=oFile.ReadAll()
oFile.Close
If (IsObject(oFile)) Then
  Call oFileSys.DeleteFile(szTempFile, True)
End If
arr = Split(All, vbCrLf)
If UBound(arr) = 4 Then
Ipc= InStr(1, arr(2), "Internet Address")
phyc = InStr(1, arr(2), "Physical Address")
typec = InStr(1, arr(2), "Type")
If typec > phyc And phyc > IpcAnd ipc > 0 Then
GetMac=Ucase(Trim(CStr(Mid(arr(3), phyc, typec - phyc))))
End If
End If
End function
%>

取得系统中网卡MAC地址的三种方法

第一种方法使用Microsoft的Netbios API。 这是一套通过Winsock提供底层网络支持的命令。使用Netbios的最大缺点是您必须在系统中安装了Netbios服务(如果您在window...
  • laogaoAV
  • laogaoAV
  • 2014年03月15日 14:11
  • 1431

VC 获取物理网卡的MAC地址

获取网卡的MAC地址的方法很多,如:Netbios,SNMP,GetAdaptersInfo等。经过测试发现 Netbios 方法在网线拔出的情况下获取不到MAC,而 SNMP方法有时会获取多个重复的...
  • kingepoch
  • kingepoch
  • 2014年04月19日 14:23
  • 1744

vc 获取本机网卡真实mac地址

vc 获取本机网卡真实mac地址
  • bennyyang
  • bennyyang
  • 2016年12月16日 12:54
  • 1338

C# ASP.NET 模块 - 在线获取客户端网卡(MAC)地址

  • 2012年05月16日 15:56
  • 2KB
  • 下载

分析网卡通过i2c总线从e2prom中读取mac地址过程

平台:loongson3A系列CPU+loongson2H桥片的开发板. 每个网卡都有一个独一无二的mac地址,一般这个地址就存放在一个e2prom中,这里就是分析一个网卡初始化过程中,怎么从这...
  • u010383937
  • u010383937
  • 2017年07月25日 19:38
  • 314

网卡MAC地址监视速查系统

  • 2006年03月16日 00:00
  • 270KB
  • 下载

快速取得CPU序列号,网卡Mac地址,硬盘序列号,注册码示例源程序(

  • 2006年02月23日 09:05
  • 1.13MB
  • 下载

获取网卡MAC地址

  • 2006年02月23日 09:05
  • 178KB
  • 下载

取电脑CPU序列号、网卡MAC地址、主板BIOS、操作系统序列号

  • 2006年03月16日 00:00
  • 20KB
  • 下载

系统信息,CPUID,硬盘ID,网卡MAC地址的VS2008实现(非WMI)

  • 2015年02月03日 10:39
  • 5KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp 读取网卡mac地址
举报原因:
原因补充:

(最多只允许输入30个字)