Quelltext der Seite Port-Test Skript

Param($customserver, $customports) 
 
Function Connection-test($server,$singleport) {
    Return (Test-netConnection $server -port $singleport -WarningAction SilentlyContinue -ErrorAction SilentlyContinue ).TcpTestSucceeded
}
 
Function Server-test($server,$ports) {
    if([bool]($server -as [ipaddress]) -ne $true) {
        $serverip=$null    
        $serverip = (Test-Connection $server -Count 1 -WarningAction SilentlyContinue -ErrorAction SilentlyContinue).IPV4Address.ipaddresstostring
    } 
    else {[string]$serverip = $server}
 
    if($serverip) {
        ('{0,-55} {1,-20}' -f "`t$env:COMPUTERNAME -> $server", "$serverip") | write-host -NoNewline -fore DarkGray
        "TCP" | Write-host -NoNewLine -Fore Green
 
        foreach($singleport in ($ports.trim()).split(",")) {
            $status = connection-test $server $singleport
            if($status){ 
                Write-host ",$status`:$singleport" -NoNewline -fore Green 
            }
            else { 
                Write-host ",$status`:$singleport" -NoNewline -fore Red   
            }
        }
    }
    else {
        write-host ('{0,-55}' -f "`t$env:COMPUTERNAME -> $server") -NoNewline -fore DarkGray
        Write-host " DNS FAILED" -NoNewline -fore Red
        Write-host "`r"
        return
    }
    Write-host "`r"
}
 
Function test-start($servers, $ports) {
    foreach($server in $servers) {
        if(!$server){break}
        Server-test $server $ports
    }
}
 
Function Main($customserver, $customports) {
    if(($customserver) -and ($customports)) {
        Write-host "Starting custom port test" -ForegroundColor Yellow
        test-start $customserver $customports
    }
    Else {
        #Write-host "Starting default port test" -ForegroundColor Yellow
        [array]$ports  = @()
        [array]$server = @()
 
         
        # Google Web-Server
        $ports   = "80,443,9443"
        $server  = "google.ch"
        test-start $server $ports
 
        # Windows AD servers
        $ports   = "53,88,135,389,445,464,636,3268,3269"
        $server  = "dc02.lab",
                   "dc01.lab"
        test-start $server $ports
    }
    return
}
cls
Main $customserver $customports