COLOR 0A
CLS
@ECHO Off
Title 查询局域网内在线电脑IP
:send
@ECHO off&setlocal enabledelayedexpansion 

ECHO 正在获取本机的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
复制代码

@echo off
setlocal enabledelayedexpansion
set "aa=	"

cls

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

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

echo %a%

set Gateway=%a%.1

———————————————————————————————————————————————————————————————
cls

del /f /q 当前在线计算机名-ip.txt >nul 2>nul

for /l %%m in (2,1,100) do (
        ping.exe %a%.%%m -n 1 -w 300 >nul&&Call :getname %a%.%%m
)


———————————————————————————————————————————————————————————————


start "" "当前在线计算机名-ip.txt"
exit



———————————————————————————————————————————————————————————————
cls

:getname
set iip=%1
set nname=
for /f "delims=" %%i in ('nbtstat -a !iip! ^| find /i "<00>  UNIQUE"') do (
	echo %%i
	set tii=%%i
	for /f "tokens=1 delims=< " %%j in ("!tii!") do echo %%j!aa!!iip!>>当前在线计算机名-ip.txt
goto :aa
	)
for /f "delims=" %%j in ('nbtstat -a !iip! ^| find /i "Host not found"') do (
	echo %%j
	echo !iip!>>当前在线计算机名-ip.txt
)
:aa
复制代码