批處理文件怎么查看(如何實現查看進程使用端口的批處理文件)

@echooff
color1f
TitleXP端口-進程查詢
setlocalenabledelayedexpansion
echo╔--╗
echo本機開放的端口及使用該端口的進程
echo╚--╝
echo------------------------------------
echo端口號進程名稱
ECHOTCP協議:
::利用netstat命令找出使用TCP協議通信的端口,并將結果分割;
::將第二個參數(IP加端口)傳給%%i,第五個參數(PID號)傳給%%j;
for/F"usebackqskip=4tokens=2,5"%%iin(`"netstat-ano-pTCP"`)do(
call:Assoc%%iTCP%%j
echo!TCP_Port!!TCP_Proc_Name!
)

ECHOUDP協議:
for/F"usebackqskip=4tokens=2,4"%%iin(`"netstat-ano-pUDP"`)do(
call:Assoc%%iUDP%%j
echo!UDP_Port!!UDP_Proc_Name!
)
echo按任意鍵退出
pause>nul

:Assoc
::對%1(第一個參數)進行分割,將第二個參數傳給%%e。在本程序中,%1即為上面的%%i(形式為:IP:端口號)
for/F"tokens=2delims=:"%%ein("%1")do(
set%2_Port=%%e
)
::查詢PID等于%3(第三個參數)的進程,并將結果傳給變量?_Proc_Name,?代表UDP或者TCP;
for/F"skip=2usebackqdelims=,tokens=1"%%ain(`"Tasklist/FI"PIDeq%3"/FOCSV"`)do(
::%%~a表示去掉%%a外面的引號,因為上述命令的結果是用括號括起來的。
set%2_Proc_Name=%%~a
)