@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

)