Events älter als x im Eventlog mit VBScript sichern und löschen

Ich möchte folgender Teil unseres VBScripts so anpassen, dass nur Events aus dem Eventlog ausgewählt werden, die älter als x sind.

Set cLogFiles = oWMIService.ExecQuery("Select * from Win32_NTEventLogFile where LogFileName='Application'")
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not IsObject(clogfiles) Then
WScript.Echo "** Could not retrieve logs from " & sName

Gibt es überhaupt eine möglichkeit nicht das ganze Eventlog zu löschen?


Gruss und danke