strComputer = "atl-dc-01"

Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_NTLogEvent")


For Each wbemObject In wbemObjectSet
WScript.Echo "Fichier de consignation: " & wbemObject.LogFile & vbCrLf & _
"Numéro d'enregistrement: " & wbemObject.RecordNumber & vbCrLf & _
"Type: " & wbemObject.Type & vbCrLf & _
"Heure généré: " & wbemObject.TimeGenerated & vbCrLf & _
"Source: " & wbemObject.SourceName & vbCrLf & _
"Catégorie: " & wbemObject.Category & vbCrLf & _
"Chaîne de catégorie: " & wbemObject.CategoryString & vbCrLf & _
"Événement: " & wbemObject.EventCode & vbCrLf & _
"Utilisateur: " & wbemObject.User & vbCrLf & _
"Ordinateur: " & wbemObject.ComputerName & vbCrLf & _
"Message: " & wbemObject.Message & vbCrLfNext