本机开放的端口及使用该端口的进程的批处理

@echo off
color 1f
title xp端口-进程查询
setlocal enabledelayedexpansion
echo ╔- -╗
echo 本机开放的端口及使用该端口的进程
echo ╚- -╝
echo ------------------------------------
echo 端口号 进程名称
echo tcp协议:
::利用netstat命令找出使用tcp协议通信的端口，并将结果分割；
::将第二个参数(ip加端口)传给%%i，第五个参数(pid号)传给%%j;
for /f "usebackq skip=4 tokens=2,5" %%i in (`"netstat -ano -p tcp"`) do (
call :assoc %%i tcp %%j
echo !tcp_port! !tcp_proc_name!
)

echo udp协议:
for /f "usebackq skip=4 tokens=2,4" %%i in (`"netstat -ano -p udp"`) do (
call :assoc %%i udp %%j
echo !udp_port! !udp_proc_name!
)
echo 按任意键退出
pause>nul

:assoc
::对%1(第一个参数）进行分割，将第二个参数传给%%e。在本程序中，%1即为上面的%%i(形式为：ip:端口号)
for /f "tokens=2 delims=:" %%e in ("%1") do (
set %2_port=%%e
)
:: 查询pid等于%3(第三个参数)的进程，并将结果传给变量?_proc_name,?代表udp或者tcp；
for /f "skip=2 usebackq delims=, tokens=1" %%a in (`"tasklist /fi "pid eq %3" /fo csv"`) do (
::%%~a表示去掉%%a外面的引号，因为上述命令的结果是用括号括起来的。
set %2_proc_name=%%~a
)