Send a message to a SysLog instance

Send-Syslog.ps1

function Send-Syslog {
    param (
        [Parameter(Mandatory, ValueFromPipeline)]
        [String]$Message,

        [String]$LogLevel = 'Information',

        [Parameter(Mandatory)]
        [IPAddress]$IPAddress,

        [Switch]$Tee,

        [Switch]$UseTcp
    )

    begin {
        if ($UseTcp) {
            $tcpClient = [System.Net.Sockets.TcpClient]::new()
            $tcpClient.Connect($IPAddress, 514)
            $stream = $tcpClient.GetStream()
        }
    }

    process {
        if ($Tee) {
            $Message
        }

        $Message = '{0,-20} {1} {2,-15} {3}' -f
            $env:COMPUTERNAME,
            [DateTime]::Now.ToString('u'),
            $LogLevel,
            $Message
        $bytes = [System.Text.Encoding]::Default.GetBytes($Message)

        if ($UseTcp) {
            $stream.Write($bytes, 0, $bytes.Count)
        } else {
            $null = [System.Net.Sockets.UdpClient]::new().Send(
                $bytes,
                $bytes.Count,
                [System.Net.IPEndPoint]::new($IPAddress, 514)
            )
        }
    }

    end {
        if ($UseTcp) {
            $stream.Close()
            $tcpClient.Close()
        }
    }
}