Uses cooked performance counters to monitor percentage of CPU usage by each process.

Visual Basic
Edit|Remove
strComputer = "."
intPasses = 5
intPause = 1000 'milliseconds
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
 (objWMIService, "Win32_PerfFormattedData_PerfProc_Process").objectSet
objRefresher.Refresh

For i = 1 to intPasses
  Wscript.Sleep intPause
  Wscript.Echo vbCrLf & "Pass " & i
  Wscript.Echo Now
  For Each objItem in colItems
    objRefresher.Refresh
    Wscript.Echo vbCrLf & "Name: " & objItem.Name
    Wscript.Echo "  Creating Process ID: " & objItem.CreatingProcessID
    Wscript.Echo "  Percent Processor Time: " & _
      objItem.PercentProcessorTime
  Next
Next