PS C:\Documents and Settings\chills> $today = [DateTime]::Today
PS C:\Documents and Settings\chills> $Events = Get-Eventlog -New 1024 System | Where {$Today -le $_.
TimeWritten}
PS C:\Documents and Settings\chills> $Events |Group EntryType,Source |Format-Table Count,Name -Auto

Count Name
----- ----
    2 Error, Service Control Manager
   14 Information, Service Control Manager
    3 Warning, BTHUSB
    5 Warning, LSASRV
    4 Error, W32Time
    1 Information, RemoteAccess
    1 Error, NETLOGON
    1 Information, Windows Update Agent
    1 Warning, BROWSER
    1 Information, W32Time
    1 Warning, DnsApi