[讨论]如何读取局域网内某台电脑的网卡MAC地址及计算机名字？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]如何读取局域网内某台电脑的网卡MAC地址及计算机名字？

共有3380人关注过本帖树形打印复制链接主题：[讨论]如何读取局域网内某台电脑的网卡MAC地址及计算机名字？

huangfanzi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

[讨论]如何读取局域网内某台电脑的网卡MAC地址及计算机名字？ 发帖心情

Post By：2019/3/1 13:04:00 [显示全部帖子]

刚开发的一个系统给客户用，遇到一个问题，系统用的是云服务器，客户要求登录系统的客户端电脑必须位于公司内，不可以在公司外登录，我为了便于维护及后续开发又不想把数据库装到这个公司的局域网内的服务器上，

我想了半天，想到一个变通的办法，就是这个公司本身有台24小时开机的服务器，假定IP是 192.168.1.188 我想在登录系统时，读取这个IP的网卡地址或计算机名什么的，

然后比对下，PING通这台电脑并且能得到这台电脑的名字与网卡MAC地址，如果比对一致，继续执行后续代码，不一致，就退出

请问老师，如何读取局域网内指定IP电脑的网卡MAC地址与计算机名，代码如何写？

或有没有别的更好的办法实现我想要的功能，谢谢老师

huangfanzi

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2019/3/1 14:56:00 [显示全部帖子]

老师，我就想获得 192.168.1.188的MAC 上面代码应该如何写？

huangfanzi

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1105 积分：8967 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2019/3/1 15:18:00 [显示全部帖子]

上面代码有些小问题，我改了下，正常了

For i As Integer = 0 To mc.count -1

Dim s As String = mc(i).value

If s.Contains("192.168.1.253") Then

Output.Show(s.Replace("192.168.1.253","").Trim())

End If

但还是有个小问题

如果我想比对的IP地址是 192.168.1.2 ，程序还会返回例如 192.168.1.201 192.168.1.202 等，问题显然是出在Contains上，如何解决呢？

[此贴子已经被作者于2019/3/1 15:33:10编辑过]

主题：[讨论]如何读取局域网内某台电脑的网卡MAC地址及计算机名字？