Foxtable(狐表)用户栏目专家坐堂 → [求助]如何获取局域网内指定IP的网卡MAC?


  共有4146人关注过本帖树形打印复制链接

主题:[求助]如何获取局域网内指定IP的网卡MAC?

帅哥哟,离线,有人找我吗?
逛逛
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12117 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2017/7/15 13:44:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:获取局域网同网段指定ip的mac.table


 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2017/7/15 15:24:00 [只看该作者]

我不只是获取同网段的ip 的mac ,还要获取所有能ping通的机器mac,  这个案例测试的结果是   F0-F0-F0-F0-F0-F0  不知何故

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107474 积分:546649 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/15 15:40:00 [只看该作者]

不能跨网段的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107474 积分:546649 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/15 16:03:00 [只看该作者]

6楼不能执行是因为64位系统的原因,改成这样

Dim mac As String = ""
Dim p As System.Diagnostics.Process  = new System.Diagnostics.Process()
p.StartInfo.FileName = "C:\Windows\sysnative\nbtstat.exe"
p.StartInfo.Arguments = "-A 192.168.199.177"
p.StartInfo.UseShellExecute = False
p.StartInfo.CreateNoWindow = True
p.StartInfo.RedirectStandardInput = False
p.StartInfo.RedirectStandardOutput = True
p.Start()
Dim ot As String = p.StandardOutput.ReadToEnd()
p.WaitForExit()
MessageBox.show(ot)

 回到顶部
帅哥哟,离线,有人找我吗?
ycwk
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8451 威望:0 精华:0 注册:2016/2/2 21:52:00
  发帖心情 Post By:2017/7/15 18:41:00 [只看该作者]

不报错了,但也显示不了

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/16 12:07:00 [只看该作者]

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

Dim mc = System.Text.RegularExpressions.Regex.Matches(strRst, "192+\.168\.[0-9]+\.[0-9]+.+?[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}-[a-z0-9]{2}")
For i As Integer = 0 To mc.count -1
    msgbox(mc(i).value)
Next


 回到顶部
总数 16 上一页 1 2