Supportnet / Forum / WindowsXP

Hallo Leute, ich will zur Sicherung von Dateien ein Pack Programm (Winzip, Winrar...) automatisch starten lassen und die Dateien zum sichern automatisch zu einem Archiv zusammenfassen lassen (+Passwort schutz). Ist sowas möglich?? Wenn ja mit welchem Programm und wie?? Vielen Dank für eure Hilfe!

moin

habe mal so ne ähnliche frage gestellt.

https://supportnet.de/threads/209233

die parameter findest du auch gut im netz.

g,
disco

Hi,
versuchs mal mit diesen VBScript. Passe es nach deinen Vorstellungen an und kopiere es in Notepad und bennenne es winstart.vbs und in den Autostart-Ordner ablegen.
Mit dem Script kannst du verschiedene Programme zeitgesteuert starten. Eignet sich daher für Backprogramme.

starts=1
datum="01.09.1999"
backup=7

´Beispiel f�r einen selbstmodifizierenden Windows-Starter (PC-Welt SH 1/01)
´Die ersten drei Zeilen werden jeweils vom Script neu geschrieben
´Der Rest ist konstant
´Die nachfolgenden Programme und Pfadnamen dieses Scripts sind anzupassen
´Das angepasste Script ist in den Autostart-Ordner zu kopieren oder im Run-Schl�ssel der Registry einzutragen

Set MyShell = Wscript.CreateObject("Wscript.Shell")

If datevalue(datum) <> date() then ´neuer Tag
starts = 0

backup=backup - 1
if backup=0 then
backup=7
MyShell.Run("C:\TOOLS\BATCH\BACKUP.BAT"),2,true
´BACKUP.BAT ist eine einfache Batch mit einigen Xcopy32-Zeilen
´Die Batch startet nur alle 7 Betriebstage - leicht zu ndern durch andere Startzahl (statt 7)
end if

MyShell.Run("C:\TOOLS\BATCH\STARTER.BAT"),2,True
´STARTER.BAT ist eine Aufrumbatch (Temp-Dateien, MRU-Listen u..m.)
MyShell.Run("C:\apps\PMAIL\winpm-32.exe")
´Mail-Client startet beim Windows-Start
MyShell.Run("C:\apps\lotus\organize\org32.exe D:\Aktuell\home\my.or4")
´Terminplaner startet beim Windows-Start
End if ´neuer Tag - Ende

select case starts ´Windows wurde heute bereits gestartet
case 5 ´5 mal
starts = 0
MyShell.Run("C:\apps\PMAIL\winpm-32.exe")
case 3 ´3 mal
MyShell.Run("C:\TOOLS\BATCH\STARTER.BAT"),2
case else
End Select

MyScriptName = WScript.ScriptFullName
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Set MyText = MyFiles.OpenTextFile(MyScriptName, 1)
MyText.SkipLine
MyText.Skipline
MyText.Skipline
MyRest=MyText.readall ´Lesen dieser Scriptdatei ohne die drei ersten Zeilen
MyText.Close

Set MyText = MyFiles.CreateTextFile(MyScriptName, True)
MyText.Write "starts=" & starts + 1 & chr(13) & chr(10)
MyText.Write "datum=" & chr(34) & date() &chr(34) & chr(13) & chr(10)
MyText.Write "backup=" & backup & chr(13) & chr(10)
´Schreiben der Anfangszeilen abgeschlossen
MyText.Write MyRest ´Schreiben des konstanten Rests
MyText.Close

MfG, Solo

du kannst es aber auch hiermit versuchen:

KW´s Datenbackup
Lizenz: Freeware
Sprache: Deutsch
Version: 1.7.7
Betriebssystem: Windows 95/98/ME/NT/2000/XP
Dateigröße: 3774 KByte
 
Mit KW´s Datenbackup werden Backups automatisch und im Hintergrund abwickelt. Sie können definierte Dateien, oder Verzeichnisstrukturen mit Hilfe einer Filterfunktion zu definierten Zeitpunkten automatisch in verschiedenen Verzeichnissen oder Laufwerken sichern. Alte Dateien können nach einer bestimmten Anzahl von Tagen automatisch gelöscht oder umbenannt werden. Mit Hilfe von Skripts können Sie die Sicherung komplett steuern.