BATCH - Abfrage wenn ein bestimmter Task läuft unter einem bestimmten Benutzer gehe zu XY

echo off
title X^&Y Datensicherung KEN!4
REM
REM 	Strucktur des Scriptes:
REM		Arbeitsabläufe:
REM			Beenden von OUTLOOK mit Warteschleife ob OUTLOOK geschlossen ist
REM			Datensicherung selbst
REM			Starten von Outlook
REM			Löschen von Datensicherungen älter 14 Tage
REM 		GOTO:
REM			TASK 	= Überprüfung ob TASK OUTLOOK.exe läuft
REM			BEENDET	= Programm ist Beendet und das Datensicherung fährt fort
REM		Datenpfade:
REM			Datensicherungsquelle:
				Set Quelle="C:\Users\administrator.Domäne\AppData\Roaming\Microsoft\Outlook\1269842416ken.pst"  
REM			Datensicherungsziel:
				Set Ziel="N:\Datensicherung KEN\Backups\%date%"  
REM 					Soweit der Datensicherungspfad geändert wird, muss er auch in VB-Script geändert werden
REM			Programpfad
				Set Programpfad="C:\Program Files (x86)\Microsoft Office\Office12\Microsoft Office Outlook 2007.lnk"  
REM					Verknüfung im Officeverzeichnis zum minimierten Starten
REM			Program
				Set Program=OUTLOOK
REM			Löschscript Sicherungen älter 14 Tage
				Set Delete-14="N:\Datensicherung KEN\Delete-14.vbs"  
REM			Windows Benutzer
				Set Benutzer="DOMÄNE\administrator"	  
cls
echo ===============================================================================
echo.
echo XXX ^& YYY
echo ZZZZZZZZZZZZ
echo.
echo Datensicherung KEN! Organizer
date /t
time /t
echo.
echo ===============================================================================
echo.
echo.
echo.
echo Beende %Program%...
	
:TASK
tasklist /fi "USERNAME eq %Benutzer%" | find "%Program%.exe" /i   
if errorlevel 1 goto BEENDET
echo. 
echo Warte bis %Program% geschlossen ist...
ping 127.0.0.1>nul
goto :TASK
:BEENDET
echo.
echo Datenpfad wird angelegt...
md %Ziel%
echo.
echo Starte die Datensicherung...
xcopy %Quelle% %Ziel% /s /v /c /i /f /h /k /o /x /y
echo.
echo Starte %Program%...
start "" %Programpfad%  
echo.
echo Loesche Datensicherungen die Aelter als 14 Tage sind...
start "" %Delete-14%  
echo.
echo Fertig, das Programm beendet sich in etwa einer Minute...
ping 127.0.0.1 -n 60 >nul
exit

strRootFolder = "N:\Datensicherung KEN\Backups"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set ofolder = fso.GetFolder(strRootFolder)

'Durchlaufe alle Unterverzeichnisse  
for each folder in ofolder.subfolders
  KillFolderSub folder
next


Sub KillfolderSub(objFolder)

  'Durchlaufe alle Unterverzeichnisse  
  for each subfolder in objfolder.subfolders
    KillFolderSub subfolder
  next

  'Wenn Ordner vor mehr als 14 Tagen erstellt wurde...  
  if objFolder.datecreated < (Date - 14) then

    'Alle Dateien im Ordner löschen  
    for each file in objfolder.Files
      fso.DeleteFile(file.Path)
    next

    'Ordner löschen  
    fso.DeleteFolder(objFolder.Path)
  end if

End Sub