Серый форум — VBS: Запись в лог загрузки процессора по конкретному процессу

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Alex Li) — Thu, 12 May 2016 08:34:42 +0000

Flasher
Что активно крутилось на компе, то и вставил. С эксплорером счас буду пробовать.

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Flasher) — Wed, 11 May 2016 21:35:39 +0000

Понял. Как-нибудь попробую на XP. А почему isis вместо iexplore?

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Alex Li) — Wed, 11 May 2016 20:51:38 +0000

Windows XP Sp3 , wscript 5.7

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Flasher) — Wed, 11 May 2016 20:18:28 +0000

ОК. Можно и так. А какая версия Windows и wscript.exe (на всякий случай)?

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Alex Li) — Wed, 11 May 2016 20:08:38 +0000

Попробовал - другая ошибка - "Недопустимое использование Null :'CStr'".Если без CStr вместо PerfProcess.PercentProcessorTime написать 1 или "1" - пишет в лог за милу душу.

Нашел тут конструкцию через IF, попробовал - работает.
В результате код принял такой вид:


LogFile = "C:\Log.txt"

Set LogFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile, 8, True)
Set PerfProcess = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
Get("Win32_PerfFormattedData_PerfProc_Process.Name='isis'")

Do
  PerfProcess.Refresh_()
If PerfProcess.PercentProcessorTime > 0 Then
LogFile.WriteLine PerfProcess.PercentProcessorTime
else
LogFile.WriteLine 0
End If
WScript.Sleep 300  
Loop

Еще раз большое спасибо за помощь!

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Flasher) — Wed, 11 May 2016 05:37:13 +0000

Я проверял, такой проблемы не было. Попробуйте добавить синее: CStr(PerfProcess.PercentProcessorTime).

P.S.: Двоеточие вместо точки в заголовке забыли.

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Alex Li) — Wed, 11 May 2016 05:31:04 +0000

Пишет "Несоответствие типа LogFile.WriteLine"

Re: VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Flasher) — Tue, 10 May 2016 23:38:44 +0000

Исправьте в заголовке WBS. на VBS:.

LogFile = "C:\Log.txt"

Set LogFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile, 8, True)
Set PerfProcess = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
Get("Win32_PerfFormattedData_PerfProc_Process.Name='iexplore'")

Do
  PerfProcess.Refresh_     
  LogFile.WriteLine PerfProcess.PercentProcessorTime
  WScript.Sleep 300
Loop

VBS: Запись в лог загрузки процессора по конкретному процессу

null@example.com (Alex Li) — Tue, 10 May 2016 20:48:53 +0000

Нужно записывать в лог загрузку процессора по процессу iexplore.exe - (7й Интернетэксплорер) - просто две цифры в лог каждые 0,3 сек

Нашел код


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
set PerfProcess = objWMIService.Get(_
    "Win32_PerfFormattedData_PerfProc_Process.Name='Idle'")

While (True)
    PerfProcess.Refresh_     
    Wscript.Echo PerfProcess.PercentProcessorTime
    Wscript.Sleep 1000
Wend

Как модифицировать этот код, чтобы вместо всплывающего окна была запись в лог? Спасибо!