4 Wins

@echo off & setlocal ENABLEDELAYEDEXPANSION
for %%a in (A,B,C,D,E,F,G) do (
    for /l %%b in (1,1,6) do (
        set "%%a%%b= "
    )
)
set turn=1
:display
cls
call :analyse
echo Spieler %turn% ist am Zug
echo   A B C D E F G
echo 1 %a1% %b1% %c1% %d1% %e1% %f1% %g1%
echo 2 %a2% %b2% %c2% %d2% %e2% %f2% %g2%
echo 3 %a3% %b3% %c3% %d3% %e3% %f3% %g3%
echo 4 %a4% %b4% %c4% %d4% %e4% %f4% %g4%
echo 5 %a5% %b5% %c5% %d5% %e5% %f5% %g5%
echo 6 %a6% %b6% %c6% %d6% %e6% %f6% %g6%
set /p column=
if %turn%==1 (
    set turn=2
    for /l %%c in (6,-1,1) do (
        if "!%column%%%c!"==" " set "%column%%%c=O" && goto display
    )
)
if %turn%==2 (
    set turn=1
    for /l %%c in (6,-1,1) do (
        if "!%column%%%c!"==" " set "%column%%%c=X" && goto display
    )
)
pause
:analyse
::Horizontal
for /l %%e in (1,1,6) do (
    for %%d in (A,B,C,D,E,F,G) do (
        if !%%d%%e!==X set /a X%%e+=1 && set /a O%%e=0
        if !%%d%%e!==O set /a O%%e+=1 && set /a X%%e=0
        if "!%%d%%e!"==" " set /a O%%e=0 && set /a X%%e=0
        if !X%%e!==4 (
            cls
            call :board
            echo Spieler 2 hat GEWONNEN!
            pause>nul
            exit
        )
        if !O%%e!==4 (
            cls
            call :board
            echo Spieler 1 hat GEWONNEN!
            pause>nul
            exit
        )
    )
)
::Vertikal
for %%f in (A,B,C,D,E,F,G) do (
    for /l %%g in (1,1,6) do (
        if !%%f%%g!==X set /a X%%f+=1 && set /a O%%f=0
        if !%%f%%g!==O set /a O%%f+=1 && set /a X%%g=0
        if "!%%f%%g!"==" " set /a O%%f=0 && set /a X%%g=0
        if !X%%g!==4 (
            cls
            call :board
            echo Spieler 2 hat GEWONNEN!
            pause>nul
            exit
        )
        if !O%%f!==4 (
            cls
            call :board
            echo Spieler 1 hat GEWONNEN!
            pause>nul
            exit
        )
    )
)
exit/b

::Diagonal



:board
echo   A B C D E F G
echo 1 %a1% %b1% %c1% %d1% %e1% %f1% %g1%
echo 2 %a2% %b2% %c2% %d2% %e2% %f2% %g2%
echo 3 %a3% %b3% %c3% %d3% %e3% %f3% %g3%
echo 4 %a4% %b4% %c4% %d4% %e4% %f4% %g4%
echo 5 %a5% %b5% %c5% %d5% %e5% %f5% %g5%
echo 6 %a6% %b6% %c6% %d6% %e6% %f6% %g6%
exit/b