@echo off rem checklist.csv字段為： IP,名稱,描述,TCP應用端口,UDP應用端口 rem checklist.csv中請使用,@,替換,, 并不要使用()進行內容描述 set e_file=error.log set e_count=0 for /f "skip=1 tokens=1,2,3,4,5* delims=," %%i in (checklist.csv) do call :docheck %%i @%%j @%%k @%%l @%%m call :report goto :eof :docheck set ip=%1 set name=%2 set name=%name:@=% set comment=%3 set comment=%comment:@=% set tcp=%4 set tcp=%tcp:@=% set udp=%5 set udp=%udp:@=% ping %ip% -n 3 -w 300 >nul 2>&1 if NOT %ERRORLEVEL%==0 (echo %time% %ip%[%name%,%comment%] ping error >>%e_file% & set /a e_count=%e_count%+1) else call :portcheck call :report goto :eof :portcheck if not -%tcp%==- for /f "tokens=1,2,3,4,5,6,7,8,9,10* delims=-" %%i in ("%tcp%") do call :tcpcheck %%i %%j %%k %%l %%m %%n %%o %%p %%q if not -%udp%==- for /f "tokens=1,2,3,4,5,6,7,8,9,10* delims=-" %%i in ("%udp%") do call :udpcheck %%i %%j %%k %%l %%m %%n %%o %%p %%q goto :eof :tcpcheck if not -%1==- call :tcpquery %1 if not -%2==- call :tcpquery %2 if not -%3==- call :tcpquery %3 if not -%4==- call :tcpquery %4 if not -%5==- call :tcpquery %5 if not -%6==- call :tcpquery %6 if not -%7==- call :tcpquery %7 if not -%8==- call :tcpquery %8 if not -%9==- call :tcpquery %9 goto :eof :udpcheck if not -%1==- call :udpquery %1 if not -%2==- call :udpquery %2 if not -%3==- call :udpquery %3 if not -%4==- call :udpquery %4 if not -%5==- call :udpquery %5 if not -%6==- call :udpquery %6 if not -%7==- call :udpquery %7 if not -%8==- call :udpquery %8 if not -%9==- call :udpquery %9 goto :eof :tcpquery portqry -n %ip% -e %1 -p tcp || (echo %time% %ip%[%name%,%comment%] tcp port %1 query error >>%e_file% & set /a e_count=%e_count%+1) goto :eof :udpquery portqry -n %ip% -e %1 -p udp || (echo %time% %ip%[%name%,%comment%] udp port %1 query error >>%e_file% & set /a e_count=%e_count%+1) goto :eof :report echo %e_count% rem do whatever you want. such as send error.log by mail goto :eof
