2.8w+
社区成员
如何浏览者的获取mac地址
我想获取网站浏览者的mac地址，试了使用netbios的组件。但只能取得局域网内的用户的mac地址？netbios是不是只能取得局域网的mac地址？我不想使用控件。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
fenlin 2004-09-23
'----------------------提取所有网卡的信息--------------------'
Public Function GetMacInfo()
On Error Resume Next
Dim fso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent
Const MacFile = "TmpYesoulSoft001.LLP"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
SysDir = Split(GlobalMod.GetSysDir, ",")(1)
If InStr(LCase(SysDir), "system32") = 0 Then
GetMacInfo = "本系统只能运行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系统下，不支持32位以下的系统！"
'www.knowsky.com
Exit Function
Else
CmdStr = SysDir + "\Cmd.exe /C " + SysDir + "\Ipconfig.exe /All > " + Server.MapPath(MacFile)
End If
CmdRe = Shell(CmdStr, vbHide)
If CmdRe <> 0 Then
Set MacFileContentFile = fso.OpenTextFile(Server.MapPath(MacFile), 1, False, TristateUseDefault)
'GetMacInfo = MacFileContentFile.ReadAll()
'Response.Flush
FileStr = MacFileContentFile.ReadAll()
MacFileContentFile.Close
Set MacFileContentFile = Nothing
Set AspSleepThread = Server.CreateObject("YesoulSoft.SleepThread")
'定义线程挂起的时间，这里为毫秒
AspSleepThread.SleepTime = 500
AspSleepThread.BeginSleepThread
GetMacInfo = ExecuteOne(FileStr, "Physical Address. . . . . . . . . : (.*)")
Set AspSleepThread = Nothing
Else
GetMacInfo = "系统当前无法获取您的网络信息，请检查权限继承关系后再运行本系统！"
Exit Function
End If
DelFile MacFile
Set fso = Nothing
End Function
'------------------在字符串匹配一次结果-------------------'
Public Function ExecuteOne(inpStr, PatStr)
Dim oRe, oMatch, oMatches
Set oRe = New RegExp
oRe.Pattern = PatStr
inpStr = LCase(inpStr)
oRe.IgnoreCase = True
Set oMatches = oRe.Execute(inpStr)
Set oMatch = oMatches(0)
ExecuteOne = oMatch.SubMatches(0)
End Function
Public Function GetMacInfo()
On Error Resume Next
Dim fso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent
Const MacFile = "TmpYesoulSoft001.LLP"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
SysDir = Split(GlobalMod.GetSysDir, ",")(1)
If InStr(LCase(SysDir), "system32") = 0 Then
GetMacInfo = "本系统只能运行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系统下，不支持32位以下的系统！"
'www.knowsky.com
Exit Function
Else
CmdStr = SysDir + "\Cmd.exe /C " + SysDir + "\Ipconfig.exe /All > " + Server.MapPath(MacFile)
End If
CmdRe = Shell(CmdStr, vbHide)
If CmdRe <> 0 Then
Set MacFileContentFile = fso.OpenTextFile(Server.MapPath(MacFile), 1, False, TristateUseDefault)
'GetMacInfo = MacFileContentFile.ReadAll()
'Response.Flush
FileStr = MacFileContentFile.ReadAll()
MacFileContentFile.Close
Set MacFileContentFile = Nothing
Set AspSleepThread = Server.CreateObject("YesoulSoft.SleepThread")
'定义线程挂起的时间，这里为毫秒
AspSleepThread.SleepTime = 500
AspSleepThread.BeginSleepThread
GetMacInfo = ExecuteOne(FileStr, "Physical Address. . . . . . . . . : (.*)")
Set AspSleepThread = Nothing
Else
GetMacInfo = "系统当前无法获取您的网络信息，请检查权限继承关系后再运行本系统！"
Exit Function
End If
DelFile MacFile
Set fso = Nothing
End Function
'------------------在字符串匹配一次结果-------------------'
Public Function ExecuteOne(inpStr, PatStr)
Dim oRe, oMatch, oMatches
Set oRe = New RegExp
oRe.Pattern = PatStr
inpStr = LCase(inpStr)
oRe.IgnoreCase = True
Set oMatches = oRe.Execute(inpStr)
Set oMatch = oMatches(0)
ExecuteOne = oMatch.SubMatches(0)
End Function
YML 2004-08-02
那有没可能得到网站浏览者的mac地址呢？
bbcbs 2004-07-31
用WSH。不过好多机器都禁用了
wuhuxia 2004-07-31
你自己总结的很对
netbios只能用于局域网mac地址的察看
netbios只能用于局域网mac地址的察看
YML 2004-07-31
狂急
Java获取客户端（浏览器）的MAC地址 1.获取IP方式 public static String getIpAddress(HttpServletRequest request) { String ip = request.getHeader("X-real-ip"); if (ip == null || ip.length() == 0 || "unknown"....
获取访问者MAC地址 IP地址 获取访问者MAC地址 <HTML><HEAD><TITLE>WMI Scripting HTML</TITLE> ; charset=gb2312"> (hResult,pErrorObject, pAsyncContext)" for=foo> document.forms[0].txtMACAddr.value=unescape(MACAddr); document...
使用非ActiveX，获取客户端IP地址、MAC和主机名的方法 前端JS获取客户端信息有两大种方法，一是通过ActiveX控件，二是通过第三方。 如果项目的用户群不明确，用户可能会用各种方式浏览网页，这个时候不推荐使用ActiveX控件；如果做的是企业级项目，目标用户明确，比如...
无线路由MAC地址过滤安全可靠性讨论 无线路由MAC地址过滤安全可靠性讨论/如何实现，真的有效吗，如何防范 【内容导航】 什么是MAC地址过滤 突破MAC地址过滤步骤 捕获的无线客户端MAC地址 更改MAC地址来伪造身份 在Windows下进行...
测试开发笔记 从而使公司获取利润 1简单 2技术要求低 1测试介入时间晚，修改成本高 2有一些问题可能被遗留不会被修改 必须保证 1对被测产品 2需求规格说明书 3系统测试工程师 4需求开发人员 集成测试 integration testing（IT） ...
前端面试题 已知ID的Input输入框，希望获取这个输入框的输入值，怎么做？(不使用第三方框架) 53 希望获取到页面中所有的checkbox怎么做？(不使用第三方框架) 53 设置一个已知ID的DIV的html内容为xxxx，字体颜色设置为黑色...
ASP获取远程MAC地址
Today is Mon.
这周的任务是教会公司的老领导们使用内部论坛
为了免去很多无谓的麻烦我决定以MAC地址自动登陆的方式进行身份验证
关键问题出来了：如何获取浏览者的MAC地址？
以服务器...
Postman 安装：首先下载安装PostMan，打开PostMan官方网站，根据需求下载 Mac/Windows/Linux版本的Post应用程序。https://www.getpostman.com/ 更新：一般打开PostMan的原生应用程式会在应用程式重新载入或启动时检查更新。...
解决WIN 7 不能任意修改无线网卡MAC地址的问题 最近开始折腾WI-FI无线网络密码破解，结果今天灵感一来，发现我已经连带地把WIN7 下不能任意修改MAC地址的问题解决掉了。可以任意修改无线网卡MAC地址，意味着我的无线网卡也可以通过无线盗用别人的IP和MAC上网了，...
Adobe Lightroom Classic CC 2020 Mac(lr cc 2020 mac) 大家期待已久的Adobe Lightroom Classic CC 2020 Mac激活版目前已经正式发布了，简称为lr cc2020。Lightroom Classic CC 2020 Mac是adobe公司开发的一款图片处理软件，为您提供强大的一键式工具和高级控件，使您的...
Mac 从零搭建Android开发环境记录以及提高效率软件推荐 背景：近期工作发生变动，开发环境由windows转向了mac，此前对mac了解甚少，在此记录下配置开发环境的过程，并分享一些高效的工具。 一. 配置Java环境 虽说Android Studio自带了JDK但是OpenJDK还是和JDK有些差异的...
Tomcat面试题+http面试题+Nginx面试题+常见面试题 一般来说，需要性能的web服务，用nginx，如果不需要性能只求稳定，更考虑Apache，后者的各种模块实现的比前者好很多，epoll网络IO模型是nginx处理性能高的根本，但并不是所有情况下epoll大获全胜的，如果本身提供...
arp欺骗获取局域网目标浏览图片 常规情况下，当主机A要和主机B（网关）进行通信的时候，主机A会广播ARP请求以获取主机B的MAC地址。此后，主机B将会回应这个ARP请求，在ARP Reply数据包里声明自己的MAC地址；与此同时，主机B也会将广播中主机A的...
Mac/iOS crash或者地址符号解析——工具篇 本文主要是通过MAC app 来进行分析的，iOS 有细微差别，会在后面具体指出。 1.符号化目的 符号化的目的就是将下图最上端的堆栈变成最面下面的堆栈的过程： 其中 DSYMTest 为测试app的名字 在笔者实际工作中还遇到了...
