Compter les items d'une collection WMI

siocnarf

XLDnaute Occasionnel
Bonjour,

J'essaie de compter les items d'une collection WMI pour la placer en Excel et j'échoue. Est-ce que quelqu'un a une idée??

Code:
strComputer = "172.30.23.202"

UserName = ""
Password = ""

strInformations = "(Type='Informations' and EventCode='500')"
strdatetime = "TimeWritten >= '20100101000000.000000-300' and TimeWritten < '20100121000000.000000-300'"
strcritere = "(Logfile = 'Application')"

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where " & strcritere,,48)

WScript.Echo "Services Started: " & colItems.Count

La requête en tant que tel fonctionne et je l'ai testé mais c'est le count...

Merci,