programa SocketsYprocesos

::SocketsYprocesos.bat o SocketsYprocesos.cmd
@echo off
echo ╔════════════════════════════════════════════╗
echo ║     Sockets y Procesos - script cmd        ║
echo ║ By JavCasta - Javier Castañón - 2.011      ║
echo ║          http://javcasta.com/              ║
echo ╚════════════════════════════════════════════╝
echo.
@SETLOCAL ENABLEDELAYEDEXPANSION
set delay=5
set socket=%TEMP%\socket.tmp
set proceso=%TEMP%\proceso.tmp
:bucle
netstat -ano | findstr ESTABLISHED > %socket%

for /F "tokens=1,2,3,5" %%i in (%socket%) do (
    tasklist | findstr %%l > %proceso%
    for /F "tokens=1" %%x in (%proceso%) do (set elproceso=%%x)
    echo Socket %%i desde %%j a %%k del proceso= %elproceso%
)

@ping -n %delay% 127.0.0.1 > nul
echo.
echo ╔═══════════════════╗
echo ║  Nuevo muestreo:  ║
echo ╚═══════════════════╝
echo.
goto bucle