Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set objServicesCimv2 = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
If Err = 0 Then
Set objRefreshableItem = _
objRefresher.AddEnum(objServicesCimv2,"Win32_PerfFormattedData_PerfProc_Process")
objRefresher.Refresh
Wscript.Echo "List processes using more than 1% of processor time."
Wscript.Echo "Sample 5 times waiting 2 seconds between samples."
For i = 1 to 5
Wscript.Sleep 2000
Wscript.Echo vbnewLine & "Sample number " & i
objRefresher.Refresh
numproc = 0
For Each Process in objRefreshableItem.ObjectSet
If Process.Name <> "_Total" and Process.Name <> "Idle" Then
If Process.PercentProcessorTime > 1 Then
numproc = numproc + 1
If Process.PercentProcessorTime < 10 Then
WScript.Echo " " & Process.PercentProcessorTime & "% " & Process.Name
Else
If Process.PercentProcessorTime < 100 Then
WScript.Echo " " & Process.PercentProcessorTime & "% " & Process.Name
Else
WScript.Echo " " & Process.PercentProcessorTime & "% " & Process.Name
End If
End If
End If
End If
Next
If numproc = 0 Then
WScript.Echo " No processes were using more than 1% of the processor"
End If
Next
Else
WScript.Echo Err.Description
End If </Script></ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</WriteAction>
</Task>