title: Fine-grained timer for VBScript performance measurements
body: <p>I'm doing some performance measurements in VBScript. I want to measure how fast my algorithm performs</p>
  
  <pre><code>t1 = Now()  
  doAlotOfWork ()  
  t2 = Now()  
  MsgBox "Operation took " &amp; DateDiff ("s", t1, t2)  &amp; " seconds."
  </code></pre>
  
  <p>This gives me the time in seconds. If one algorithm results in a 1 second execution time and another in 2 seconds, this will hardly give me any useful information. I need to blow up the problem size to something that takes a minute to execute. </p>
  
  <p>Does anybody know of a way to do these kinds of measurements in VBScript, but then more fine-grained. Something that introduces milliseconds for example. </p>
  
  <p>I have a feeling that there must be a solution in WMI.</p>