[网络连接] [已解决]批处理如何检测局域网在线计算机名与ip地址，并保存到txt文件中？

ygqiang

@echo off

for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
    set fsip=%%i
)
echo %fsip%
pause


for /f "tokens=1,2,3 delims=." %%i in ("%fsip%") do (
    set a=%%i.%%j.%%k
)

set Gateway=%a%.1
echo %a%
pause

del /f /q 在线ip.txt
del /f /q 离线ip.txt

for /l %%m in (1,1,254) do (

        ping.exe %a%.%%m -n 1 -w 300 >nul&&echo %a%.%%m>>在线ip.txt||echo %a%.%%m>>离线ip.txt

)
exit
复制代码

这个bat的功能是：
机器都装xp系统，检测局域网在线ip，并保持到txt文件中

能否添加代码，实现如下功能：

1、在txt文件中，前面显示计算机名字，后面显示对应的ip，比如下面这种：
bbjy                   192.168.9.27
bnjy                   192.168.9.26
ZWTSJYS2          192.168.9.28
wjljfn001            192.168.9.32

最好ip地址最前面，都是距离计算机名的最前面20个字符（因为有的计算机名比较长）

这个只要上面与下面的ip地址大体能对齐就可以，不需要太严格

2、同一个局域网中，计算机的工作组不同，代码是否需要考虑到这种情况？

ygqiang

@echo off &setlocal enabledelayedexpansion
Title 局域网空闲IP查询
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 程序完成,谢谢使用!@Wenguolin.Com
pause>nul
复制代码

网上找到的这个bat代码，可以获取本地局域网内的计算机名。

ygqiang

能否将2楼与1楼的代码，合并在一起呢？

这样应该就可以满足我的需求了吧？

ygqiang

顶。请帮忙解决下问题，谢谢

ygqiang

顶。下。。。

ygqiang

多谢10楼朋友。

经过测试，可以正常运行。非常感谢