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

ming668

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

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

wxhnr

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


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

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

ming668

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


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

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

120HYH

请法师再次出手

灰袍法师

原帖由 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

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

120HYH

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

请法师看下31楼的问题。

120HYH

产生250多个TXT文件啊。

灰袍法师

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

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