Simplifier une requête WMI

[siocnarf]

Bonjour,

Je cherche une façon de simplifier ma requête WMI

Set colEvents = Q_objWMIService.ExecQuery _
    ("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 & "'")

Comment pourrais-je mettre ma string dans une variable pour faire quelque chose du genre

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

Merci,