vbscript tabort grejer ur loggen

Jag sitter och gör ett script som sparar hur många sidor varje person på nätverket har skrivigt ut och använder denna koden

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'System' AND EventCode = 10")
For Each objEvent in colLoggedEvents

	
	
	Meddelande = objEvent.Message
	
	ASidor = getPages(Meddelande)
	
	objRecordset.AddNew
	objRecordset("Person") = objEvent.User 
    	objRecordset("AntalSidor") = aSidor
    	objRecordset.Update
    	
Next

Det fungerar bra..
Men jag vill även att det som jag sparar i databasen skall tas bort ur loggen för det skall inte räknas mer än en gång, hur skall jag göra det lättast?

tänkte bara tillägga också att jag vill ha en ny post i databasen för varje utskrift efterom det även skall vara loggat med dator och skrivare osv.

Mig veterligt, rätta mig gärna någon, så kan man inte ta bort en enstaka post ur loggen, utan det närmaste man kommer i såfall är att rotera hela loggen ....

/M

ok.. då får jag logga datum och tid också. så jag har något att jämföra med så det inte läggs in två gånger.