On Error Resume Next
strComputer = "."
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
For i = 1 to 1
objRefresher.Refresh
For Each Process in objRefreshableItem.ObjectSet
If Process.Name = "1CV7" then
MsgBox Process.PercentProcessorTime & "%"
End If
Next
Next
Else
WScript.Echo Err.Description
End If
Локатор = СоздатьОбъект("WbemScripting.SWbemLocator");
Сервис = Локатор.ConnectServer(".");
//p = Сервис.ExecQuery("Select * from Win32_PerfFormattedData_PerfOS_Processor"); //ядра процессора
//p = Сервис.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process WHERE Name = 'mysqld'");
p = Сервис.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process WHERE Name = 'mysqld'");