ОС Windows 2003.
по пункту 1 я добавил в select "and TimeGenerated>='20191201'". Как задать текущий месяц - не знаю. Видимо надо сначала функцию Now использовать...
по второму пункту я могу только из строки вырезать подстроки и конкатенацией сконструировать строку с удобочитаемой датой.
Код:
dt = Mid(objEvent.TimeGenerated,7,2) & "." & Mid(objEvent.TimeGenerated,5,2) & "." & Mid(objEvent.TimeGenerated,1,4) & " " & Mid(objEvent.TimeGenerated,9,2) & ":" & Mid(objEvent.TimeGenerated,11,2)
с 3 пунктом я справился так:
Код:
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\print.csv", True)
For Each objEvent in colRetrievedEvents
str = objEvent.TimeGenerated & ";" & objEvent.InsertionStrings(2) & ";" & objEvent.InsertionStrings(3) & ";" & objEvent.InsertionStrings(6) & ";" & objEvent.InsertionStrings(1)
WScript.Echo str
tf.WriteLine (str)
Next
tf.Close
по 4 пункту, я так понял, надо объект dictionary использовать...
