Kernel - Get exact duration of a VBS function using msPerformanceCounter

Examples

Kernel - Get exact duration of a VBS function using msPerformanceCounter
Dim Kernel, OldhrTimeCounter Set Kernel = CreateObject("ScriptUtils.Kernel") 'Get counter OldhrTimeCounter = Kernel.hrTimeCounter 'Some operation taking many time Dim Data, Parameter Parameter = "Some parameter" Data = CreateData(Parameter) 'Count number of microsecond Dim msTime msTime = Kernel.hrTimeCounter - OldhrTimeCounter 'Output results Wscript.Echo "CreateData takes " & msTime & " milisecond"

  Dim Kernel, OldhrTimeCounter
  Set Kernel = CreateObject("ScriptUtils.Kernel")

  'Get counter
  OldhrTimeCounter = Kernel.hrTimeCounter

  'Some operation taking many time
  Dim Data, Parameter
  Parameter = "Some parameter"
  Data = CreateData(Parameter)

  'Count number of microsecond
  Dim msTime
  msTime = Kernel.hrTimeCounter - OldhrTimeCounter

  'Output results
  Wscript.Echo "CreateData takes " & msTime & " milisecond"

Other links for Kernel - Get exact duration of a VBS function using msPerformanceCounter

ScriptUtils.Kernel

COM API for calling some of Kernel32 functions.

     Huge ASP upload is easy to use, hi-performance ASP file upload component with progress bar indicator. This component lets you upload multiple files with size up to 2GB to a disk or a database along with another form fields. Huge ASP file upload is a most featured upload component on a market with competitive price and a great performance.

     The software has also a free version of asp upload with progress, called Pure asp upload, written in plain VBS, without components (so you do not need to install anything on server).

     This installation package contains also ScriptUtilities library. Script Utilities lets you create hi-performance log files, works with binary data, you can download multiple files with zip/arj compression, work with INI files and much more with the ASP utility.