Quick Script - Check if servers are pingable and have RDP port TCP 3389 open

TestIP_RDP.ps1

Param(
    [String] $Servers
) 

$srvrs = gc $servers
$collection = @()

foreach ($srv in $srvrs){
    $serverStatus = New-Object PSObject
    $serverStatus |Add-Member NoteProperty ServerName $srv
    $serverStatus |Add-Member NoteProperty TimeStamp (Get-Date -f s)
    $serverStatus |Add-Member NoteProperty RDPPort 3389

    Try{
        if((New-Object System.Net.Sockets.TCPClient -ArgumentList $srv,3389 -ErrorAction SilentlyContinue ) -and (Test-Connection $srv -Count 2 -ErrorAction SilentlyContinue -Quiet)){
            $results = "Up"
        }
        else{$results = "Down"}
    } catch {
        $results = "Down"
    }

    $serverStatus |Add-Member NoteProperty Results $results
    $collection += $serverStatus 
}   

$collection | Export-Csv .\ServerStatus.csv -NoTypeInformation