查询局域网内在线电脑IP

COLOR 0A
CLS
@ECHO Off
Title 查询局域网内在线电脑IP
:send
@ECHO off&setlocal enabledelayedexpansionECHO 正在获取本机的IP地址，请稍等...
for /f "tokens=3 skip=2 delims=: " %%i in 'nbtstat -n') do 
set "IP=%%i"
set IP=!IP:~1,-1!
ECHO 本机IP为：!IP!
goto :next
):next
for /f "delims=. tokens=1,2,3,4" %%i in "%IP%") do set range=%%i.%%j.%%k
ECHO.&ECHO 正在获取本网段内的其它在线计算机名，请稍等...
ECHO 本网段【%range%.*】内的计算机有：
for /f "delims=" %%i in 'net view') do 
set "var=%%i"
::查询在线计算机名称
if "!var:~0,2!"=="\\" 
set "var=!var:~2!"
ECHO !var!
ping -n 1 !var!>nul
))
ECHO.
ECHO 正在获取本网段内的其它在线计算机IP，请稍等...
for /f "skip=3 tokens=1,* delims= " %%i in 'arp -a') do ECHO IP： %%i 正在使用ECHO.
ECHO 查询完毕，按任意键退出...
pause>nul

转载于:https://www.cnblogs.com/sprinng/p/5528650.html