擷取動態連接埠

 

@echo off
setlocal EnableDelayedExpansion

set Filepath=%1
set ProtStart=%2
set Filepath="%1\Dport.txt"

if "ProtStart"=="" set ProtStart=1024
:START

for /l  %%a in (%ProtStart%,1,49151) do (
    set  DPort=%%a

    set /a ProtStart+=1

for /F "usebackq skip=4 tokens=2" %%b in (`"netstat -an"`) do (
    set  PortEndStr=%%b

    call :Assoc !PortEndStr!
    set PortEnd=!Var!
)

for /F "usebackq skip=4 tokens=2" %%c in (`"netstat -an"`) do (
    set  PortVar=%%c
    call :Assoc !PortVar!

    if !Var!==!DPort!  goto START

    if !Var!==!PortEnd!  echo !DPort!>"!Filepath!" & goto END
)

    call :Assoc !PortStart!

)

:END
echo Final Port=!DPort!

:Assoc
::對%1(第一個參數）進行分割，將第二個參數傳給%%e。在本程式中，%1即為上面的%%i(形式為：IP:連接埠號碼)
for /F "tokens=2 delims=:" %%d in ("%1") do (
    set  Var=%%d
)