Получение списка событий из журнала Windows

Sub NTLogEvent()
    ' © 2022 ExcelVBA.ru
    Dim i&, sh As Worksheet
    Set sh = Workbooks.Add.Worksheets(1) ' создаём новый файл под вывод данных
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent " & "Where Logfile = 'System'")
    ' выводим заголовок таблицы
    sh.Range("a1").Resize(, 9).Value = Array("Category", _
        "Computer Name", "Event Code", _
        "Record Number", "Source Name", _
        "Time Written", "Event Type", "User", "Message")
 
   Const LIMIT& = 2000 ' ограничение для количества записей
    For Each objEvent In colLoggedEvents ' перебираем записи журнала Windows
        Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(, 9).Value = Array(objEvent.Category, _
        objEvent.ComputerName, objEvent.EventCode, objEvent.RecordNumber, objEvent.SourceName, _
        objEvent.TimeWritten, objEvent.Type, objEvent.User, objEvent.Message)
        i = i + 1: If i > LIMIT& Then Exit For
    Next
    sh.UsedRange.EntireColumn.AutoFit ' автоподбор ширины столбцов
End Sub