Script Vb pour supprimer un evenement dans xp

Fermé
untouchable - 14 juin 2010 à 17:13
 untouchable - 14 juin 2010 à 18:50
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

A voir également:

1 réponse

untouchable
14 juin 2010 à 18:50
upppppppppppp

helpppppppppppppppp :-)
1