Форум АНТИЧАТ - Скрипт для теста скорости соединения

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Скрипт для теста скорости соединения (https://forum.antichat.xyz/showthread.php?t=93630)

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

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

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

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

Что-то в это роде, скопируй в блокнот и сохрани как 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

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

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

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