查看局域网电脑IP 

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

 

posted @ 2017-07-27 16:43  XinYiBuFang  阅读(103)  评论(0)    收藏  举报