Internet Bandbreite per Skript ermitteln

@echo off & setlocal
set "Datei=E:\Skripte\speed.txt"  
set "M=%temp%\message.vbs"  
if not exist M >%M% echo MsgBox "Ihre Verbindung ist zu langsam!", vbExclamation,"Bandbreite ungenügend"  
set "Datum=%date:~-4%-%date:~3,2%-%date:~0,2%"  
for /f "tokens=2 delims=()" %%s in ('findstr /c:"%Datum% %time:~0,5%" "%Datei%"') do set "speed=%%s"  
set "wert=%speed: KB/s=%"  
if %wert% lss 500 cscript //nologo %M%
pause
goto :eof

if %wert% lss 500 (
NET SEND %computername% Ihre Verbindung ist zu langsam,^
die Bandbreite betraegt momentan nur %speed%
)

for /f "tokens=2 delims=() skip=4" %%a IN ('type kb.txt') DO CALL :WEITER "%%a"  
:WEITER
for /f "tokens=1* delims= " %%a IN (%1) DO (SET rate=%%a & SET einh=%%b)  

ECHO Rate: %rate% - %einh%

for /f "tokens=2 delims=() skip=4" %%a IN ('type kb.txt') DO (  
	for /f "tokens=1* delims= " %%b IN ("%%a") DO (SET rate=%%b & SET einh=%%c)  
)

for /f "skip=4 tokens=3-4 delims=() " %%a IN ('type kb.txt') DO SET /a rate=%%a & SET "einh=%%b"

for /f "tokens=3-4 delims=() " %%a IN ('findstr "%date:~-4%-%date:~-7,2%-%date:~-10,2%" kb.txt') DO SET /a rate=%%a & SET "einh=%%b"

findstr "%date:~-4%-%date:~-7,2%-%date:~-10,2%" kb.txt

2011-09-27 14:03:46 (475 KB/s) - `1000KBYT.1' saved [1000000]

Public Function GetInetDownloadSpeed(ByRef URL) 'As Long  
	Dim WebReq 'As Microsoft.XmlHttp  
	Dim FSO 'As Scripting.FileSystemObject  
	Dim Start, Ende 'As DateTime  
	Dim TempObj 'As Object  
	Dim ContentLength 'As Long  
 	
	Set WebReq = CreateObject("Microsoft.XmlHttp")  
	Set FSO = CreateObject("Scripting.FileSystemObject")  
	
	Start = Now
	
	URL = URL + "?nocacherandomize=" + Replace(FSO.GetTempName, ".tmp", "")  
	
	WebReq.Open "get", URL, False  
	WebReq.Send
	TempObj = WebReq.ResponseBody
	
	ContentLength = WebReq.GetResponseHeader("Content-Length")  
	
	Ende = Now
	
	GetInetDownloadSpeed = Round(ContentLength / 1024 / DateDiff("s", Start, Ende), 2)  
	
	TempObj = Nothing
End Function