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

[svesve]

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

[159932]

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

[svesve]

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

[Pashkela]

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


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

[svesve]

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

[Pashkela]

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

[vikseriq]

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