Variablen der ersten 5 zeilen ALLER Txt datein in einem Verzeichnis wiedergeben

Hallo zusammen
Also was ich brauch möchte ist:
diese batch in dem verzeichnis alle txt datein suchen. von der ersten Txt datei zeile 1-5 auslesen und als var speichern
jetzt pingt er die ip an und sagt ob er online ist oder nicht
ab gehts zur 2ten txt datei. "" Problem ist das die txt dateien keinen festen namen haben sondern aus RechnernamenUsername.txt bestehen

@echo off & setlocal

::Aktuelles Verzeichnis
cd /d "%~dp0"
Set AKT=%CD%
cd %AKT%
set AKT=%CD%

::dateityp
set "AltTyp=txt"

:: hier soll er eigendlich alle Txt datein im
:: aktuellen verzeichniss nehmen
:: und irgendwo hier steckt der wurm drin da er dies nicht tut. wo ist mein denkfehler?
for %%b in ('dir /b /od "%AKT%\*.%AltTyp%"') do call :Abfrage %%b


:Abfrage
:: hier liest er die werte aus die in der zeile 1-5 in jeder Txt
:: datein stehen
:: das sind PCname,Username,Datum,Zeit,WANIP
:: und diesere werden in variablen gespeichert
For %%a in (%%b) do (
Set /a "n=1"
call :Schleife
set PCNAME=%Var%

Set /a "n=2"
call :Schleife
set USERNAME=%Var%

Set /a "n=3"
call :Schleife
set DATUM=%Var%

Set /a "n=4"
call :Schleife
set ZEIT=%Var%

Set /a "cnt=1
Set /a "n=5"
call :Schleife
set WANIP=%Var%


:: jetzt soll er die werte die varaiblen nehmen und ausgeben
ping /n 1 %WANIP%
if errorlevel 1 goto nichtda
echo PC ist DA
call :WER
:: wenn er hier ferig ist soll er wieder zur ersten abfrage gehen
:: also der Txt abfrage und zur nächsten datei gehen
)

:nichtda
echo PC ist NICHT da
call :WER
goto :eof

:Schleife
Set /a "cnt=1
for /F "delims=; Tokens=*" %%i in (%%b) do call :setvarFixLine %n% "%%i"
goto :eof

:Wer
echo.
echo "%USERNAME% mit %PCNAME% am %DATUM% um %ZEIT%"
echo.
echo "mit der IP: %WANIP% JETZT IST %TIME%"
ping -n 1 -w 3000 1.2.3.4>nul


:setvarFixLine
If %cnt%==%1 Set "Var=%~2"
Set /a "cnt+=1"
goto :eof

:eof

@echo off

setlocal

::Aktuelles Verzeichnis
cd /d "%~dp0"  
Set "AKT=%CD%"  

::dateityp
set "AltTyp=txt"  


set "Vars=PCName UserName Datum Zeit WANIP"  

for /f "delims=" %%f in ('dir /b /od "%AKT%\*.%AltTyp%" 2^>NUL') do (  
  for /f "tokens=1* delims=:" %%k in ('findstr /n "^" "%%f"') do (  
    if %%k leq 5 (
      set "line=%%l"  
      call :SetVar %%k
    )
  )
  call :ProcessData
)

exit /b


:SetVar
for /f "tokens=%1" %%v in ("%Vars%") do set "%%v=%line%"  
exit /b


:ProcessData
echo %PCName%
echo %UserName%
echo %Datum%
echo %Zeit%
echo %WANIP%
exit /b