BAT-局域网内在线电脑IP

Posted 2020-10-13 疯狂delphi

相关资料：朋友发来的，来源不明。

问题现象：有个朋友问我都在一个内网中，电脑A没有显示器，怎么找到它的IP。

问题处理：

1.登陆路由器查看IP在线情况。

2.用BAT文件显示出在线IP。

 

显示局域网在线电脑IP的BAT文件：

 1 COLOR 0A
 2 CLS
 3 @ECHO Off
 4 Title 查询局域网内在线电脑IP
 5 :send
 6 @ECHO off&setlocal enabledelayedexpansion
 7 ECHO 正在获取本机的IP地址，请稍等... 
 8 for /f "tokens=3 skip=2 delims=: " %%i in (‘nbtstat -n‘) do ( 
 9 set "IP=%%i" 
10 set IP=!IP:~1,-1! 
11 ECHO 本机IP为：!IP! 
12 goto :next 
13 )
14 :next 
15 for /f "delims=. tokens=1,2,3,4" %%i in ("%IP%") do set range=%%i.%%j.%%k 
16 ECHO.&ECHO 正在获取本网段内的其它在线计算机名，请稍等... 
17 ECHO 本网段【%range%.*】内的计算机有： 
18 for /f "delims=" %%i in (‘net view‘) do ( 
19 set "var=%%i" 
20 ::查询在线计算机名称 
21 if "!var:~0,2!"=="\\" ( 
22 set "var=!var:~2!" 
23 ECHO !var! 
24 ping -n 1 !var!>nul 
25 )) 
26 ECHO.
27 ECHO 正在获取本网段内的其它在线计算机IP，请稍等... 
28 for /f "skip=3 tokens=1,* delims= " %%i in (‘arp -a‘) do ECHO IP： %%i 正在使用
29 ECHO.
30 ECHO 查询完毕，按任意键退出...
31 pause>nul

View Code