'pio.vbs: This VBScript provides I/O-related counters for all processes to be
'used by topio.pl.
'(C) Yong Huang, 2004
'yong321.freeshell.org/freeware/pio.html

strComputer = wscript.arguments(0)
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_PerfRawData_PerfProc_Process where Name <> '_Total'")

For Each strProcess in colProcesses
  Wscript.echo _
  strProcess.IDProcess & "	" & strProcess.Name & "	" & _
  strProcess.IOReadBytesPerSec & "	" & _
  strProcess.IOReadOperationsPerSec & "	" & _
  strProcess.IOWriteBytesPerSec & "	" & _
  strProcess.IOWriteOperationsPerSec & "	" & _
  strProcess.IOOtherBytesPerSec & "	" & _
  strProcess.IOOtherOperationsPerSec & "	" & _
  strProcess.PageFaultsPersec
Next