SpeedTester.psm1
|
#Requires -Version 3 function Start-SpeedTest { <# .SYNOPSIS Report your internet Download and Upload speed. .DESCRIPTION Get-Speed leverages speedtest.net hosting servers. Get-Speed will identify the closest hosting server to you and perform a test download and upload. It will then report the average Download and Upload in Mbps. Get-Speed does not accept any parameters at this stage. .EXAMPLE Get-Speed .INPUTS None .NOTES Author: Mark Ukotic Website: http://blog.ukotic.net Twitter: @originaluko GitHub: .LINKS #> [CmdletBinding()] Param( ) # Server distance helper function function Get-ServerInfo { param( [Parameter(Mandatory=$true)] $servers ) foreach($server in $servers) { $radius = 6371 [float]$dlat = ([float]$orilat - [float]$server.lat) * 3.14 / 180 [float]$dlon = ([float]$orilon - [float]$server.lon) * 3.14 / 180 [float]$a = [math]::Sin([float]$dlat/2) * [math]::Sin([float]$dlat/2) + [math]::Cos([float]$orilat * 3.14 / 180 ) * [math]::Cos([float]$server.lat * 3.14 / 180 ) * [math]::Sin([float]$dlon/2) * [math]::Sin([float]$dlon/2) [float]$c = 2 * [math]::Atan2([math]::Sqrt([float]$a ), [math]::Sqrt(1 - [float]$a)) [float]$d = [float]$radius * [float]$c New-Object PSObject -Property @{ Distance = $d Country = $server.country Sponsor = $server.sponsor Url = $server.url Host = $server.host } } } # Avg Ping response helper function function Get-AvgPing { param( [Parameter(Mandatory=$true)] $servers ) foreach ($server in $servers) { $test = (Test-Connection -ComputerName $server -Count 4 | measure-Object -Property ResponseTime -Average).average $response = ($test -as [decimal] ) New-Object PSObject -Property @{ 'Destination' = $server 'Avg' = $response } } } # Download Test helper function function Get-DataWCAsync{ param( [Parameter(Mandatory=$true)] $Url, [switch]$IncludeStats ) $wc = New-Object Net.WebClient $wc.UseDefaultCredentials = $true $start = Get-Date $global:downchange = Register-ObjectEvent -InputObject $wc -EventName DownloadProgressChanged -MessageData @{start=$start;includeStats=$includestats} -SourceIdentifier WebClient.DownloadProgressChanged -Action { filter Get-FileSize { "{0:N2} {1}" -f $( if ($_ -lt 1kb) { $_, 'Bytes' } elseif ($_ -lt 1mb) { ($_/1kb), 'KB' } elseif ($_ -lt 1gb) { ($_/1mb), 'MB' } elseif ($_ -lt 1tb) { ($_/1gb), 'GB' } elseif ($_ -lt 1pb) { ($_/1tb), 'TB' } else { ($_/1pb), 'PB' } ) } $time = ((Get-Date) - $event.MessageData.start) $averagespeed = ($eventargs.BytesReceived * 8 / 1MB) / $time.TotalSeconds $elapsed = $Time.ToString('hh\:mm\:ss') $remainingseconds = ($eventargs.TotalBytesToReceive - $eventargs.BytesReceived) * 8 / 1MB / $averagespeed $receivedsize = $eventargs.BytesReceived | Get-FileSize $totalSize = $eventargs.TotalBytesToReceive | Get-FileSize Write-Progress -Activity (" $url {0:N2} Mbps" -f $averagespeed) -Status ("{0} of {1} ({2}% in {3})" -f $receivedSize,$totalsize,$eventargs.ProgressPercentage,$elapsed) -SecondsRemaining $remainingseconds -PercentComplete $eventargs.ProgressPercentage if ($eventargs.ProgressPercentage -eq 100){ Write-Progress -Activity (" $url {0:N2} Mbps" -f $averagespeed) -Status 'Done' -Completed if ($event.MessageData.includeStats.IsPresent){ $global:down = [Math]::Round($averageSpeed, 2) } } } $null = Register-ObjectEvent -InputObject $wc -EventName DownloadDataCompleted -SourceIdentifier WebClient.DownloadDataCompleted -Action { Unregister-Event -SourceIdentifier WebClient.DownloadProgressChanged Unregister-Event -SourceIdentifier WebClient.DownloadDataCompleted } try { $wc.DownloadDataAsync($url) } catch [System.Net.WebException] { Write-Warning "Download of $url failed" } finally { $wc.Dispose() } } # Upload Test helper function function Push-DataWCAsync{ param( [Parameter(Mandatory=$true)] $url, $byteArray, [switch]$includeStats ) $wc = New-Object Net.WebClient $wc.UseDefaultCredentials = $true $wc.Headers.Add("Content-Type","application/x-www-form-urlencoded") $wc.Headers.Add("Content-Type", "multipart/form-data; charset=ISO-8859-1; boundary=xz9xBzBYzZY") $wc.Headers.Add("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0;Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)") $wc.Headers.Add("Cache-Control", "no-cache") $wc.Headers.Add("Referer", "http://www.speedtest.net") $start = Get-Date $global:upchange = Register-ObjectEvent -InputObject $wc -EventName UploadProgressChanged -MessageData @{start=$start;includeStats=$includeStats} -SourceIdentifier WebClient.UploadProgressChanged -Action { filter Get-FileSize { "{0:N2} {1}" -f $( if ($_ -lt 1kb) { $_, 'Bytes' } elseif ($_ -lt 1mb) { ($_/1kb), 'KB' } elseif ($_ -lt 1gb) { ($_/1mb), 'MB' } elseif ($_ -lt 1tb) { ($_/1gb), 'GB' } elseif ($_ -lt 1pb) { ($_/1tb), 'TB' } else { ($_/1pb), 'PB' } ) } $Time = ((Get-Date) - $event.MessageData.start) $averageSpeed = ($eventargs.BytesSent * 8 / 1MB) / $Time.TotalSeconds $elapsed = $Time.ToString('hh\:mm\:ss') $remainingSeconds = ($eventargs.TotalBytesToSend - $eventargs.BytesSent) * 8 / 1MB / $averageSpeed $receivedSize = $eventargs.BytesSent | Get-FileSize $totalSize = $eventargs.TotalBytesToSend | Get-FileSize $percent = $eventargs.BytesSent / $eventargs.TotalBytesToSend * 100 $percent = [Math]::Round($percent) Write-Progress -Activity (" $url {0:N2} Mbps" -f $averageSpeed) -Status ("{0} of {1} ({2}% in {3})" -f $receivedSize,$totalSize,$percent,$elapsed) -SecondsRemaining $remainingSeconds -PercentComplete $percent if ($eventargs.ProgressPercentage -eq 100){ Write-Progress -Activity (" $url {0:N2} Mbps" -f $averageSpeed) -Status 'Done' -Completed if ($event.MessageData.includeStats.IsPresent){ $global:upload = [Math]::Round($averageSpeed, 2) } } } $null = Register-ObjectEvent -InputObject $wc -EventName UploadDataCompleted -SourceIdentifier WebClient.UploadDataCompleted -Action { Unregister-Event -SourceIdentifier WebClient.UploadProgressChanged -Force Unregister-Event -SourceIdentifier WebClient.UploadDataCompleted -Force } try { $wc.UploadDataAsync($url,'POST',$byteArray) } catch [System.Net.WebException] { Write-Warning "Upload of $url failed" } finally { $wc.Dispose() } } Write-Output 'Retrieving configuration...' $uri = 'http://beta.speedtest.net/speedtest-config.php' [xml]$config = Invoke-WebRequest -Uri $uri -UseBasicParsing $ip = $config.settings.client.ip $isp = $config.settings.client.isp Write-Output "Testing from $isp ($ip)" $orilat = $config.settings.client.lat $orilon = $config.settings.client.lon Write-Output 'Retrieving server list...' $uri = 'http://www.speedtest.net/speedtest-servers.php' [xml]$hosts = Invoke-WebRequest -Uri $uri -UseBasicParsing Write-Output 'Selecting best server...' $servers = $hosts.settings.servers.server # Sort the distance of each server $closestserver = Get-ServerInfo -Servers $servers | Sort-Object -Property distance $servers = $closestserver[0],$closestserver[1],$closestserver[2] $serverurlspilt = ($servers).host -split ':8080' $servers = $serverurlspilt[0],$serverurlspilt[2],$serverurlspilt[4] # Get avg ping response $bestserver = Get-AvgPing -servers $servers $index = 0 $minvalue = [decimal]::MaxValue $bestserver.avg | % { if ($minvalue -gt $_) {$minvalue = $_; $minindex = $index}; $index++ } $location = $closestserver[$index].sponsor $distance = $closestserver[$index].distance Write-Output "Hosted by $location [$distance km] ($minvalue ms)" $serverurlspilt = ($closestserver[$index]).url -split 'upload' $url = $serverurlspilt[0] + 'random2000x2000.jpg' Write-Output 'Testing download speed...' Get-DataWCAsync -Url $url -IncludeStats # Wait until the state of DownloadProgressChange is Stopped Do { } Until ($global:downchange.State -eq 'Stopped') Write-Output "Download: $global:down Mbps" # Creating a random byte array to avoid bad download data messing with the upload $bytearray = New-Object Byte[] 7864320 (New-Object Random).NextBytes($bytearray) $url = ($closestserver[$index]).url Write-Output 'Testing upload speed...' Push-DataWCAsync -url $url -byteArray $bytearray -includeStats Do { } Until ($global:upchange.State -eq 'Stopped') Write-Output "Upload: $global:upload Mbps" Write-Output 'Tests Completed' } |