Серый форум — VBScript: Узнать время в миллисекунда?

Re: VBScript: Узнать время в миллисекунда?

null@example.com (alexii) — Mon, 16 Jul 2012 12:37:08 +0000

1. Starley25, проверять скорость копирования файлом в один мегабайт — не самая удачная идея. Берите какой-либо образ на половину гигабайта и проверяйте. Я вообще пользуюсь Far Manager'ом, когда мне нужно оценить фактическую текущую пропускную способность канала.

2. Обратите внимание на то, что данный таймер имеет ограниченную разрешающую способность (ещё раз о том, что нужно брать большие файлы и большие интервалы).

Re: VBScript: Узнать время в миллисекунда?

null@example.com (Starley25) — Mon, 16 Jul 2012 08:35:30 +0000

Да я сразу проверил, получил значение 0,125, что по сути при копировании файла в 1 Mb, не совсем понятное значение. Если это значение в тысячных от секунды, то получаем скорость 64 мегабит в секунду в гигабитной сети, чегой-то здесь не то.

Re: VBScript: Узнать время в миллисекунда?

null@example.com (alexii) — Mon, 16 Jul 2012 08:04:46 +0000

Я так понимаю значение получим в секундах? Хотелось бы в миллисекундах…

А проверить?

Starley25, что копируете, каков размер?

Re: VBScript: Узнать время в миллисекунда?

null@example.com (Starley25) — Mon, 16 Jul 2012 06:44:26 +0000

Я так понимаю значение получим в секундах? Хотелось бы в миллисекундах, потому как иногда выдает значение -Е и т. д. не совсе то, что нужно, так как нужно представлять выходные данные в виде графика.

Re: VBScript: Узнать время в миллисекунда?

null@example.com (alexii) — Mon, 16 Jul 2012 06:25:51 +0000

Я добавил потребный префикс в заголовок темы. Обратите внимание, как сие должно выглядеть.

Не знаю как реализовать

Как-то так:

Option Explicit

Dim strSourceFile
Dim strDestFolder

Dim dtStart
Dim dtStop


strSourceFile = "c:\Temp\Sample.iso"
strDestFolder = "\\Server\Share"

With WScript.CreateObject("Scripting.FileSystemObject")
    If .FileExists(strSourceFile) Then
        If .FolderExists(strDestFolder) Then
            dtStart = Timer()
            .CopyFile strSourceFile, strDestFolder & "\", True
            dtStop  = Timer()
            
            WScript.Echo dtStop - dtStart
        Else
            WScript.Echo "Destination folder [" & strDestFolder & "] not found"
        End If
    Else
        WScript.Echo "Source file [" & strSourceFile & "] not found"
    End If
End With

WScript.Quit 0

Re: VBScript: Узнать время в миллисекунда?

null@example.com (Starley25) — Mon, 16 Jul 2012 06:02:52 +0000

Не знаю как реализовать на vbs.

Re: VBScript: Узнать время в миллисекунда?

null@example.com (alexii) — Mon, 16 Jul 2012 05:59:05 +0000

И в чём проблема?

Укажите префикс языка в заголовке темы.

VBScript: Узнать время в миллисекунда?

null@example.com (Starley25) — Mon, 16 Jul 2012 05:04:00 +0000

Стоит задача оценки времени копирования определенного файла с машины клиента на сервер. Наиболее простым способом определения длительности копирования считаю, присвоение некой переменной до копирования текущего времени, затем само копирование и по окончании которого берем опять текущее время в миллисекундах и присваиваем другой переменной. Собственно разница между переменными и будет длительность копирования, я понимаю, что относительно не корректно говорить в данном случае о точном времени копирования, но оценить с помощью этих данных часы наибольшей нагрузки на шару мы сможем.