本文需评论之后方可查看！

@echo off
echo 网段扫描 CODE BY www.car-po.com
title 网段扫描 CODE BY www.car-po.com

color 3f
date /t >%windir%\扫描报告.txt
time /t >>%windir%\扫描报告.txt
echo 以下是对局域网主机扫描记录：>>%windir%\扫描报告.txt
@echo 请输入要扫描的网段或网段内的IP!
:error
set b=1
set /p a=
echo %a% >2.txt
for /f "delims=. tokens=1,2,3" %%i in ("%a%") do set a=%%i.%%j.%%k
ping -n 1 -w 2 %a%.%b% >nul
if errorlevel 1 goto f
if errorlevel 0 goto s
:s
@echo 扫描网关成功！
@echo 扫描网关成功！>>%windir%\扫描报告.txt
goto next
:f
@echo 扫描网关失败！您可能输入了错误的网段或IP！请重新输入！
goto error
:next
set /a b=b+1
if %b% EQU 255 goto finish
set c=%a%.%b%
@echo 正在扫描 %c%
@title 正在扫描 %c% 网段扫描 CODE  BY www.car-po.com
ping -n 1 -w 2 %c% >nul
if errorlevel 1 goto fail
if errorlevel 0 goto success
:success
echo 扫描 %c% 成功！
echo 扫描 %c% 成功 >>%windir%\扫描报告.txt
goto next
:fail
echo 扫描 %c%失败！
goto next

:finish
echo 扫描完成！
echo 扫描完成！>>%windir%\扫描报告.txt
pause
start %windir%\扫描报告.txt