Script des erreurs dans le générateur d'évènement - VB/VBA/VBS - Programmation
MarshPosté 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.
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'" )
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.
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
Merci de bien vouloir me répondre!!!!