[Iska]

Cyril, какая ОС на той машине, с которой будут собираться данные логи?

[Serguei Kouzmine]

Cyril,
нужно - значит нужно
начинайте пожалуйста выполнять, и вам помогут

[Cyril]

ОС 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 использовать...

[DJ Mogarych]

Cyril, на Powershell не хотите реализовать?

[Cyril]

DJ Mogarych, На PS уже реализовал. Но оно долго работает. Get-EventLog пол минуты обрабатывает лог-файл.

[Iska]

ОС Windows 2003. »

К сожалению, у меня нет сейчас Windows Server 2003, а на новых ОС хранение уже в других жураналах, и в другом виде. Можно, конечно, под виртуальной машиной скрипт поотлаживать, но как-то нет большого желания .

Но оно долго работает. Get-EventLog пол минуты обрабатывает лог-файл. »

Cyril, а Вы думаете — на WSH быстрее будет? Я лично так не думаю. Разве что LogParser будете пользовать: по опыту он шустрее всего работал.

[Cyril]

Iska, на WSH немного быстрее получается. Нас интересуют только последние записи журнала. Смысла нет обрабатывать весь 16 мегабайтный лог файл.

[DJ Mogarych]

На PS уже реализовал. Но оно долго работает. Get-EventLog пол минуты обрабатывает лог-файл. »

Вот это долго работает? (записи за текущий месяц)

Код:

Get-EventLog System -After (get-date -f 01.MM.yyyy)

[Cyril]

DJ Mogarych, спасибо. так быстрее