Forum Discussion
MulgraveTester
10 years agoFrequent Contributor
SOLVED:
sub LogResourceUsage
strProcess = "myProcess"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_PerfFormattedData_PerfProc_Process WHERE name = '" & strProcess & "'")
For Each objItem in colItems
log.message objItem.Name & " CPU(" & objItem.PercentProcessorTime & ") Memory(" & round(objItem.WorkingSetPrivate/1048576, 1) & "MB)"
Next
end sub