Kernel - Get exact consumed time of VBS function

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

  'Get counter
  OldCounter = Kernel.hrCounter

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

  'Count number of microsecond
  Dim msTime
  msTime = 1000*(Kernel.hrCounter - OldCounter) 
  msTime =  msTime / Kernel.hrFrequency 

  '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.