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

ming668 · 发表于 2011-7-15 11:03

只有过程，没有结果。批处理也出现了，文本文件也出现了，最后也删除所有BAT及其运行结果。只是最后没有将数据取到表格上。
另：18楼的问题是否可以顺带回答一下？
（好象法师说的用net view更快，只是我不会从第三行起取数和消去网络解释名。因为只有一行命令，是否可以直接Shell运行后将结果赋给一个数组，再从数组第三个数据取数，不取网络解释名，再将数据赋给一个下拉框，嘿嘿！！只会想，不懂做）

[ 本帖最后由 ming668 于 2011-7-15 11:23 编辑 ]

wxhnr · 发表于 2011-7-15 11:15

自动获取的IP通常都在一个网段里，比如192.168.1.1----192.168.1.254

小手一抖，一分到手；手提酱油，低头猛走。

[ 本帖最后由 wxhnr 于 2011-7-15 11:16 编辑 ]

ming668 · 发表于 2011-7-15 11:34

原帖由 wxhnr 于 2011-7-15 11:15 发表
自动获取的IP通常都在一个网段里，比如192.168.1.1----192.168.1.254

小手一抖，一分到手；手提酱油，低头猛走。

如果是这样的话，120HYH 可先试一下18楼的代码，你先用ipconfig取得自己IP ，再把代码中的IP段相应的改下。不过时间要130秒左右。

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

请法师再次出手

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

原帖由 120HYH 于 2011-7-15 14:22 发表
请法师再次出手

不知道你的出错是在什么地方吖
你自己把所有的 fileobj.deletefile 开头的行注释掉
然后把.bat 生成的 .txt 文档对应自己ip的那个txt贴上来看看吧
多半就是 ping 命令运行不成功

你自己在命令行窗口人手输入 ping - n 1 - a 192.168.0.1 的运行结果是什么？

VBA运行完毕，EXCEL文档的文件夹应该有一大堆.bat和.txt

如图:

如果没有，再打开一个新的资源管理器快捷键Alt+E，看看默认起始文件夹有没有这些.txt

[ 本帖最后由灰袍法师于 2011-7-15 15:23 编辑 ]

120HYH · 发表于 2011-7-15 15:04

谢谢，我自己PING 我的电脑是192.168.1.101

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

Windows IP Configuration

Ethernet adapter 本地连接:

      Connection-specific DNS Suffix  . :

      IP Address. . . . . . . . . . . . : 192.168.1.101

      Subnet Mask . . . . . . . . . . . : 255.255.255.0

      Default Gateway . . . . . . . . . : 192.168.1.1

ming668 · 发表于 2011-7-15 15:15

请法师看下31楼的问题。

120HYH · 发表于 2011-7-15 15:16

产生250多个TXT文件啊。

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

原帖由 120HYH 于 2011-7-15 15:16 发表
产生250多个TXT文件啊。

那你把对应自己ip的那个 txt 内容贴上来吧

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

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

回复 28楼灰袍法师的帖子

这样的。注释掉

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

回复 28楼 灰袍法师 的帖子

这样的。注释掉

回复 28楼灰袍法师的帖子