Batchdatei - Löschen von älteren Sicherungen mit wbadmin

@echo off
@title Datensicherung 
@color 1F 

rem ################################################## 
rem #  WBAdmin-Sicherung auf RDX  (v0.1)             # 
rem #              *********************             # 
rem ################################################## 

rem Name des Servers 
set Backupname=%COMPUTERNAME%

rem Datensicherung nach \\%Backupname%\Sicherung (auf RDX) 
set backupdir=\\%Backupname%\Sicherung\



rem ########################################################## 
rem #                    Start Sicherung	             # 
rem ########################################################## 



rem ### Datensicherung ###


rem **** Zeitstempel-String erzeugen ****

for /f "Tokens=1-4 Delims=/. " %%i in ('date /t') do  set dt=%%i-%%j-%%k-%%l  
for /f "Tokens=1" %%i in ('time /t') do set tm=-%%i  
set tm=%tm::=-%
set dtt=%dt%%tm%

rem **** Sicherung starten *****

rem Verzeichnis erstellen, wenn nicht vorhanden
if not exist "%backupdir%\%dtt%" md "%backupdir%\%dtt%"  

rem Sicherung ausführen mit wbadmin
wbadmin start backup -quiet -backuptarget:"%backupdir%\%dtt%" -include:c:,d:  




rem ******************************************************** 
rem * Löschen von älteren Daten				   * 
rem ******************************************************** 

for /f "delims=- tokens=2,3" %%a in ("%dtt%") do set "monat=%%a" &set /a jahr=%%b    

if %monat:~,1%==0 set "monat=%monat:~1%"    

set /a monat-=7  

if %monat% lss 1 (  
  
	set /a monat+=3  
  
	set /a jahr-=1  
	
	)  

if %monat% lss 10 set "monat=0%monat%"    

set "pattern=[0-3]*[0-9]-%monat%-%jahr%-"    

pushd "%backupdir%"    

for /d %%a in (*) do (echo %%a|findstr /r /c:"^%pattern%">nul&& rd /s /q "%%a")    

popd