Script Vb pour supprimer un evenement dans xp

Bonjour,

je dois effacer des événements dans le journal d'événements de windows xp. Pour cela on m'a proposer de le faire via vb Script.
Je possede le modele de base. Es ce que vous pourriez me guider pour le modifier svp ?

Je ne sais pas quelles sont les valeurs que je dois mettre. Par exemple, mon ordinateur s'appele 'PC1" et j'aimerai supprimer l'evenement "DCOM", quels sont les parametres a modifier dans le script ci dessous svp ???

Function ClearEventLog(machineName, strType)
strComputer = machineName
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * LogFileName from Win32_NTEventLogFile " _
& "Where LogFileName='" & strType & "'")

For Each objLogfile in colLogFiles
objLogFile.ClearEventLog()
Next

Merci d'avance