windows CMD命令查看局域網內所有主機名及IP

原文的代碼中莫名少了一些空格

現在特整理了一下。同時變更了第一個for的參數。測試平台為win10.

轉載自： https://www.cnblogs.com/huangtailang/p/4369611.html

COLOR 0A
CLS
::@ECHO Off
::Title查詢局域網內在線電腦IP
:send
@ECHO OFF
setlocal enabledelayedexpansion
ECHO 正在獲取本機的IP地址，請稍等...
for /f "tokens=2 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