Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Runs a speed test by downloading a 10MB file temporarily
- # Version: 1.0A
- # Author: hl2guide
- # Only run this script after stopping all other traffic/downloads (isolated test).
- # Expected Internet Speed (in Mbps)
- $expectedLineSpeed = 11
- # Download File Size (10 or 100)
- $testFileSize = 10
- $fileToDownload = 'http://client.akamai.com/install/test-objects/'+ $testFileSize +'MB.bin'
- # $fileToDownload = 'http://mirror.nforce.com/pub/speedtests/'+ $testFileSize +'MB.bin'
- # $fileToDownload = 'http://speedtest.serverius.net/files/'+ $testFileSize +'MB.bin'
- $message = 'Testing Internet Speed (' + $testFileSize + 'MB file), please wait...'
- Write-Host
- Write-Host
- Write-Host
- Write-Host
- Write-Host $message -ForegroundColor Cyan
- # Start Internet Speed Test
- $a=Get-Date
- Invoke-WebRequest $fileToDownload|Out-Null
- $result = "$((10/((Get-Date)-$a).TotalSeconds)*8)"
- $result = [math]::Round($result, 3)
- # Outcomes
- if($result -gt $expectedLineSpeed - 1)
- {
- $outTextColor = 'Green'
- $speed = 'great'
- }
- elseif($result -gt $expectedLineSpeed - 2)
- {
- $outTextColor = 'Magenta'
- $speed = 'fine'
- }
- elseif($result -gt $expectedLineSpeed / 2)
- {
- $outTextColor = 'Yellow'
- $speed = 'passable'
- }
- else
- {
- $outTextColor = 'Red'
- $speed = 'slow'
- }
- # Output Result
- $message = 'Download Speed Result: ' + $result + ' Mbps' + ' ('+ $speed + ')'
- Write-Host
- Write-Host $message -ForegroundColor $outTextColor
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement