知识大全在ASP中获取客户端MAC地址的方法

Posted 2022-07-21 来宾

篇首语：前方无绝路，希望在转角。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在ASP中获取客户端MAC地址的方法相关的知识，希望对你有一定的参考价值。

在ASP中获取客户端MAC地址的方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　本程序属于一种特别的方法使用范围比较有限而且有一定的危险性借鉴了asp后门里的一些方法下面是程序代码　　　　＜%　　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　　　　Response Write(GetMac(remoteaddr))　　由于读取某IP的网卡MAC地址　　本程序通过调用arp命令通过查询本机arp表读取特定IP的MAC地址　　使用本程序需注意以下事项　　本程序需要 WSCRIPT SHELL 和 Scripting FileSystemObject 两个组件请确保您的服务器可以正常使用这两个组件　　本程序需要调用cmd exe程序请确保IIS来宾帐号对程序有访问权限　　本程序需要临时文件保存结果请确保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 & IP True) 保证arp表中有此IP　　Call oScript Run ( cmd exe /c arp a & IP & > & szTempFile True)　　Set oFile = oFileSys OpenTextFile (szTempFile False )　　All=oFile ReadAll()　　oFile Close　　If (IsObject(oFile)) Then　　Call oFileSys DeleteFile(szTempFile True)　　End If　　arr = Split(All vbCrLf)　　If UBound(arr) = Then　　ipc = InStr( arr( ) Internet Address )　　phyc = InStr( arr( ) Physical Address )　　typec = InStr( arr( ) Type )　　If typec > phyc And phyc > ipc And ipc > Then　　GetMac=Ucase(Trim(CStr(Mid(arr( ) phyc typec phyc))))　　End If　　End If　　End function　　%＞ cha138/Article/program/ASP/201311/21739

知识大全 在ASP中获取客户端MAC地址的方法

知识大全在ASP中获取客户端MAC地址的方法