 |
|
怎樣獲取客戶端ip及mac地址?
|
|
|
獲取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 & ".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
| |
|
上一篇：在ASP中获取客户端MAC地址的方法
下一篇：在客戶端實現datagrid的選取
|
普克创业投资网刊载此文不代表同意其说法或描述，仅为提供更多信息。
|
|
当前位置： 普克>>计算机教程>>asp>>客户端相关>>怎樣獲取客戶端ip及mac地址?
