Windows下bat批處理腳本使用telnet批量檢測(cè)遠(yuǎn)程端口小記

::使用微軟官方工具【PortQry】進(jìn)行檢測(cè)的代碼：
@echo off  setlocal enabledelayedexpansion

rem 要檢測(cè)的IP和端口
set server_ip='192.168.1.1,192.168.1.2,192.168.1.3'
set serverport='9922'

rem 模塊化調(diào)用
call :check

::****其他代碼略****

:check
rem ※探測(cè)端口模塊--PortQry方案※
for /f "tokens=1,* delims=," %%i in ("!server_ip!") do (
 echo 正在檢測(cè) %%i 的 !serverport! 端口...
 rem 這是關(guān)鍵的檢測(cè)代碼：
 "!tools_dir!\PortQry.exe" -n %%i -p tcp -e !serverport! | find "LISTENIN" >nul  (
  echo 【成功】：可以連接到 %%i:!serverport!
  ) || (
  echo 【失敗】：無法連通 %%i:!serverport!
 )
 echo=
 set server_ip=%%j
 goto check
)
goto :eof 
::*******其他代碼略********

::使用telnet命令檢測(cè)的代碼
@echo off  setlocal enabledelayedexpansion

rem 要檢測(cè)的IP和端口
set server_ip='192.168.1.1,192.168.1.2,192.168.1.3'
set serverport='9922'

rem 模塊化調(diào)用
call :check_port

::****其他代碼略****

:check_port
rem ※探測(cè)端口模塊--telnet方案※
for /f "tokens=1,* delims=," %%i in ("!server_ip!") do (
 echo [No.!check_num!]:正在檢測(cè) %%i 的 !serverport! 端口... 
 rem 新窗口打開telnet，如果端口暢通會(huì)立即退出，腳本會(huì)在3秒后查看telnet窗口是否退出，如果沒有退出表示端口不通！
 start /min cmd.exe /k "echo q|telnet -e 'q' %%i !serverport!  exit"
 ping -n 3 127.1>nul
 rem 查找窗口名為“Telnet ${ip}”的cmd窗口，如果存在則表示此IP不通
 tasklist /fi "windowtitle eq Telnet %%i" | find "cmd.exe" >nul  (
  echo 【失敗】：無法連通 %%i:!serverport!
 ) || (
  echo 【成功】：可以連接到 %%i:!serverport!
 )
 echo=
 set server_ip=%%j
 goto check_port
)
goto :eof
::其他代碼略...

::使用telnet命令檢測(cè)的代碼
@echo off  setlocal enabledelayedexpansion

rem 要檢測(cè)的IP和端口
set server_ip='192.168.1.1,192.168.1.2,192.168.1.3'
set serverport='9922'

::****其他代碼略****
rem 剛開始先計(jì)算telnet.exe的進(jìn)程數(shù)量，避免腳本執(zhí)行之前就已經(jīng)存在telnet.exe
call :telnet_num conf

rem 模塊化調(diào)用
call :check_port

:check_port
set /a check_num+=1
rem ※探測(cè)端口模塊※
for /f "tokens=1,* delims=," %%i in ("!server_ip!") do (
	echo [No.!check_num!]:正在檢測(cè) %%i 的 !serverport! 端口...
	::call :set_iPSec %%i
	rem 使用telnet組合命令進(jìn)行測(cè)試，如果端口暢通會(huì)立即退出，腳本會(huì)在3秒后查看telnet窗口是否退出，如果沒有退出表示端口不通！
	start /min cmd.exe /k "echo q|telnet -e 'q' %%i !serverport!  exit"
	echo=
	set server_ip=%%j
	set total_num=!check_num!
	goto check_port
)

ping -n 3 127.1>nul

#再次計(jì)算telnet進(jìn)程數(shù)量，而且已經(jīng)排除執(zhí)行之前就有的telnet數(shù)量
call :telnet_num

echo 可用數(shù)量為：!telnet_num!
goto :eof

:telnet_num
rem 檢測(cè)telnet進(jìn)程數(shù)量，已排除腳本之前存在telnet
set conf=0
for /f "delims=*" %%i in ('tasklist ^| findstr "telnet.exe"') do (
	if "%1"=="conf" (
		set /a conf+=1
	) else (
		set /a telnet_num+=1
	)	
)
set /a telnet_num=!telnet_num!-!conf!
goto :eof