@bobpullen I've had my adjusted version of the script running for the last 1.5 hours. I've noticed that the pings to the router (EE Hub) seem to have a hiccup every 30+ mins. Pings go from 0ms up to 87ms, which is obviously when the router has a little bit of a turn. This largely coincides with ping delay to the BBC website too (going from 2ms to sometimes over 100ms). That said, I so far don't see actual packet loss which is a positive. Interestingly it does not impact my web request for the BBC website.
I'm not sure if you see what I see from your end.
# Path to log file
$LogFile = "network_monitor.log"
# Running averages
$global:AvgPingBBC = $null
$global:AvgPingRouter = $null
$global:PingCountBBC = 0
$global:PingCountRouter = 0
function Update-Average {
param([ref]$CurrentAvg, [ref]$Count, [double]$NewValue)
if ($null -eq $CurrentAvg.Value) {
$CurrentAvg.Value = $NewValue
$Count.Value = 1
} else {
$Count.Value++
$CurrentAvg.Value = (($CurrentAvg.Value * ($Count.Value - 1)) + $NewValue) / $Count.Value
}
}
function Get-Color {
param(
[bool]$StatusOk,
[double]$Ping,
[double]$AvgPing,
[int]$LossPercent
)
if (-not $StatusOk) { return "Red" }
if ($LossPercent -ge 50) { return "Red" }
if ($Ping -gt ($AvgPing * 1.5)) { return "Red" }
if ($LossPercent -gt 0) { return "Yellow" }
if ($Ping -gt $AvgPing) { return "Yellow" }
return "Green"
}
Write-Host "Monitoring started... press Ctrl+C to stop."
while ($true) {
$timestamp = Get-Date -Format "yyyy-MM-dd HH:mm:ss"
$jobs = @()
# DNS resolution checks
$jobs += Start-Job -ScriptBlock {
try {
Resolve-DnsName -Name "bbc.co.uk" -Server "192.168.1.254" -ErrorAction Stop | Out-Null
$true
} catch { $false }
}
$jobs += Start-Job -ScriptBlock {
try {
Resolve-DnsName -Name "bbc.co.uk" -Server "1.1.1.1" -ErrorAction Stop | Out-Null
$true
} catch { $false }
}
$jobs += Start-Job -ScriptBlock {
try {
Resolve-DnsName -Name "bbc.co.uk" -Server "192.168.1.1" -ErrorAction Stop | Out-Null
$true
} catch { $false }
}
# Ping checks
$jobs += Start-Job -ScriptBlock {
$count = 4
$ping = Test-Connection -ComputerName "bbc.co.uk" -Count $count -ErrorAction SilentlyContinue
if ($ping) {
$avg = [math]::Round(($ping | Measure-Object -Property ResponseTime -Average).Average, 2)
$loss = [math]::Round((($count - $ping.Count) / $count) * 100, 0)
@{ Avg = $avg; Loss = $loss }
} else { @{ Avg = $null; Loss = 100 } }
}
$jobs += Start-Job -ScriptBlock {
$count = 4
$ping = Test-Connection -ComputerName "192.168.1.254" -Count $count -ErrorAction SilentlyContinue
if ($ping) {
$avg = [math]::Round(($ping | Measure-Object -Property ResponseTime -Average).Average, 2)
$loss = [math]::Round((($count - $ping.Count) / $count) * 100, 0)
@{ Avg = $avg; Loss = $loss }
} else { @{ Avg = $null; Loss = 100 } }
}
# Web page test
$jobs += Start-Job -ScriptBlock {
$url = "https://www.bbc.co.uk"
$sw = [System.Diagnostics.Stopwatch]::StartNew()
try {
$response = Invoke-WebRequest -Uri $url -UseBasicParsing -TimeoutSec 10
$sw.Stop()
@{ Success = $true; TimeMs = [math]::Round($sw.Elapsed.TotalMilliseconds, 2) }
} catch {
$sw.Stop()
@{ Success = $false; TimeMs = $sw.Elapsed.TotalMilliseconds }
}
}
Wait-Job $jobs | Out-Null
$results = foreach ($job in $jobs) {
try { Receive-Job $job -ErrorAction Stop } catch { $null } finally { Remove-Job $job -Force }
}
$dns1Ok = $results[0]
$dns2Ok = $results[1]
$dnsPiOk = $results[2]
$pingBBC = $results[3]
$pingRouter = $results[4]
$webTest = $results[5]
if ($pingBBC.Avg -ne $null) { Update-Average ([ref]$global:AvgPingBBC) ([ref]$global:PingCountBBC) $pingBBC.Avg }
if ($pingRouter.Avg -ne $null) { Update-Average ([ref]$global:AvgPingRouter) ([ref]$global:PingCountRouter) $pingRouter.Avg }
# Determine colors
$colorDns1 = if ($dns1Ok) { "Green" } else { "Red" }
$colorDns2 = if ($dns2Ok) { "Green" } else { "Red" }
$colorDnsPi = if ($dnsPiOk) { "Green" } else { "Red" }
$colorPingBBC = Get-Color -StatusOk $dns1Ok -Ping $pingBBC.Avg -AvgPing $global:AvgPingBBC -LossPercent $pingBBC.Loss
$colorPingRouter = Get-Color -StatusOk $dns2Ok -Ping $pingRouter.Avg -AvgPing $global:AvgPingRouter -LossPercent $pingRouter.Loss
$colorWebTest = if (-not $webTest.Success) { "Red" }
elseif ($webTest.TimeMs -gt 1500) { "Yellow" }
else { "Green" }
# Compose output strings
$consoleOutput = @(
"$timestamp | DNS(192.168.1.254)=",
$dns1Ok,
" | DNS(1.1.1.1)=",
$dns2Ok,
" | DNS(192.168.1.1)=",
$dnsPiOk,
" | PingBBC=",
"$($pingBBC.Avg) ms (loss=$($pingBBC.Loss)%, avg=$([math]::Round($global:AvgPingBBC,2)))",
" | PingRouter=",
"$($pingRouter.Avg) ms (loss=$($pingRouter.Loss)%, avg=$([math]::Round($global:AvgPingRouter,2)))",
" | WebTest=",
"$($webTest.TimeMs) ms (success=$($webTest.Success))"
)
# Print colored console output
Write-Host $consoleOutput[0] -NoNewline
Write-Host $consoleOutput[1] -ForegroundColor $colorDns1 -NoNewline
Write-Host $consoleOutput[2] -NoNewline
Write-Host $consoleOutput[3] -ForegroundColor $colorDns2 -NoNewline
Write-Host $consoleOutput[4] -NoNewline
Write-Host $consoleOutput[5] -ForegroundColor $colorDnsPi -NoNewline
Write-Host $consoleOutput[6] -NoNewline
Write-Host $consoleOutput[7] -ForegroundColor $colorPingBBC -NoNewline
Write-Host $consoleOutput[8] -NoNewline
Write-Host $consoleOutput[9] -ForegroundColor $colorPingRouter -NoNewline
Write-Host $consoleOutput[10] -NoNewline
Write-Host $consoleOutput[11] -ForegroundColor $colorWebTest
# Decide if logging is needed
$logCondition = -not $dns1Ok -or -not $dns2Ok -or -not $dnsPiOk `
-or ($colorPingBBC -ne "Green") `
-or ($colorPingRouter -ne "Green") `
-or (-not $webTest.Success) `
-or ($webTest.TimeMs -gt 1500)
if ($logCondition) {
$line = "$timestamp | DNS(192.168.1.254)=$dns1Ok | DNS(1.1.1.1)=$dns2Ok | DNS(192.168.1.1)=$dnsPiOk | " +
"PingBBC=$($pingBBC.Avg) ms (loss=$($pingBBC.Loss)%, avg=$([math]::Round($global:AvgPingBBC,2))) | " +
"PingRouter=$($pingRouter.Avg) ms (loss=$($pingRouter.Loss)%, avg=$([math]::Round($global:AvgPingRouter,2))) | " +
"WebTest=$($webTest.TimeMs) ms (success=$($webTest.Success))"
Add-Content -Path $LogFile -Value $line
}
Start-Sleep -Seconds 15
}
