Portscanning

port-scan.ps1

#requires -Version 1
function Test-Port
{
    Param([string]$ComputerName,$port = 5985,$timeout = 1000)
 
    try
    {
        $tcpclient = New-Object -TypeName system.Net.Sockets.TcpClient
        $iar = $tcpclient.BeginConnect($ComputerName,$port,$null,$null)
        $wait = $iar.AsyncWaitHandle.WaitOne($timeout,$false)
        if(!$wait)
        {
            $tcpclient.Close()
            return $false
        }
        else
        {
            # Close the connection and report the error if there is one
            
            $null = $tcpclient.EndConnect($iar)
            $tcpclient.Close()
            return $true
        }
    }
    catch 
    {
        $false 
    }
}

$VerbosePreference = "Continue"
$target = "portquiz.net"
Start-Transcript -Path "$env:temp\portscan-from-$env:computername-2-$target.txt"
1..65535 |% {$port=$_; Write-Verbose "Testing: $port"; if (Test-Port -port $port -ComputerName $target -timeout 400) {Write-Host "Open $port"}} 
Stop-Transcript