StrNTLogEventQuery = "("Select * from Win32_NTLogEvent Where Logfile = 'Application' And (Type='Avertissement' or Type='Erreur') or (Type='Informations' and EventCode='500') and TimeWritten >= '" & Q_dtmStartDate & "' and TimeWritten < '" & Q_dtmEndDate & "'")"
Set colEvents = Q_objWMIService.ExecQuery & StrNTLogEventQuery