Btach zum erstellen Regelmäsiger Backups mit WinRar
Das Script holt sich die Datein aus dem gewünschten Verzeichniss und übergibt sie an Winrar dieses schreibt dan die Daten als Backup auf das Zielverzeichnis (in meinem Fall eine Usb-Festplatte)
Das Script holt sich die Datein aus dem gewünschten Verzeichniss und übergibt sie an Winrar dieses schreibt dan die Daten als Backup auf das Zielverzeichnis (in meinem Fall eine Usb-Festplatte)
Zu beachten ist:
rar.exe muss im selben Verzeichnis wie das Script sein.
der NachrichtenDienst muss aktiv sein / als alternative könnte man die msg befehle dur echo ersetzen
Ich habe den Code ein bischen überarbeitet da die zu backupenden Datein jetzt schon die 10 GB Marke überschreiten und dadurch der Laptop wehren des backups ausgeschaltet wird oder die USB-Festplatte abgezogen wird.
Es legt jetzt einen Ordner für die unfolständigen rar-Archife an und informiert beim nächsten mal das dass Backup abgebrochen wurde.
Zudem muss man noch ein kleines vbs Script in den Ordner in dem die BackUp.bat ligt einfügen für eine Bestätigungs Fenster das mitteilt das das Backup vertig ist.
BackUp.bat
okmsg.vbs
Zu beachten ist:
rar.exe muss im selben Verzeichnis wie das Script sein.
der NachrichtenDienst muss aktiv sein / als alternative könnte man die msg befehle dur echo ersetzen
@echo off
title BackUp
rem ###### KONFIG ######
set ziel="F:\DesktopBackup"
set quelle="C:\Users\weber7\Desktop"
set anzahlbackups=3
rem ####################
if not exist %ziel% md %ziel%
if errorlevel 1 goto error1
if not exist %quelle% goto error2
if not exist %ziel%\*-*.rar echo none > %ziel%\1-start.rar
set c=0
:1
if %c%==%anzahlbackups% goto error3
set /a c+=1
if not exist %ziel%\%c%-*.rar goto 1
move /y %ziel%\%c%-*.rar %ziel%\%c%.rar
if %c%==%anzahlbackups% set c=0
set /a c+=1
rar.exe a -rr -rv1 -k -ri0 %ziel%\%c%-%date%.rar %quelle%
goto e
rem ###### ERRORCODES ######
:error1
msg %username% BACKUP_ERROR1: Kann keine Daten auf den Datenträger %ziel% schreiben.
goto e
:error2
msg %username% BACKUP_ERROR2: Die angegäbenen Quelle exsistiert nicht.
goto e
:error3
msg %username% BACKUP_ERROR3: Es fehlt die neuset Bakup Datei oder Die Anzahl der Backup Datein ist zu niedrig.
goto e
rem ########################
rem script made by: Zef
:e
Ich habe den Code ein bischen überarbeitet da die zu backupenden Datein jetzt schon die 10 GB Marke überschreiten und dadurch der Laptop wehren des backups ausgeschaltet wird oder die USB-Festplatte abgezogen wird.
Es legt jetzt einen Ordner für die unfolständigen rar-Archife an und informiert beim nächsten mal das dass Backup abgebrochen wurde.
Zudem muss man noch ein kleines vbs Script in den Ordner in dem die BackUp.bat ligt einfügen für eine Bestätigungs Fenster das mitteilt das das Backup vertig ist.
BackUp.bat
@echo off
title BackUp
rem ###### KONFIG ######
set ziel=F:\DesktopBackup
set quelle=C:\Users\weber7\Desktop
set anzahlbackups=3
rem ####################
if not exist %ziel% md %ziel%
if errorlevel 1 goto error1
if not exist %quelle% goto error2
if exist *.rar.bug del *.rar.bug
if not exist %ziel%\*-*.rar echo none > %ziel%\1-start.rar
set c=0
:1
if %c%==%anzahlbackups% goto error3
set /a c+=1
if not exist %ziel%\%c%-*.rar goto 1
set cc=%c%
if %c%==%anzahlbackups% set c=0
set /a c+=1
if exist log msg %username% < log
echo BACKUP_ERROR4: am %date% wurde das BackUp unterbrochen >> log
rar.exe a -rr -rv1 -k -ri0 %ziel%\%c%-%date%.rar.bug %quelle%
move /y %ziel%\%cc%-*.rar %ziel%\%cc%.rar
move /y %ziel%\%c%-%date%.rar.bug %ziel%\%c%-%date%.rar
del log
okmsg.vbs
goto e
rem ###### ERRORCODES ######
:error1
msg %username% BACKUP_ERROR1: Kann keine Daten auf den Datentraeger %ziel% schreiben.
goto e
:error2
msg %username% BACKUP_ERROR2: Die angegaebenen Quelle exsistiert nicht.
goto e
:error3
msg %username% BACKUP_ERROR3: Es fehlt die neuste Bakup Datei oder Die Anzahl der Backup Datein ist zu niedrig.
goto e
rem ########################
rem script made by: Zef
:e
okmsg.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("Daten wurden gesichert.", 2, "BackUp-Script")
If BtnCode = vbNo Then WScript.Quit(1)
Please also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am Mar 19, 2010 um 16:28:31 Uhr
Codetags nachgezogen
Kommentar vom Moderator Dani am Mar 20, 2010 um 00:28:52 Uhr
Den Kurztext nochmals als normalen Text hinzugefügt. Damit Google auch was zum Indexieren hat. ![face-smile face-smile](/images/icons/fa/light/face-smile.svg)
Content-Key: 138687
Url: https://administrator.de/contentid/138687
Printed on: April 26, 2024 at 17:04 o'clock
2 Comments
Latest comment
![Mitglied: 60730 Mitglied: 60730](/images/members/profile_male_64x64.png)
Btach zum erstellen Regelmäsiger Backups mit WinRar
Tach,Kannst du vielleicht bitte ein paar Kommentar Zeilen dazu schreiben und evtl. mal die schreibFehler ausbügeln?
Zeile
- 4&5 - - da wären ein paar "" nicht ganz verkehrt
- 25 - daß rar im Pfad sein muß und %c%-%date%.rar evtl. bei dem einen oder anderen zu Nebenwirkungen führen könnte.
- welche Dienste eingeschaltet sein müssen und wo die Nachrichten ankommen, wenn das von einem Systemaccount/Scriptjobuser erledigt wird.
- 34 & 37
Dann würde ich auch ein + spendieren.
Gruß und weiter so.