Пример работы с ненормированными счетчиками производительности смотрите в листинге 9.

Листинг 9. Использование неформатированных счетчиков(более быстрый доступ к данным)

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootCIMV2")

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfOS_Processor",,48)

For Each objItem in colItems

    Wscript.Echo "-----------------------------------"

    Wscript.Echo "Win32_PerfRawData_PerfOS_Processor instance"

    Wscript.Echo "-----------------------------------"

    Wscript.Echo "C1TransitionsPersec: " & objItem.C1TransitionsPersec

    Wscript.Echo "C2TransitionsPersec: " & objItem.C2TransitionsPersec

    Wscript.Echo "C3TransitionsPersec: " & objItem.C3TransitionsPersec

    Wscript.Echo "DPCRate: " & objItem.DPCRate

    Wscript.Echo "DPCsQueuedPersec: " & objItem.DPCsQueuedPersec

    Wscript.Echo "Frequency_Object: " & objItem.Frequency_Object

    Wscript.Echo "Frequency_PerfTime: " & objItem.Frequency_PerfTime

    Wscript.Echo "Frequency_Sys100NS: " & objItem.Frequency_Sys100NS

    Wscript.Echo "InterruptsPersec: " & objItem.InterruptsPersec

    Wscript.Echo "Name: " & objItem.Name

    Wscript.Echo "PercentC1Time: " & objItem.PercentC1Time

    Wscript.Echo "PercentC2Time: " & objItem.PercentC2Time