Detect Internet Connection Speed

 
@echo off
mkdir c:\speed

wget.exe -o c:\speed\output.txt -O c:\speed\test.exe http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe

find /i " KB/s)" c:\speed\output.txt && goto KB  
find /i " MB/s)" c:\speed\output.txt && goto MB  
echo Your speed cannot be detected!
goto :eof

:KB
set range=KB/s
for /f "tokens=3 delims= " %%a in ('find /i "KB/s)" c:\speed\output.txt') do set speed=%%a  
set speed=%speed:~1,4%
goto next

:MB
set range=MB/s
for /f "tokens=3 delims= " %%a in ('find /i "MB/s)" c:\speed\output.txt') do set speed=%%a  
set speed=%speed:~1,4%
goto next

:next
cls
echo Your speed is: %speed% %range%
echo.
pause

:end
rmdir /s /q C:\speed

mkdir "%tmp%\speedtmp"  
 
wget.exe -o "%tmp%\speedtmp\output.txt" -O "%tmp%\speedtmp\test.exe" http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe  

find /i " KB/s)" "%tmp%\speedtmp\output.txt" && goto KB  
find /i " MB/s)" "%tmp%\speedtmp\output.txt" && goto MB  
echo Verbingung wurde nicht erkannt!
eventcreate /t ERROR /SO Internet /L Application /ID 23 /D "Die Internet-Verbindungsgeschwindigkeit konnte nicht ermittelt werden, entweder ist der Download nicht mehr verfuegbar oder es besteht keine Internetverbindung!"  
goto end
 
:KB
set range=KBs
for /F "tokens=2 delims=( " %%a in ('type "%tmp%\speedtmp\output.txt" ^| find /i "KB/s)"') do set Geschwindigkeit=%%a  
eventcreate /t INFORMATION /SO Internet /L Application /ID 11 /D "Die Internet-Verbindungsgeschwindigkeit ist %Geschwindigkeit% KB/s"  
goto end
 
:MB
set range=MBs
for /F "tokens=2 delims=( " %%a in ('type "%tmp%\speedtmp\output.txt" ^| find /i "MB/s)"') do set Geschwindigkeit=%%a  
eventcreate /t INFORMATION /SO Internet /L Application /ID 11 /D "Die Internet-Verbindungsgeschwindigkeit ist %Geschwindigkeit% MB/s"  

:end
rmdir /s /q "%tmp%\speedtmp"