set LOGDIR=%USERPROFILE%\Lokale Einstellungen\Anwendungsdaten\Microsoft\Windows NT\NTBackup\data
set subj1="%computername% Backup Failure"
set subj2="%computername% Backup Successful"
set recipient=alias@domain.de
set blatErrorText=Backup error text for %computername% at %USERDOMAIN% on
set blatOKtext=Backup ran OK text for %computername% at %USERDOMAIN% on
set guiddisplay=E759FC802D61406A9C1B1DDC6764ABEE
set ntbackup=d:\WINNT\system32\NTBACKUP.EXE
set bks=d:\backup\daily.bks
set blat=d:\downloads\blat\blat.exe
set DDSdevice=HP C1537A SCSI Sequential Device

set blatErrorFile="%temp%\%random%%random%.txt"
set blatOKfile="%temp%\%random%%random%.txt"
SET MEDIA=
SET LINE=

rsm.exe inventory /LF"%DDSdevice%" /AFULL
sleep 30
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 dtt=%dt%%tm%
FOR /F "SKIP=2 DELIMS=" %%F IN ('rsm view /cg%guiddisplay% /TPhysical_media') DO (
 SET LINE=%%F
 CALL :PROCESS
)
GOTO :GOTTAPE

:PROCESS
ECHO %LINE% | FINDSTR "Der Befehl" > NUL
IF ERRORLEVEL 1 (
 ECHO %LINE% | FINDSTR "Der Befehl" > NUL
 IF ERRORLEVEL 1 (
  SET MEDIA=%LINE%
 )
)
GOTO :EOF

:NOTAPE
echo %blatErrorText% %dtt% > %blatErrorFile%
%blat% %blatErrorFile% -to %recipient% -s %subj1%
del /q /f "%blatErrorFile%"
GOTO :EOF

:GOTTAPE
IF NOT DEFINED MEDIA ( GOTO NOTAPE )
ECHO Media Name = "%MEDIA%"

:RUNBACKUP
%ntbackup% backup "@%bks%" /n "%computername%-%dtt%" /d "%computername% voll Sicherung" /v:no /r:no /rs:no /hc:on /m normal /j "%computername% voll Sicherung" /l:s /p "4mm DDS" /UM
rsm.exe eject /PF"%computername%-%dtt% - 1" /astart

:BACKUPRAN
FOR /F %%F IN ('DIR /B /A-D /O-D /TW "%LOGDIR%\Backup??.log"') DO (
 SET LOGFILE=%%F
)
ECHO Last modified logfile is "%LOGDIR%\%LOGFILE%"
echo %blatOKtext% %dtt% > %blatOKfile%
%blat% %blatOKfile% -to %recipient% -s %subj2% -attach "%LOGDIR%\%LOGFILE%"
del /q /f "%blatOKfile%"
goto :EOF

:EOF
exit