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

wanghaiqn1957 · 发表于 2011-7-28 10:30

原帖由 ming668 于 2011-7-7 17:33 发表
追加思路
下列批处理可以做到，能否利用到VBA中呢？::原理介绍：先通过net view命令获取局域网的所有计算机
无法查询没有安装netbios协议的计算机);再ping这些计算机(ping不通也没关系)
::然后查arp缓存。
:: ...

运行结果：有计算机名、有ip,但无mac,且没有显示计算机名与ip的对应关系

ming668 · 发表于 2011-7-28 17:41

原帖由 wanghaiqn1957 于 2011-7-28 10:30 发表

运行结果：有计算机名、有ip,但无mac,且没有显示计算机名与ip的对应关系

18楼的批处理就可以

wanghaiqn1957 · 发表于 2011-7-29 09:14

原帖由 ming668 于 2011-7-28 17:41 发表

18楼的批处理就可以

谢谢！还是这个简单实用。

wanghaiqn1957 · 发表于 2011-8-2 10:47

原帖由 ming668 于 2011-7-12 10:02 发表

法师，附件还要加上下面代码方可成功ChDir ThisWorkbook.Path '强制改变默认的工作目录要获取MAC、IP 、计算机名都可以，把批处理改成下面代码就可以@echo off&title 扫描MAC,IP,计算机名&color a&mode con: cols= ...

执行bat文件其他都行，就是其中有一张网卡有两个不同的ip地址，真奇了怪了
BC-30-5B-A2-C2-F4 10.19.108.13 20110609-1359
BC-30-5B-A2-C2-F4 10.19.108.14 20110609-1359

灰袍法师 · 发表于 2011-8-10 20:24

原帖由 wanghaiqn1957 于 2011-8-2 10:47 发表

执行bat文件其他都行，就是其中有一张网卡有两个不同的ip地址，真奇了怪了
BC-30-5B-A2-C2-F4 10.19.108.13 20110609-1359
BC-30-5B-A2-C2-F4 10.19.108.14 20110609-1359

不是网卡有两个地址吧，也许是该网段有防扫描，所有IP都将会是路由器的MAC

如我在麦当劳wifi运行程序的结果如下：

113.119.255.1 00-30-88-03-52-64 正在 Ping 113.119.255.1 具有 32 字节的数据:
113.119.255.71 00-30-88-03-52-64 正在 Ping 113.119.255.71 具有 32 字节的数据:
113.119.255.131 ZGC-20110413OEH 00-30-88-03-52-64 正在 Ping ZGC-20110413OEH [113.119.255.131] 具有 32 字节的数据:
113.119.255.169 周洋陆-PC 00-30-88-03-52-64 正在 Ping 周洋陆-PC [113.119.255.169] 具有 32 字节的数据:
113.119.255.183 PC-201001090848 00-30-88-03-52-64 正在 Ping PC-201001090848 [113.119.255.183] 具有 32 字节的数据:
113.119.255.194 LUWEIYONG 00-30-88-03-52-64 正在 Ping LUWEIYONG [113.119.255.194] 具有 32 字节的数据:
113.119.255.219 00-30-88-03-52-64 正在 Ping 113.119.255.219 具有 32 字节的数据:
113.119.255.237 00-30-88-03-52-64 正在 Ping 113.119.255.237 具有 32 字节的数据:
113.119.255.239 00-30-88-03-52-64 正在 Ping 113.119.255.239 具有 32 字节的数据:
113.119.255.240 00-30-88-03-52-64 正在 Ping 113.119.255.240 具有 32 字节的数据:
113.119.255.241 00-30-88-03-52-64 正在 Ping 113.119.255.241 具有 32 字节的数据:
113.119.255.242 00-30-88-03-52-64 正在 Ping 113.119.255.242 具有 32 字节的数据:
113.119.255.243 MICROSOF-D1E9D0 00-30-88-03-52-64 正在 Ping MICROSOF-D1E9D0 [113.119.255.243] 具有 32 字节的数据:
113.119.255.244 00-30-88-03-52-64 正在 Ping 113.119.255.244 具有 32 字节的数据:

limao29 · 发表于 2011-9-18 19:14

灰袍法师发表于 2011-8-10 20:24
不是网卡有两个地址吧，也许是该网段有防扫描，所有IP都将会是路由器的MAC

如我在麦当劳wifi运行程序 ...

该称为OFFICE法师了!确实牛!

liucqa · 发表于 2011-9-18 19:36

嗯，认真学习

goldowl2011 · 发表于 2012-3-16 19:09

Thanks a lot.

w_hb · 发表于 2012-9-13 22:34

太牛了，学习了

benjaing · 发表于 2012-9-14 10:17

zhenshigehaodongxi

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

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