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

ming668 · 发表于 2011-7-4 17:04

我公司的的局域网是域管理的，我怎么才能用VBA取得局域网上的活动的计算机名，并把它放在EXCEL的指定单元格（每个一格）
能否可用DOS命令去取得结果，再把结果放到单元格中。我记得论坛上有人能做到把DOS命令的结果取出来，5楼有批处理代码。

谢谢灰袍法师的热心回答，本问题答案在6楼、61楼、69楼。
答案后还有法师关于主机名＋IP＋MAC 更深入的研究，还有很多值得学习的知识！

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

ming668 · 发表于 2011-7-5 13:34

高手出来帮忙啊！

ming668 · 发表于 2011-7-6 09:37

还没有人出手吗？

ming668 · 发表于 2011-7-7 11:29

再没有人出手就只好让此贴自由落体了。

ming668 · 发表于 2011-7-7 17:33

追加思路
下列批处理可以做到，能否利用到VBA中呢？

::原理介绍：先通过net view命令获取局域网的所有计算机
::(无法查询没有安装netbios协议的计算机);再ping这些计算机(ping不通也没关系)
::然后查arp缓存。
::code by youxi01@bbs.bathome.net 2008-1-7
@echo off &setlocal enabledelayedexpansion
title 局域网空闲IP查询@bbs.bathome.net
Rem '/*========获取本机的IP地址(局域网)=========*/
echo 正在获取本机的IP地址，请稍等...
for /f "tokens=3 skip=2 delims=: " %%i in ('nbtstat -n') do (
set "IP_addr=%%i"
set IP_addr=!IP_addr:~1,-1!
echo 本机IP为：!IP_addr!
goto :next
)
:next
for /f "delims=. tokens=1,2,3,4" %%i in ("%IP_addr%") do set IP_fd=%%i.%%j.%%k
Rem '/*========获取计算机名============*/
echo.&echo 正在获取局域网内计算机名，请稍等...
echo 处于网段 %IP_fd%.* 的计算机有：&echo.
for /f "delims=" %%i in ('net view') do (
set "var=%%i"
rem ----------获取计算机名称------------
if "!var:~0,2!"=="\" (
set "var=!var:~2!"
echo !var!
Rem ----------ping计算机名--------------
ping -n 1 !var!>nul
)
)
echo.&echo -----------------------------
Rem '/*========提取arp缓存=========*/
echo.&echo 正在获取局域网内计算机IP，请稍等...& echo.
for /f "skip=3 tokens=1,* delims= " %%i in ('arp -a') do echo IP： %%i 已经使用
echo.&echo -----------------------------
echo 程序完成,谢谢使用!
pause>nul

复制代码

下面代码也能实现

@echo off
@echo 中小网络在线IP分布情况>1.txt
setlocal ENABLEDELAYEDEXPANSION
@FOR /F "usebackq delims=, " %%J IN (`net view /domain ^|find "命令執行成功" /v ^|find "The command completed successfully." /v ^|find "命令成功完成" /v ^|find "--" /v ^|find "Domain" /v ^|find "" /v ^|find "コマンドは正常に終了しました" /v /i`) do (
@echo =====domain:%%J========>>1.txt
@echo =====domain:%%J========
@FOR /F "usebackq eol=; delims=, " %%i in (`net view /domain:%%J ^|findstr "\"`) DO (
@FOR /F "usebackq eol=; tokens=1,2,3* delims=\" %%a in (`echo %%i`) do (
@FOR /F "tokens=1,2,3,4* usebackq delims=: " %%K IN (`@ping -a -n 1 -w 100 %%a ^|findstr "Pinging"`) do (
@echo \\%%L %%M>>1.txt
@echo \\%%L %%M
)
)
)
)
echo %0
pause "按任意键退出"

复制代码

我记得论坛上有人能把DOS命令的结果取出放到VBA中

注：以上代码来自批处理之家

[ 本帖最后由 ming668 于 2011-7-7 17:36 编辑 ]

灰袍法师 · 发表于 2011-7-7 23:18

如附件，需要.xls和.bat两个文件

原附件没有考虑延时等待 .bat 的运行结果，附件已修改

再次根据楼主在18楼的提示，增加改变命令行当前工作路径的VBA代码，防止找不到BAT生成的TXT文件

再次根据28楼的技巧，VBA监测BAT的运行，这样就不需要等10秒了

更强的方法在28楼。

[ 本帖最后由灰袍法师于 2011-7-16 17:24 编辑 ]

ming668 · 发表于 2011-7-8 09:23

原帖由 灰袍法师 于 2011-7-7 23:18 发表
如附件，需要.xls和.bat两个文件

这一句出错：文件未找到
Open ThisWorkbook.Path & "\" & mytxt For Input As #1
好象是批处理未运行，先执行一下批处理，再执行VBA就可以了。
还有，能否处理掉右边的空格。（不要去掉所有空格，因为计算机名有可能中间有空格）

[ 本帖最后由 ming668 于 2011-7-8 09:38 编辑 ]

灰袍法师 · 发表于 2011-7-8 18:21

已更正并加入去空格，请重新下载

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

原帖由 灰袍法师 于 2011-7-8 18:21 发表
已更正并加入去空格，请重新下载

谢谢！空格的问题解决了！
但还是这一句出错：文件未找到
Open ThisWorkbook.Path & "\" & mytxt For Input As #1
貌似Shell执行批处理的路径问题，TXT文件还是不能生成，直接执行批处理能得到TXT文件。
下面有相关参考，我试了还不行，给楼上的参考一下。
http://hi.baidu.com/xiaonan33309 ... ca3c4efaf2c0ee.html
http://club.excelhome.net/redire ... amp;goto=nextoldset
http://www.officefans.net/cdb/viewthread.php?tid=87252

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

灰袍法师 · 发表于 2011-7-10 16:36

你把 delay(10000) 增加为 delay(30000)

也就是延时30秒吧

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

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

[ 本帖最后由灰袍法师于 2011-7-10 16:38 编辑 ]

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

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

评分