@echo off
title 检测主机连接信息 By: Encle
setlocal EnableDelayedExpansion
set separator=--------------------------------------------------------------
set result=checkhost.txt

date /T > %result%
echo %time% >> %result%

:: 查看本机网络连接信息
echo. >> %result%
echo 本机网络连接信息： >> %result%
ipconfig | find ":" >> %result%
echo.%separator% >> %result%

:: 检测各主机
for /f %%a in (pingip.txt) do (
    call :pinghost %%a
)

echo. >> %result%
date /T >> %result%
echo %time% >> %result%

echo 检测完毕,按任意键将打开详细结果文件...
pause > nul
notepad %result%
exit

:: pinghost子程序
:pinghost
ping -n 3 -w 200 %1 >> %result% 
if %errorlevel%==0 (echo ping %1 ok) else (echo ping %1 failed)
echo.%separator% >> %result%
复制代码