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

ming668 · 发表于 2011-7-10 18:10

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

也就是延时30秒吧

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

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

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

灰袍法师 · 发表于 2011-7-10 22:32

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

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

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

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

bmdsjxyw · 发表于 2011-7-11 07:18

关注这个，学习！

ming668 · 发表于 2011-7-11 09:39

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

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

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

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

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

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

复制代码

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

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

120HYH · 发表于 2011-7-11 10:15

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

灰袍法师 · 发表于 2011-7-11 19:54

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

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

120HYH · 发表于 2011-7-12 09:23

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

ming668 · 发表于 2011-7-12 10:02

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

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

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

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

复制代码

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

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

复制代码

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

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

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

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

ming668 · 发表于 2011-7-12 13:36

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

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

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