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"

ScriptUtils.Kernel

COM API for calling some of Kernel32 functions.

ScriptUtils

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 4GB 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.