Script ile Event Log'u boyutuna gore yedeklemek ve temizlemek

Asagidaki ornek script araciligi ile Event Log'unuzu sizin belirleyeceginiz boyutu gecmesi durumunda yedeklemek ve temizlemek icin kullanabilirsiniz, ornekteki boyut kriteri 20MB icin verilmistir. Script Security log disindaki loglar icin calisacak sekilde yazilmistir, ayrinti icin bu linki incelemenizi tavsiye ederim.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Backup, Security)}!\\" _
& strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("SELECT * FROM Win32_NTEventLogFile")
For Each objLogfile in colLogFiles
If objLogFile.FileSize > 20000000 Then
strBackupLog = objLogFile.BackupEventLog _
("c:\scripts\" & objLogFile.LogFileName & ".evt")
objLogFile.ClearEventLog()
End If
Next