Имя: Пароль:
1C
Админ
Как узнать сколько % процессора жрет "процесс"? Через 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);
    КонецЦикла;