如何用VBA取得局域网上的计算机名[有新探讨]

g174157601 · 发表于 2011-7-12 15:07

个vba也能做到啊？？

120HYH · 发表于 2011-7-12 15:21

你好，我的局域网没有设IP这些。如何搞

灰袍法师 · 发表于 2011-7-12 19:37

这个链接有VBA代码，可以扫描整个网段的ip和mac，不过貌似速度非常慢，如果对方没开机，或者ip没被使用，那么要等几秒钟，所以255个ip就要差不多十几分钟。
而且还是不能同时给出主机名和ip，加一一对应
http://zhidao.baidu.com/question ... dex=2&fr2=query

还不如ping＋arp命令了

等我查一下微软的WMI对象可不可以。

哎，没用，WMI对象只能获得本机信息，其它主机还是要靠ping

目前还是要靠 .bat 然后读取 bat 生成的文本文件，只是。。。。。。什么命令可以列出主机名＋IP呢？

哦，懂了 ping -a 192.168.0.1 -n 1 -w 1 这样就可以同时得到主机名＋IP
然后靠 arp -a 就可以得到 IP + MAC
靠 net view 可以得到主机名 + 网络解释名

把上面三样结果汇总，就得到主机名＋网络解释名＋IP＋MAC 的一一对应了

而且速度应该也很快。

有空再做了。。。。。。

[ 本帖最后由灰袍法师于 2011-7-12 20:29 编辑 ]

120HYH · 发表于 2011-7-12 22:56

法师，就是法师，谢谢辛苦了。

opelwang · 发表于 2011-7-12 23:36

好贴，关注中，希望能用VBA把局域网中的所有：
电脑名称、IP、登录用户、MAC等等都一一对应....

ming668 · 发表于 2011-7-13 08:08

期待法师的成果！

120HYH · 发表于 2011-7-14 22:32

法师，老师做出来没？让我们学学。

灰袍法师 · 发表于 2011-7-15 05:49

附件用VBA生成BAT，调用BAT，然后删除所有BAT及其运行结果。
用 ipconfig 取得本机IP
然后 ping 本机IP代表的网段 0-254
读取ping的结果，得到IP＋主机名
再用 arp -a 得到IP+MAC
把上述资料整合就得到 IP+主机名+MAC了

速度慢关键是 ping 整个网络的每一个IP实在是要等好久。。。。。。

附件的加速方法是，生成255个bat，每个bat 负责 ping一个ip地址，同时运行这255个BAT，

这样才可以在一分钟内ping完。

不过运行255个bat需要大约 600MB内存，内存少的可以每个bat多ping几个IP，如10个
（修改Const PING_IP_IN_ONE_BAT As Long = 1 为 Const PING_IP_IN_ONE_BAT As Long =  10 即可）

新的附件应该可以正确处理英文版和中文版的 ipconfig 和 ping 的输出结果，但是 arp -a命令也许不行，有待测试。。。。。。

不管三七二十一，这个附件把Ping运行的结果按关键字取出关键行，存放在D列。

哎，我现在发现最好的方法其实是登录路由器管理网页，然后提取网页数据，如我的路由器数据下：
DHCP客户端表
主机名称 IP地址 MAC地址终止时间
iPhone-137 192.168.0.101 18:E7:F4:EB:0F:88 2 日 21 小时 5 分钟 10 秒
Pan-PC 192.168.0.100 00:21:5D:59:82:48 从不
Shirley-PC 192.168.0.102 2C:81:58:E3:11:8E 从不

[ 本帖最后由灰袍法师于 2011-7-24 00:07 编辑 ]

120HYH · 发表于 2011-7-15 09:26

大哥，谢谢了。太棒了。

120HYH · 发表于 2011-7-15 09:32

试了下，没有看到结果啊。我们局域网中电脑没有设置IP，是自动获取那种的。请大师把把脉。

		自动登录	找回密码
密码			免费注册

[已解决] 如何用VBA取得局域网上的计算机名[有新探讨]