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-ID: 2836

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

Ausgedruckt am: 13.11.2024 um 22:11 Uhr

hofer
hofer 27.09.2004 um 21:38:07 Uhr
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
Randyman
Randyman 27.09.2004 um 22:15:08 Uhr
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
dai
dai 05.10.2004 um 12:10:30 Uhr
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)