Code4

Copy to Clipboard

@echo off
setlocal enabledelayedexpansion

:: Archivos de salida
set archivo_txt=conexiones.txt
set archivo_csv=conexiones.csv

:: Escribir encabezados si los archivos no existen
if not exist %archivo_txt% (
    echo Timestamp                 Protocolo   Local                  Remoto                 Estado         PID     Proceso>> %archivo_txt%
    echo ------------------------ ---------- --------------------- --------------------- -------------- ------- ------------------------>> %archivo_txt%
)

if not exist %archivo_csv% (
    echo Fecha,Hora,Protocolo,Local,Remoto,Estado,PID,Proceso>> %archivo_csv%
)

:inicio
for /f "skip=4 tokens=1,2,3,4,5" %%a in ('netstat -n -o') do (
    set "protocolo=%%a"
    set "local=%%b"
    set "remoto=%%c"
    set "estado=%%d"
    set "pid=%%e"

:: Obtener nombre de proceso por PID
    for /f "tokens=1,*" %%p in ('tasklist /FI "PID eq %%e" /NH') do (
        set "proceso=%%p"
    )

set "fecha=%date%"
    set "hora=%time%"
    set "linea=!protocolo! !local! !remoto! !estado! !pid! !proceso!"

find "!linea!" %archivo_txt% >nul
    if errorlevel 1 (
        call :pad_output "!fecha! !hora!" "!protocolo!" "!local!" "!remoto!" "!estado!" "!pid!" "!proceso!"
        echo "!fecha!","!hora!","!protocolo!","!local!","!remoto!","!estado!","!pid!","!proceso!" >> %archivo_csv%
    )
)

timeout /t 5 >nul
goto inicio

:pad_output
set "ts=%~1"
set "proto=%~2"
set "local=%~3"
set "remoto=%~4"
set "estado=%~5"
set "pid=%~6"
set "proc=%~7"

>>%archivo_txt% echo %ts:~0,24%  %proto:~0,10% %local:~0,22% %remoto:~0,22% %estado:~0,14% %pid:~0,7% %proc%
goto :eof