下面程序用記事本寫下，報后綴名.txt改成.bat.然后雙擊就可以打開了。
~~~
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 查詢完畢，按ctrl+c鍵退出...
pause>nul
~~~
