Script des erreurs dans le générateur d'évènement
Script des erreurs dans le générateur d'évènement - VB/VBA/VBS - Programmation
Sujets relatifs:
- Script vbs sur mes dll
- Pb pour intégrer un langage de script (Ch) avec C++
- Code vb et script php, Possible ???
- Script remplir des feuilles DIFFERENTES Excel
- Envoyer un evenement KeyDown à un autre composant ?
- générer un script sql
- Script en php pour des pronostics sportifs ?
- Information sur le langage script TSL ???
- [shell] script pour recuperer le contenu d'une page web.
- Script d'envoi de mail
Marsh Posté le 31-05-2005 à 16:05:57
Bonjour à tous! J'ai un script qui m'affiche touts ce qui se passe dans le générateur d'évènements. Mais je voudrais seulement les erreurs. Comment résoudre ce problème.
Merci de bien vouloir me répondre!!!! 
strComputer = "."
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_NTLogEvent" )
Set wbemServices= wbemServices.ExecQuery("SELECT typename,timegenerated,sourcename,category,eventcode,user,computername FROM Win32_NTLogEvent WHERE Typename='Error'" )
For Each wbemObject In wbemObjectSet
WScript.Echo "Type: " & wbemObject.Type & vbCrLf & _
"Heure : " & wbemObject.Timegenerated & vbCrLf & _
"Source: " & wbemObject.SourceName & vbCrLf & _
"Catégorie: " & wbemObject.Category & vbCrLf & _
"Événement: " & wbemObject.EventCode & vbCrLf & _
"Utilisateur: " & wbemObject.User & vbCrLf & _
"Ordinateur: " & wbemObject.ComputerName & vbCrLf
Next