Voici quelques extraits d'un script de la mine:
Dim dtmStart, dtmEnd, sDate, ...
J'ai eu en fait un tableau des dates et je cherchais l'ouverture de session/off/déverrouiller les événements de la journée. J'ai donc construit mes dates complètes de début et de fin à partir de cela.
Je ne vais pas mettre dans le mois de jour et l'année, mais, vous pouvez simplement définir, par exemple sDate = 10100608.
dtmStart = sDate + "000000.000000-420" '0hr on the date in question.
dtmEnd = sDate + "235900.000000-420" ' 23:59 on the date in question
(Notez que le décalage horaire UTC est en quelques minutes ici -420 heure d'éclairage de jour en Amérique du Nord.)
Set colEvents = oWMIService.ExecQuery _
("SELECT * FROM Win32_NTLogEvent WHERE Logfile = 'Security' AND " _
& "TimeWritten >= '" & dtmStart & "' AND TimeWritten < '" _
& dtmEnd & "' AND " _
& "(EventCode = '528' OR EventCode = '540' OR EventCode = '538')")
' Query for events during the time range we're looking for.
double possible de [WMI - EventLog - Intervalle de temps] (http://stackoverflow.com/questions/3585436/wmi-eventlog-time-interval) – Helen