Quick Script Function Test-PingRDP - make a report from a list of servers, testing if it responds to a ping and has RDP open

BV-Test_Ping-RDP

Function Test-PingRDP {
    Param(
        [String]$ServerList,
        [String]$CSVOutput = ".\ServerStatus.csv"
    ) 
 
    $collection = @()

    Get-Content $serverList | ForEach-Object{
        $serverStatus = New-Object PSObject
        $serverStatus |Add-Member NoteProperty ServerName $_
        $serverStatus |Add-Member NoteProperty TimeStamp (Get-Date -f s)
        $serverStatus |Add-Member NoteProperty RDPPort 3389
 
        Try{
            if((New-Object System.Net.Sockets.TCPClient -ArgumentList $_,3389) `
                -and (Test-Connection $_ -Count 2 -Quiet)){
                $results = "Up"
            }
            else{$results = "Down"}
        } catch {
            $results = "Down"
        }
 
        $serverStatus |Add-Member NoteProperty Results $results
        $collection += $serverStatus 
    }   
 
    $collection | Export-Csv $CSVOutput -NoTypeInformation
}