用于查看Windows安全事件日志的最小F#示例

open System
open System.Diagnostics
open System.Security

let readSecurityLog () =
    let logName = EventLog.LogName("Security")
    let eventLog = new EventLog(logName)

    if not eventLog.Entries.Count = 0 then
        for entry in eventLog.Entries do
            printfn "Event ID: %d" entry.InstanceId
            printfn "Source: %s" entry.Source
            printfn "Message: %s" entry.Message
            printfn "Time Generated: %s" entry.TimeGenerated.ToString()
            printfn "----------------------------------------"
    else
        printfn "No security events found."

[<EntryPoint>]
let main _ =
    readSecurityLog ()
    0