|
Как узнать сколько % процессора жрет "процесс"? Через CMD / 1с 7.7 |
☑ |
0
sysadminlk
20.02.15
✎
10:12
|
Как узнать сколько % процессора жрет "процесс"? Через CMD / 1с 7.7
tasklist показывает только сколько жрет ОЗУ.
|
|
1
Fedor-1971
20.02.15
✎
10:16
|
WMI тебе в помощь - vb или js скриптом получишь всё что нужно.
|
|
2
MAG
20.02.15
✎
10:31
|
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
|
|
3
sysadminlk
20.02.15
✎
13:03
|
Локатор = СоздатьОбъект("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'");
Scr = CreateObject("MSScriptControl.ScriptControl");
Scr.Language = "javascript";
Scr.addcode("function g(o){return(new Enumerator(o));}");
e=Scr.run("g",p);
Пока e.atEnd(0)=0 Цикл
objInstance1 = e.item(0);
Сообщить(""+objInstance1.Name+" - "+objInstance1.PercentProcessorTime+"");
e.moveNext(0);
КонецЦикла;
|
|