Løste selv problemet ved at lave nedenstående script som logger forbruget til en CSV fil som man så kan lave grafer af i Excel.
OBS: Det er lavet "quick and dirty", hvilket vil sige uden fejlhåndtering, pæn og optimeret kode osv. Al brug er på eget ansvar!
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum (objWMIService, "Win32_PerfFormattedData_PerfProc_Process").objectSet
strFile = "c:\log.csv"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(strDirectory & strFile) Then
Set objFile = objFSO.CreateTextFile(strFile)
End If
set objFile = nothing
' OpenTextFile Method needs a Const value
' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8
Set objTextFile = objFSO.OpenTextFile (strFile, ForAppending, True)
For i = 1 to 5000
str1 = 0
str2 = 0
str3 = 0
objRefresher.Refresh
For Each objItem in colItems
Select Case UCASE(objItem.Name)
Case "myProcess1"
str1 = Round(0 & objItem.PercentProcessorTime / 2)
Case "myProcess2"
str2 = Round(0 & objItem.PercentProcessorTime / 2)
Case "myProcess3"
str3 = Round(0 & objItem.PercentProcessorTime / 2)
End Select
Next
objTextFile.WriteLine Now & ";" & str1 & ";" & str2 & ";" & str3
Wscript.Echo "Logging - " & CStr(i)
Wscript.Sleep 2000
Next
objTextFile.Close
set objFSO = nothing
set objTextFile = nothing
PercentProcessorTime værdien deles med 2 fordi der er 2 kerner i CPU'en.
