Portscan with Powershell

So I found myself in need of a tool which could check whether or not one or more ports are open on a large amount of servers.
I ended up with this in powershell:

param([string]$list1,[string]$list2)


if ($list1 -eq ""){


    Write-Host "Please supply Host-list!!" -ForegroundColor Red


    break


    }


If ($list2 -eq ""){


    Write-Host "Please supply Port-List!!" -ForegroundColor Red


    break


    }


[Array]$hostlist = Get-Content $list1


[Array]$ports = Get-Content $list2


$ErrorActionPreference = "SilentlyContinue"


$ping = new-object System.Net.NetworkInformation.Ping


foreach ($ip in $hostlist) {


    $rslt = $ping.send($ip)


    if (! $?){


        Write-Host "Host: $ip - not found" -ForegroundColor Red


    }


    else {


        if ($rslt.status.tostring() –eq “Success”) {


            write-host "Host: $ip - Ports: " -foregroundColor Green -NoNewline


            foreach ($port in $ports){


                $socket = new-object System.Net.Sockets.TcpClient($ip, $port)


                if ($socket –eq $null) {


                    write-host "$port," -ForegroundColor Red -NoNewline


                }


                else {


                    write-host "$port,"-foregroundcolor Green -NoNewline


                    $socket = $null


                }


            }


        }


        else {


            write-host "Host: $ip - down" -ForegroundColor Red


        }


    }


Write-Host ""


}


$ping = $null

The script is executed in the following manner:

[ ] PS> .\script.ps1 hostlist.txt portlist.txt

In this version, the output of the script is not suited to be piped to a file, as port status is indicated with color.