Скрипт для теста скорости соединения

Добрый вечер всем!
Может у кого завалялся где то в архивах скриптик для теста скорости интернет соединения, буду очень благодарен если поделитесь. Либо намекнёте как реализовать данную мысль.
Спасибо!

 

есть самая лучшея, называется flachget .. точно меряет!

 

Нужен скрипт а не программа для закачки фалов!

 

Что-то в это роде, скопируй в блокнот и сохрани как speed.vbs

Code:

On Error Resume Next
FileDestination = "c:\result.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Destination = FSO.CreateTextFile(FileDestination)
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
set WshShell = WScript.CreateObject("WScript.Shell") 
arrComputers = Array(WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%"))
For Each strComputer In arrComputers
Str = "=========================================="
Destination.WriteLine Str
Str = strComputer
Destination.WriteLine Str
Str = "=========================================="
Destination.WriteLine Str
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
   For Each objItem In colItems
if objItem.CurrentBandwidth = 10000000 then 
Str = ""
else   
Str = "Скорость подключения:" & objItem.CurrentBandwidth 
Destination.WriteLine Str
end if  
   Next
Next
Set FSO = Nothing
Set Destination = Nothing
Set objWMIService = Nothing
Set WshShell = CreateObject("WScript.Shell") 
    WshShell.Run "c:\result.txt", 1, true 
Set WshShell = Nothing
WScript.Quit

 

Спасибо но нужно либо php либо на яве.
т.е. захожу на страничку жму тест скорости и у меня выдает рез-т

 

vbs вообще-то может применяться везде там, где может применяться javascript

 

Таких систем пруд пруди. Открой сорцы паги-измерялки и втыкай в сорцы на джс.