bitslave
Goto Top

Protokoll von Batchaktionen

Guten Tag zusammen

Frage:

Ist es eigentlich möglich jede Art von Batchvorgängen (Beisp. mit "XCOPY"
Daten kopieren) zu protokollieren?

Wenn ja, welchen Befehlssatz muss ich in die Batch einfügen.


Danke schon mal...

Content-Key: 2836

Url: https://administrator.de/contentid/2836

Printed on: April 18, 2024 at 12:04 o'clock

Member: hofer
hofer Sep 27, 2004 at 19:38:07 (UTC)
Goto Top
Probiers mal mal volgender masen.

z. B.
xcopy Ordner D:\ >prot.txt

mit dem Zeichen > kannst du in ein Textfile schreiben.

Gruss hofer
Member: Randyman
Randyman Sep 27, 2004 at 20:15:08 (UTC)
Goto Top
Hi,

und mit 2>>&1 bekommst Du gleich noch ausgegebene Meldungen (z.B. Fehlermeldung o.ä.).

Beispiel: xcopy blabla c:\ >protokoll.log 2 >>&1

Damit siehst in Protokoll.log alle Vorgänge die sonst am Bildschirm ausgegeben werden.

Übrigens kannst Du immer mit >> an eine Datei anhängen; > überschreibt.

cu
Randy
Member: dai
dai Oct 05, 2004 at 10:10:30 (UTC)
Goto Top
Hi,

und mit 2>>&1 bekommst Du gleich
noch ausgegebene Meldungen (z.B.
Fehlermeldung o.ä.).

Beispiel: xcopy blabla c:\ >protokoll.log
2 >>&1

Damit siehst in Protokoll.log alle
Vorgänge die sonst am Bildschirm
ausgegeben werden.

Übrigens kannst Du immer mit >>
an eine Datei anhängen; >
überschreibt.

cu
Randy

Hiho!

oder du legst mit %Date%.txt eine Datei mit aktuellem Datum an, und lässt noch zusätzlich eine Funktion laufen, die Dateien älter X Tage löscht.... so mach ich es ^^

Auszug aus meinem VB-Script mit der "delete_logs"-Funktion:

' ###########################################################
' DIESE FUNKTION LÖSCHT DIE LOG-FILES NACH X TAGEN !!!!!!!!!!!!!
' ###########################################################
' ANFANG Eigene Einstellungen
Verzeichnis = "E:\Daten_Backup\!logs" ' Hier wird gelöscht!
Aufheben = 30 ' Anzahl der Tage
' ENDE Eigene Einstellungen
Set fso = CreateObject("Scripting.FileSystemObject")
Set ordner = fso.GetFolder(Verzeichnis)
heute = Date()
DeleteInFolder(ordner)

Sub DeleteInFolder(ordner)
Set dateien = ordner.Files
' Alle Dateien in diesem Ordner abklappern
For Each datei In dateien
If datei.DateLastModified < (heute - Aufheben) Then
datei.Delete
End If
Next
Set untere = ordner.SubFolders
'Unterordner abklappern, DeleteInFolder rekursiv aufrufen
For Each unter In untere
DeleteInFolder(unter)
Next
End Sub

Viel Spaß beim "batchen" ;O)