 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
?@取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 返回类别: 教程 上一教程: 用REQUEST对象获得机器的环境参数 下一教程: 正则表达式REGULAR EXPRESSION详述 您可以阅读与"怎??取客?端IP及MAC地址"相关的教程: · ASP如何获取客户端真实IP地址 · ASP获取客户端MAC地址 · 在ASP中获取客户端MAC地址的方式 · ASP获取客户端MAC地址(源代码） · VB取网卡MAC地址代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
