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

ming668

原帖由 灰袍法师 于 2011-7-10 16:36 发表
你把 delay(10000) 增加为 delay(30000)

也就是延时30秒吧

也许你的局域网机器多，bat文件需要运行较长时间

你自己估计一下单独运行.bat要多长时间，然后把VBA的延时改为大于这个时间。

应该不是
我把Shell ThisWorkbook.Path & "\" & mybat 下面的代码全部注释掉，TXT 文件还是没有生成。单独执行BAT 文件就能生成TXT文件。

灰袍法师

噢，我懂了，你的目录名带有空格

需要在 ThisWorkbook.Path  & "\" & mybat  前后加上双引号

即把ThisWorkbook.Path 改为 """" & ThisWorkbook.Path & "\" & mybat & """"

注意是四个双引号连用，就可以在输出的字符串创建一个双引号

bmdsjxyw

关注这个，学习！

ming668

原帖由 灰袍法师 于 2011-7-10 22:32 发表
噢，我懂了，你的目录名带有空格

需要在 ThisWorkbook.Path  & "\" & mybat  前后加上双引号

即把ThisWorkbook.Path 改为 """" & ThisWorkbook.Path & "\" & mybat & """"

注意是四个双引号连用，就可以在输 ...

增加了此项：(原因在9楼第一个链接,这是因为SHELL的工作切入点是在Application的默认工作目录中，也就是说，除非在批处理中强行界定目标路径，否则，SHELL执 行批处理时永远都是Application的默认工作目录下进行,而Application的默认工作目录一般都是“我的文档”。）

1. ChDir ThisWorkbook.Path '强制改变默认的工作目录

复制代码

并把ThisWorkbook.Path 改为 """" & ThisWorkbook.Path & "\" & mybat & """"
到此成功,谢谢法师热心且细心的无私帮助!
如此法可行，建议法师优化后更新一下6楼的附件，方便其他人下载到正确答案。

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

120HYH

最好，列出它们这些计算机的MAC地址。哈哈

灰袍法师

MAC地址可以
for 局域网所有地址 ping 地址 -n 1 -w 1
然后用 arp -a

但是不知道如何把这些ip和计算机名称联系起来

120HYH

法师，麻烦你了。相信你能做出来。哈哈

ming668

原帖由 灰袍法师 于 2011-7-11 19:54 发表
MAC地址可以
for 局域网所有地址 ping 地址 -n 1 -w 1
然后用 arp -a

但是不知道如何把这些ip和计算机名称联系起来

法师，附件还要加上下面代码方可成功

1. ChDir ThisWorkbook.Path '强制改变默认的工作目录

复制代码

要获取MAC、IP 、计算机名都可以，把批处理改成下面代码就可以

1. @echo off&title 扫描MAC,IP,计算机名&color a&mode con: cols=60 lines=22
   
2. setlocal enabledelayedexpansion
   
3. set ipq=192.168.2
   
4. set /a ip1=1
   
5. set /a ip2=255
   
6. set /a con=0
   
7. set /a contotal=%ip2%-%ip1%+1
   
8. 
   
9. ::echo      MAC                IP       计算机名 >netnames.txt
   
10. 
    
11. for /l %%i in (!ip1!,1,!ip2!) do (
    
12.         set ip=!ipq!.%%i
    
13.         echo 扫描!ip!
    
14.         ping !ip! -n 1 -w 1 >nul
    
15.         if !errorlevel! equ 0 (
    
16.                 for /f "tokens=1" %%j in ('nbtstat -a !ip! ^| find /i "UNIQUE" ^| find /i "00"') do set pcname=%%j
    
17.                 for /f "tokens=4 delims=* " %%j in ('nbtstat -a !ip! ^| find /i "MAC Address"') do set mac=%%j
    
18.                 echo !mac:~0,-1! !ip! !pcname! >>netnames.txt
    
19.                 set /a con=!con!+1
    
20.         )
    
21. )

复制代码

网上抄来的，我试验了成功，请参考。
还想请教一下：
1、我只想要得到计算机名，不要网络解释名，批处理要怎么改？
2、我最终的目的是要在一个下拉框里可以选择计算机名，然后进行连接数据库，上述的计算机名可否直接赋给一个下拉框？
3、现在这种方法效率太低，能否还有更好的方法，只要达到上述最终目的，不管是DLL还是其他方法都行，看过法师的帖子，知道法师不仅仅是VBA很历害的。

[ 本帖最后由 ming668 于 2011-7-12 10:13 编辑 ]

120HYH

以上没有生成文本文件啊。

ming668

set ipq=192.168.2
要按你的局域网修改。