set wshshell = createobject("Wscript.shell")
wshshell.popup "Backup läuft ...",3,"Hinweis ..."

' Vereinbarung der Variablen 
Dim Datum, Tag, Monat, Jahr, Uhrzeit, Stunde, Minuten, Tagname, Monatname, ZIPParameter, ZIPParameter1, DateiVorhanden, DateiVorhanden1, Dateien_von_S

' Logbucheintrag
set fs = createobject("Scripting.filesystemobject")
set logbuch =fs.opentextfile("H:\Datensicherung\logbuch.txt", 8, true,0)
logbuch.writeline now & ": Start Sicherungsscript."
logbuch.writeline now & ": Start der Datei KORB (Schrottsammler)."
logbuch.close

' Start des Schrottsammlers
ZIPParameter1 = "C:\Programme\WinZip\Wzzip.exe -m -r -P -bs:\ h:\Datensicherung\korb\korb s:\*.tmp s:\~*.* s:\*.bak s:\*.dwk s:\*.sv$ s:\*.err s:\*.dmp s:\*.log t:\*.log t:\*.bak t:\*.log"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run (ZIPParameter1)

' Logbucheintrag
set fs = createobject("Scripting.filesystemobject")
set logbuch =fs.opentextfile("H:\Datensicherung\logbuch.txt", 8, true,0)
logbuch.writeline now & ": Start der ZIP-Routine."
logbuch.close

' Zeit- und Datumsanalyse
  Datum = Date()
  Tag = day(Datum)
  Monat = month(Datum)
  Jahr = year(Datum)
  Uhrzeit = time()
  Stunde = Hour(Uhrzeit)
  Minuten = minute(Uhrzeit)
IF Tag<10 Then ZIPParameter = "0" + Cstr(Tag) Else  ZIPParameter = Cstr(Tag) 
IF Monat<10 Then ZIPParameter = ZIPParameter + "0" + Cstr(Monat) Else ZIPParameter = ZIPParameter +Cstr(Monat)
  ZIPParameter = ZIPParameter +Cstr(Jahr) 
  ZIPParameter = "C:\Programme\WinZip\Wzzip.exe -ybc -a -r -P -bh:\ -t" + ZIPParameter + " h:\Datensicherung\Sicherung\sicherung s:\*.dwg s:\*.doc s:\*.xls s:\*.md* s:\*._a s:\*._j s:\*.mpp s:\*.dxf s:\*.psf"

' Start der Sicherungsroutine
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run (ZIPParameter)

' Logbucheintrag
set fs = createobject("Scripting.filesystemobject")
set logbuch =fs.opentextfile("H:\Datensicherung\logbuch.txt", 8, true,0)
logbuch.writeline now & ": warten auf entstehende Sicherungsdatei."
logbuch.close

' Warteschleife
do
  on error resume next
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f1 = fso.GetFile("h:\Datensicherung\Sicherung\Sicherung.zip")
  DateiVorhanden = fso.fileexists (f1)
loop until DateiVorhanden = "Wahr"

wscript.sleep 5000

' Logbucheintrag
set fs = createobject("Scripting.filesystemobject")
set logbuch =fs.opentextfile("H:\Datensicherung\logbuch.txt", 8, true,0)
logbuch.writeline now & ": vor Umbenennung der Sicherungsdatei."
logbuch.close

' Umbenennung Sicherungsdatei
IF Tag<10 Then Tagname = "0" + Cstr(Tag) Else  Tagname = Cstr(Tag) 
IF Monat<10 Then Monatname = "0" + Cstr(Monat) Else Monatname = Cstr(Monat)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("h:\Datensicherung\Sicherung\sicherung.zip")
f1.Move ("h:\Datensicherung\Sicherung\sicherung-" + Cstr(Jahr) + "-" + Monatname + "-" + Tagname + ".zip")

' Logbucheintrag
set fs = createobject("Scripting.filesystemobject")
set logbuch =fs.opentextfile("H:\Datensicherung\logbuch.txt", 8, true,0)
logbuch.writeline now & ": Umbenannt und Ende des Sicherungslaufes."
logbuch.close

' Warteschleife
do
  on error resume next
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f1 = fso.GetFile("h:\Datensicherung\korb\korb.zip")
  DateiVorhanden1 = fso.fileexists (f1)
loop until DateiVorhanden1 = "Wahr"

wscript.sleep 5000

' Umbenennung Schrottsammler
If DateiVorhanden1 = "Wahr" Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("h:\Datensicherung\korb\korb.zip")
f1.Move ("h:\Datensicherung\korb\korb-" + Cstr(Jahr) + "-" + Monatname + "-" + Tagname + ".zip")
end if

' Logbucheintrag
set fs = createobject("Scripting.filesystemobject")
set logbuch =fs.opentextfile("H:\Datensicherung\logbuch.txt", 8, true,0)
logbuch.writeline now & ": Ende der Schrottsammlung."
logbuch.close