Vbscript - suppression doublon

Bonjour,

Ici j'affiche toutes les erreurs du systeme. Je que je voudrai, c'est n'affichier qu'une seule fois l'erreur...
Je pensais à un tableau, mais je ne m'y connais pas trop...

J'espère que quelqu'un pourra m'aider

voici mon code:

"
On Error Resume next

strcomputer = "."
'Affiche les erreur system
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'System' AND Type = 'error'")


For Each objEvent in colLoggedEvents

wscript.echo"Source: " & objEvent.SourceName
wscript.echo"ID de l'évenement: " & objEvent.EventCode
wscript.echo"Description: " & objEvent.Message
wscript.echo"Time Written: " & objEvent.timewritten
wscript.echo"Type: " & objEvent.type

Next

"