【转】批处理：获取局域网计算机名列表

@echo off
@::qvivid is here
@title Get_Computer_List(1-254)NameOnly

:beginning
echo off >COMPUTER_LIST.TXT
set /a count=1

:loop
echo %count%
if %count% GTR 254 goto out
call :findcom 192.168.1.%count%
:endcall
set /a count+=1
goto loop

goto eof

:findcom
ping -n 1 -l 16 -w 20 %1 | find "Reply" ||goto endcall
echo.
for /f "tokens=1" %%A in ('nbtstat -a %1 ^| find "<00> UNIQUE"') do echo %%A >>COMPUTER_LIST.TXT
goto endcall


:out
echo.
echo.
echo Welcome! You are Out!
@pause
goto eof


:err
echo.
echo Something Wrong
@pause

:eof
exit
@::qvi