'Objective: To Find the CPU usage of each process that are running on the local machine
'Created by : MAK
'Created Date: Oct 27, 2005

strComputer ="."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process",,48)

        wscript.echo "Computer Name" & "," & "Process Name" & ","& "CPU Usage"
For Each objItem in colProcesses
if objItem.Name <> "Idle"  and objItem.Name <> "_Total" then 
        wscript.echo strcomputer & "," & objItem.Name & ","& objItem.PercentProcessorTime
end if
Next