Unter Windows 2000 überprüfen ob Programm schon gestartet ist

@echo off
set retval=0
if "Programm.exe" EQU "" goto usage  
set pn=Programm.exe
goto main

:checkproc
for /f "usebackq tokens=1" %%a in ( `tasklist /fi "imagename eq %pn%"` ) do if "%%a" EQU "%pn%" exit /b 0  
exit /b 1

:main
call :checkproc
set retval=%errorlevel%
goto eof

:usage
echo Aufruf von %0 Prozessname
set retval=1

:eof
if %retval% EQU 0 (
echo Eine Programm ist bereits gestartet, bitte beenden Sie diese und starten Sie dann erneut!
PAUSE
exit
) else (
echo AnKa-fix startet jetzt!
F:
cd "F:\Programme\Programm"  
"F:\Programme\Programm\Programm.exe"  
) 
exit /b %retval%