netstat -an | Select-String "TCP" | ForEach-Object {
    $ip = $_ -match "\s+(\d+\.\d+\.\d+\.\d+):\d+\s+" | Out-Null
    if ($ip) {
        $matches[1]
    }
} | Group-Object | Where-Object {$_.Count -gt 100} | Sort-Object Count -Descending | Select-Object Count, Name