windows CMD命令查看局域網內全部主機名及IP

COLOR 0A
CLS
@ECHOOff
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%")doset 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
//該代碼片斷來自於: http://www.sharejs.com/codes/shell/5917

 

 

來自爲知筆記(Wiz)