PowerShell: Andres Kõrvemaa, testports.ps1

<#

.SYNOPSIS

   Skript hostide portide avatust vastavalt etteantud hostide ja portide mimekijale

.DESCRIPTION

   Skript kontrollib hosti portide avatust vastavalt parameetritena etteantud nimekrijadele. 
   Juhul kui hostide või portide nimekija pole ettantud siis skript lõpetab töö.

Kontrollitavale ip aadressile tehakse nimelahendus ja avatud ja suletud pordid kuvatakse erivärviliselt. Avatud pordid on tulemuses rohelist värvi ja suletud punast värvi.

.EXAMPLE

   ./testports.ps1 hostlist.txt portlist.txt

.VERSION

   0.2

.NOTES

   Autor: Andres Kõrvemaa

1. >

1. Deklareerime parameetrid

param([string]$hostid,[string]$pordid)

1. Kontrollime Hostide nimekirja olemasolu

if ($hostid -eq ""){

   Write-Host "Hostide nimekirja pole määratud! " -ForegroundColor Yellow
   break
   }

1. Kontrollime portide nimekirja olemasolu

If ($pordid -eq ""){

   Write-Host "Portide nimekirja parameetrit pole määratud !!" -ForegroundColor Yellow
   break
   }

1. Loeme failist sisse hostid

[Array]$hostlist = Get-Content $hostid

1. Loeme failist sisse pordid

[Array]$ports = Get-Content $pordid

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

foreach ($ip in $hostlist) {

   $tulemus = $ping.send($ip)

$dnsnimi = ([System.Net.Dns]::GetHostByAddress("$ip")).HostName

   if (! $?){
       Write-Host "Host:" $dnsnimi $ip "- not found" -ForegroundColor Red
   }

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

           write-host  $dnsnimi  $ip "- Ports: " -foregroundColor Yellow -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