Пример работы с логом событий на F#

EventLogExample.fs

open System.Diagnostics

let sizeEventLog (el : EventLog) =
  Microsoft.Win32.Registry.LocalMachine.OpenSubKey( @"System\CurrentControlSet\Services\EventLog\" + el.Log )
  |> Option.ofNull
  |> Option.bind ( fun registryKey -> registryKey.GetValue("FIle") |> Some )
  |> Option.bind Option.ofNull
  |> Option.bind ( fun x -> x.ToString() |> Some )
  |> Option.bind ( fun filePath -> new FileInfo(filePath) |> Some )
  |> Option.bind ( fun fi -> fi.Name |> Some )
  |> Option.fill ""

let showOverflowAction (el:EventLog) = 
  match el.OverflowAction with
  | OverflowAction.OverwriteOlder -> sprintf "Записи сохраняются минимум %d дней." el.MinimumRetentionDays
  | OverflowAction.DoNotOverwrite -> "Более старые записи не перезаписываются."
  | OverflowAction.OverwriteAsNeeded -> "Перезаписывать более старые записи."
  | _ -> ""

printfn "| %-25s | %-25s | %13s | %-10s | %-10s | %s " "Имя журнала" "Описание" "Записей, шт" "Max, kB" "Size, kB" "Обработка переполнения"
printfn "%s" ( String.init 130 (fun _ -> "-") )

EventLog.GetEventLogs()
|> Array.map (fun el -> 
  sprintf "| %-25s | %-25s | %13d | %-10d | %-10A | %s" 
    el.Log el.LogDisplayName el.Entries.Count el.MaximumKilobytes (sizeEventLog el) (showOverflowAction el) )
|> Array.iter ( printfn "%s" )