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

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

网卡从24c02获取设置mac地址

#include #include #include unsigned char mac_read(unsigned char command) { int ret; unsigned ...

网卡MAC地址修改工具

  • 2015-08-06 09:04
  • 826KB
  • 下载

网卡MAC地址克隆软件

  • 2015-11-19 20:14
  • 371KB
  • 下载

C#读网卡MAC地址-WMI方法

昨天听测试组的工程师们在讨论怎么用批处理(DOS)把MAC都出来,保存到文本文件中。观察了一会,看的蛋疼。然后网上搜了一通代码,互联网的搬码工的活就算完了。测试也OK。     今天又回头看了一下,...

获取网卡号【MAC地址】

  • 2014-05-29 10:12
  • 24KB
  • 下载

刷网卡MAC地址的软件

  • 2015-07-11 08:34
  • 588KB
  • 下载

通过WMI获得网卡MAC地址,硬盘序号,主板序号等硬件信息

开发语言:C/C++ 支持平台:Windows 实现功能: 通过WMI获取网卡MAC地址、硬盘序列号、主板序列号、CPU ID、BIOS序列号 下载地址: WMI_DeviceQuery....
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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