DNS解析速度检测脚本

<#
.SYNOPSIS
    Test DNS resolution speed of common DNS servers and recommend the fastest two.
.DESCRIPTION
    This script tests a predefined list of DNS servers by resolving a fixed domain multiple times,
    calculates average response time (ms), sorts results, and outputs a table with recommendations.
.NOTES
    Requires PowerShell 3.0 or later (default on Windows 10).
    If a DNS server is unreachable, it will be skipped and marked as failed.
#>

# Define the test domain (can be modified)
$testDomain = "www.baidu.com"

# Number of tests per DNS (for averaging)
$testCount = 5

# List of DNS servers (Name and IP)
$dnsServers = @(
    @{ Name = "Google DNS"; IP = "8.8.8.8" },
    @{ Name = "Google DNS (alt)"; IP = "8.8.4.4" },
    @{ Name = "Cloudflare DNS"; IP = "1.1.1.1" },
    @{ Name = "Cloudflare DNS (alt)"; IP = "1.0.0.1" },
    @{ Name = "OpenDNS"; IP = "208.67.222.222" },
    @{ Name = "OpenDNS (alt)"; IP = "208.67.220.220" },
    @{ Name = "Quad9 DNS"; IP = "9.9.9.9" },
    @{ Name = "114 DNS"; IP = "114.114.114.114" },
    @{ Name = "Ali DNS"; IP = "223.5.5.5" },
    @{ Name = "Ali DNS (alt)"; IP = "223.6.6.6" },
    @{ Name = "Tencent DNS"; IP = "119.29.29.29" },
    @{ Name = "Baidu DNS"; IP = "180.76.76.76" }
)

Write-Host "Testing DNS resolution speed (domain: $testDomain, each DNS tested $testCount times)..." -ForegroundColor Cyan
Write-Host ""

# Store results
$results = @()

foreach ($dns in $dnsServers) {
    $dnsName = $dns.Name
    $dnsIP = $dns.IP

    Write-Host "Testing $dnsName ($dnsIP) ..." -NoNewline

    $times = @()
    for ($i = 1; $i -le $testCount; $i++) {
        try {
            $measure = Measure-Command {
                Resolve-DnsName -Name $testDomain -Server $dnsIP -ErrorAction Stop
            }
            $times += $measure.TotalMilliseconds
        }
        catch {
            Write-Host " FAILED" -ForegroundColor Red
            $times = $null
            break
        }
    }

    if ($times -and $times.Count -eq $testCount) {
        $avgTime = ($times | Measure-Object -Average).Average
        Write-Host " Avg: $([math]::Round($avgTime, 2)) ms" -ForegroundColor Green
        $results += [PSCustomObject]@{
            DNSName   = $dnsName
            DNSServer = $dnsIP
            AvgTimeMs = [math]::Round($avgTime, 2)
            Status    = "Success"
        }
    }
    else {
        Write-Host " FAILED (unreachable)" -ForegroundColor Red
        $results += [PSCustomObject]@{
            DNSName   = $dnsName
            DNSServer = $dnsIP
            AvgTimeMs = $null
            Status    = "Failed"
        }
    }
}

Write-Host ""
Write-Host "All tests completed. Results:" -ForegroundColor Cyan
Write-Host ""

# Filter successful results and sort by average time
$successResults = $results | Where-Object { $_.Status -eq "Success" } | Sort-Object AvgTimeMs

# Output table (only successful)
if ($successResults.Count -gt 0) {
    $successResults | Format-Table -Property DNSName, DNSServer, AvgTimeMs, Status -AutoSize
} else {
    Write-Host "No successful DNS tests." -ForegroundColor Red
}

# Recommend the fastest two
$top2 = $successResults | Select-Object -First 2
if ($top2.Count -ge 2) {
    Write-Host "Recommended fastest two DNS servers:" -ForegroundColor Yellow
    Write-Host "1. $($top2[0].DNSName) ($($top2[0].DNSServer)) - Avg time $($top2[0].AvgTimeMs) ms"
    Write-Host "2. $($top2[1].DNSName) ($($top2[1].DNSServer)) - Avg time $($top2[1].AvgTimeMs) ms"
}
elseif ($top2.Count -eq 1) {
    Write-Host "Only one DNS server succeeded. Recommended: $($top2[0].DNSName) ($($top2[0].DNSServer)) - Avg time $($top2[0].AvgTimeMs) ms"
}
else {
    Write-Host "No DNS servers available. Please check your network connection." -ForegroundColor Red
}