Syslog-сервер на Powershell.

Всем привет. 

Для организации своего Syslog-сервера достаточно Powershell. И все? В принципе да. Вам понадобиться небольшой скрипт который я привожу ниже. Автора  я не помню, поэтому фильтрацию по файлам или Facility добавите сами. Это работает!

$day = Get-Date -Format "dd"

$month = Get-Date -Format "MM"

$year = Get-Date -Format "yyyy"

$today = "$day-$month-$year"

$SysLogPort = 514                  # Default SysLog Port

$Buffer = New-Object Byte[] 1024   # Maximum SysLog message size

$EnableMessageValidation = $True   # Enable check of the PRI and Header

$EnableLocalLogging = $True        # Enable local logging of received messages

$EnableConsoleLogging = $True     # Enable logging to the console

$EnableHostNameLookup = $false      # Lookup hostname for connecting IP

$EnableHostNamesOnly = $true       # Uses Host Name only instead of FQDNs

$LogFolder = "C:\scripts\log\"

$CriticalSound = new-Object System.Media.SoundPlayer;

$CriticalSound.SoundLocation="c:\WINDOWS\Media\Windows Critical Stop.wav";

$GoodSound = new-Object System.Media.SoundPlayer;

$GoodSound.SoundLocation="c:\WINDOWS\Media\tada.wav";

Add-Type -TypeDefinition @"

public enum Syslog_Facility

{

        kern,

        user,

        mail,

        system,

        security,

        syslog,

        lpr,

        news,

        uucp,

        clock,

        authpriv,

        ftp,

        ntp,

        logaudit,

        logalert,

        cron,

        local0,

        local1,

        local2,

        local3,

        local4,

        local5,

        local6,

        local7,

}

"@

Add-Type -TypeDefinition @"

public enum Syslog_Severity

{

        Emergency,

        Alert,

        Critical,

        Error,

        Warning,

        Notice,

        Informational,

        Debug

}

"@

function Start-SysLog {

    $Socket = CreateSocket

    StartReceive $Socket

}

function CreateSocket {

    $Socket = New-Object Net.Sockets.Socket(

        [Net.Sockets.AddressFamily]::Internetwork,

        [Net.Sockets.SocketType]::Dgram,

        [Net.Sockets.ProtocolType]::Udp)

    $ServerIPEndPoint = New-Object Net.IPEndPoint(

        [Net.IPAddress]::Any,

        $SysLogPort)

    $Socket.Bind($ServerIPEndPoint)

    Return $Socket

}

function StartReceive([Net.Sockets.Socket]$Socket) {

    # Placeholder to store source of incoming packet

    $SenderIPEndPoint = New-Object Net.IPEndPoint([Net.IPAddress]::Any, 0)

    $SenderEndPoint = [Net.EndPoint]$SenderIPEndPoint

    $ServerRunning = $True

    While ($ServerRunning -eq $True) {

        $BytesReceived = $Socket.ReceiveFrom($Buffer, [Ref]$SenderEndPoint)

        $Message = $Buffer[0..$($BytesReceived - 1)]

        $MessageString = [Text.Encoding]::ASCII.GetString($Message)

        ### вывод для контроля

        # Write-Host $MessageString

        $Priority = [Int]($MessageString -Replace "<|>.*")  

        [int]$FacilityInt = [Math]::truncate([decimal]($Priority / 8))

        $Facility = [Enum]::ToObject([Syslog_Facility], $FacilityInt)

        [int]$SeverityInt = $Priority - ($FacilityInt * 8 )

        $Severity = [Enum]::ToObject([Syslog_Severity], $SeverityInt)

        $HostName =  $SenderEndPoint.Address.IPAddressToString

        if($Facility -eq "System") {

            $MessageString = "[$(Get-Date -Format "yyyy-MM-dd HH:mm:ss")] $HostName <$Severity> - $MessageString"

        }

        else {

            ### вывод для контроля

            # $MessageString = " $MessageString"

            $MessageString = "[$(Get-Date -Format "yyyy-MM-dd HH:mm:ss")] $HostName <$Severity> - $MessageString"

        }

        switch($Severity) {

            Emergency

                    {$Fore = 'White'; $Back = 'Red'}

            Alert

                    {$Fore = 'White'; $Back = 'Red'}

            Error

                    {$Fore = 'Red'; $Back = 'Black'}

            Critical

                    {

                        $Fore = 'Red'; $Back = 'Black'

                        $CriticalSound.Play()

                    }

            Warning

                    {$Fore = 'Black'; $Back = 'Yellow'}

            Notice

                    {$Fore = 'Black'; $Back = 'white'}

            Informational

                    {

                    $Fore = 'White'; $Back = 'Green'

                    ### звучок

                    #$GoodSound.Play()

                    }

            Debug

                    {$Fore = 'Black'; $Back = 'white'}

            default

                    {$Fore = 'White'; $Back = 'Red'}

        }

        Write-Host $MessageString -ForegroundColor $Fore -BackgroundColor $Back

        $Day = (Get-Date).Day

        $DateStamp = (Get-Date).ToString("yyyyMMdd")

        $LogFile = "$LogFolder$DateStamp.log"

        $MessageString >> $LogFile

    }

}

Start-SysLog

Такой вот монитор получается.

Успехов!