Как побороть проблемы с производительностью?

Question

[Евгений Дикевич]

Проблема заключается в следующем - написал скрипт на PS для контроля пользовательской активности с СЭД. Суть его состоит в том что ожидаем появление процессов СЭД на клиентской машине, после этого по совету товарища azarij с помощью такой штуки https://wasp.codeplex.com/ отлавливаем активные окна (процессы) и предпринимаем, скажем так, определенные действия исходя из некоторых условий) Проблема в том что скрипт "много кушает" - до 250мб ОП и до 90!!! CPU на ХРюше (1 ядро 2Ггц 1024МБ ОЗУ) и до 700!!!(wtf?)Мб ОП и до 50 CPU на моей 10ке (4 ядра 8Гб ОЗУ). Это все конечно же с пиковой нагрузкой. Вопрос собственной в том как можно это побороть (оптимизировать).
Прошу за код сильно не ругать - с PSом познокомился 2 месяца назад, а кодил в последний раз года 3 назад)
Основные функции:

function Directumchk {
Write-log "Waiting for Directum processes" -type Default
for ($i = 0; (-not (ps | ? { $_.ProcessName -eq $SBRte })) -or (-not (ps | ? { $_.ProcessName -eq $SBLogon })) ; $i++)
{
sleep 3
}
do {
sleep 1
$SBRtehandle = (ps ($SBRte)).mainwindowhandle
}
until ($SBRtehandle -ne 0)
$global:SBRteID = (ps ($SBRte)).ID
Write-log "Directum processes will be found" -type "Complete"
ActWinStr
}

function ActWinStr {
Write-log "Check user activity" -type Default
for (;;){
$Answer = $null
if (-not(ps|?{$_.ProcessName -eq $SBRte})){
if (gjb|?{$_.Name -eq "STimer"}){Remove-Job -Name STimer -Force}
Write-log "Directum closed by user" -type "Complete"
Directumchk}
else{
if (([PInvoke.Win32.UserInput]::IdleTime).Minutes -ge $CountTime){
if (gjb|?{$_.Name -eq "STimer"}){Remove-Job -Name STimer -Force}
Write-log "Idle time left" -type "Warning"
$Answer = GUITimer
UserChoice -Answer $Answer
}
else{
$Act = Select-Window -ActiveWindow
if ($Act.ProcessName -eq $SBRte){
if (gjb|?{$_.Name -eq "STimer"}){Remove-Job -Name STimer -Force}
}
else{
$ParentID = gwmi win32_process | ? -FilterScript {$_.ProcessId -eq $Act.ProcessID} | % {$_.parentprocessid}
if ($ParentID -ne $global:SBRteID){
if (gjb|?{$_.Name -eq "STimer"}){
if ($Timer.state -eq "Completed"){
Remove-Job -Name STimer -Force
Write-log "User don't work in Directum" -type "Warning"
$Answer = GUITimer
UserChoice -Answer $Answer
}
}
else{$Timer = Start-Job -Name STimer -ScriptBlock {for ($x = 900;$x -gt 0;$x--){sleep 1}}}
}
else {if (gjb|?{$_.Name -eq "STimer"}){Remove-Job -Name STimer -Force}}}
}
}
}
}

Answer 1

[azarij]

мне никогда не нравились джобы и скрипты, которые постоянно запущены. я правильно понимаю, что скрипт делает своё дело, а потом спит 900 секунд и так по кругу?
если да, то память он сразу выжирает или сразу после запуска все ок, а со временем он жрет больше и больше памяти?
может запускать это дело по расписанию через планировщик задач? запустился, сделал, что надо, выключился.

Comments

[Евгений Дикевич]

Доброго времени суток! Нет Вы не правильно поняли. Скрипт стартует при запуске системы. С периодичностью в 3с система опрашивается на наличие процессов СЭД (ф-ция Directumchk). Как только процессы найдены управление передается ф-ции ActWinStr которая в безконечном цикле смотрит не пропал ли процесс, не истело ли время простоя с-мы (idle time) и смотрит на активное окно - если это СЭД то ничего не делать, иначе запустить таймер на 900 секунд (это и есть этот джоб который Вас смущает) и все опять по кругу (напоминаю цикл бесконечный). Как только 900с истекает выводится окно с предупреждением.
Как Вы поняли прикрепить на планировщик это дело не получится)
Скрипт начинает "кушать" не сразу - изначально на ХРюше метров 40-50 ОП, потом растет и достигая 250Мб опять сбрасывает на 40.
Так ли сильно безконечный цикл может грузить систему? Может есть варианты чем его заменить?
Заранее спасибо!

[azarij]

попробуйте освобождать переменные от содержимого и удалять их когда они уже не нужны - $a = $null; remove-variable a. в нескольких местах скрипта и обязательно после "освобождения" переменных попробуйте добавить вызов системного дворника - [System.GC]::Collect(). в остальном, даже не знаю что посоветовать, кроме как не оставлять скрипты работать постоянно, но это не выход в вашей ситуации, похоже.

[Евгений Дикевич]

azarij: ну скажем так если бы такого рода функционал был заложен изначально в СЭД, то я бы этот всесь сыр-бор и не городил) но на их форуме об этом уже 6 лет просят, а воз и нынче там..)))

[Евгений Дикевич]

azarij: Подскажите еще про [System.GC]::Collect(). Где го стоит вызывать, как когда?

[azarij]

хороший вопрос. точно нужно после освобождения переменных. а в остальном методом тыка.

[Евгений Дикевич]

azarij: Спасибо большое) Буду тыкать)))

[azarij]

кстати, убедитесь, что стоит последний powershell, который ОС может поддерживать. там порядочно проблем с памятью было пофикшено за годы существования powershell'a.
еще если создаются какие-либо объекты, то от них тоже стоит избавляться сразу после последнего использования - $object.close(), $object.dispose(), etc.

[Евгений Дикевич]

azarij: проблема в том что приходится писать под PSv2 т.к. на ХРюшу ничего выше не поставить

[azarij]

stackoverflow.com/questions/11222961/how-to-instru...

Microsoft has confirmed that this is a bug in PowerShell 2.0, and they state that this has been resolved in PowerShell 3.0.

[Евгений Дикевич]

azarij: Спасибо Вам, впринципе с памятью разобрался) Стабильно на хрюше ~40 - сойдет) Но вот цп немного еще подъедает)