77七

@echo off & setlocal enabledelayedexpansion
rem 主要代码引用 https://zhangge.net/5050.html
>"ping&telent_result.txt" echo IP地址 端口通断
for /f "tokens=1-2" %%a in ('type "port_list.txt"') do (
	call :check_port "%%a" "%%b"
)
pause & exit
:check_port
set server_ip=%~1
set serverport=%~2

echo 正在ping !server_ip!
>>ping.txt ping !server_ip!

start /min cmd.exe /k "echo q|telnet -e 'q' !server_ip! !serverport! & exit"
ping -n 3 127.1>nul
echo 正在检测 !server_ip! 的 !serverport! 端口... 
(tasklist /fi "windowtitle eq Telnet !server_ip!" | find "cmd.exe" >nul && (
	echo !server_ip!:!serverport!端口异常
	(taskkill /f /t /fi "imagename eq cmd.exe" /fi "windowtitle eq Telnet !server_ip!") 1>nul
) || (
	echo !server_ip!:!serverport!端口正常
))>>"ping&telent_result.txt"
goto :eof
复制代码