Функция OpenEventLog

Declare Function OpenEventLog Lib "advapi32.dll" Alias "OpenEventLogA" ( _
    ByVal lpUNCServerName As String, _
    ByVal lpSourceName As String) _
    As Long

Возвращаемое значение

В успешном случае возвращается дескриптор журнала событий. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки)

Параметры

lpUNCServerName

Имя сервера для которого ведется лог. Если параметр равен 0, то используется локальный компьютер

lpSourceName

Имя log-файла, возвращаемый дескриптором. Может иметь имена Application, Security или System, а также зарегистрированное собственное имя. Если собственный зарегистрированный лог-файл не будет найден, то используется Application

Пример

' Узнаем числ записей журнала событий
Dim hEventLog As Long
Dim lEventLogRecordCount As Long
Dim lRet As Long
    
hEventLog = OpenEventLog(vbNullString, "Application")
If hEventLog = 0 Then
         Debug.Print "Ошибка при открытии OpenEventLog"
         Exit Sub
End If
    
lRet = GetNumberOfEventLogRecords(hEventLog, lEventLogRecordCount)
    If lRet = 0 Then
         Debug.Print "Ошибка при вызове GetNumberOfEventLogRecords"
         Exit Sub
    Else
        Debug.Print "Число записей: " & CStr(lEventLogRecordCount)
    End If
                
lRet = CloseEventLog(hEventLog)
    If lRet = 0 Then
         Debug.Print "Ошибка при вызове CloseEventLog"
         Exit Sub
End If

Смотри также

Категория