[решено] Проблема: Рост потребляемой памяти при работе с WMI.

Creat0R · Конфигурация компьютера

Вообще то не обязательно использовать столько циклов, просто переделываем функцию немного(?):

Код:

#include <Array.au3>

$aOwners = _ProcessesGetOwner('svchost.exe')

_ArrayDisplay($aOwners)

Func _ProcessesGetOwner($sPID_Name, $sComputer = ".")
    Local $objWMI, $colProcs, $sUserName, $sUserDomain, $aRet_Owners[1][2]

    $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
    If Not IsObj($objWMI) Then Return SetError(1, 0, 0)

    $colProcs = $objWMI.ExecQuery("SELECT * FROM Win32_Process", "WQL", 0x30)
    If Not IsObj($colProcs) Then Return SetError(2, 0, 0)

    For $iProc In $colProcs
        If $iProc.Caption = $sPID_Name Then
            If $iProc.GetOwner($sUserName, $sUserDomain) Then ContinueLoop

            $aRet_Owners[0][0] += 1
            ReDim $aRet_Owners[$aRet_Owners[0][0]+1][2]

            $aRet_Owners[$aRet_Owners[0][0]][0] = $iProc.ProcessID
            $aRet_Owners[$aRet_Owners[0][0]][1] = $sUserDomain & "\" & $sUserName
        EndIf
    Next

    Return $aRet_Owners
EndFunc

timsky · Отправлено: **07:05, 06-10-2009** | #3

Спасибо за исправленный вариант, но проблема в том, что если процесс периодически выполняет ф-ю _ProcessesGetOwner() (например, как в моем примере выше сунуть для наглядности в бесколечный луп), то объем занимаемой памяти неуклонно растет. И чем меньше слип, тем быстрее.

У меня на серваке крутится скрипт, который через пол дня начинает заметно жрать память. Бывало, что по несколько сотен метров, если его не перезапускать.

SyDr · Конфигурация компьютера

Создай сам объект вне функции. И пропиши его в качестве параметра для функции.

timsky · Отправлено: **21:32, 06-10-2009** | #5

SyDr, Точно! Помогло.
А с чем сей косяк связан?
Вот пример, если кому не понятно будет:

Код:

$objWMI = ObjGet("winmgmts:\\.\root\cimv2")

While 1
    $aProcess = ProcessList('svchost.exe')
    For $i = 1 To $aProcess[0][0]
        _ProcessGetOwner($aProcess[$i][1])
    Next

    Sleep(10)
WEnd

Func _ProcessGetOwner($PID)
    Local $colProcs, $sUserName, $sUserDomain
    If IsObj($objWMI) Then
        $colProcs = $objWMI.ExecQuery("Select ProcessId From Win32_Process Where ProcessId="& $PID)
        If IsObj($colProcs) Then
            For $Proc In $colProcs
                If $Proc.GetOwner($sUserName, $sUserDomain)=0 Then Return $sUserDomain & "\" & $sUserName
            Next
        EndIf
    EndIf
EndFunc

SyDr · Конфигурация компьютера

Скорее всего с тем, что сам объект всё ещё остаётся в памяти. Ты каждый раз при вызове функции создаёшь новый объект. Однако, похоже, что даже если он является локальным - после выхода из функции он не уничтожается. Вторым вариантом могу предложить обнулять переменную-объект перед выходом из функции. Вроде бы так тоже можно избавиться от роста потребляемой памяти. Поправьте меня, если я не прав. Однако, если объект испольузется больше двух раз - зачем постоянно создавать новый?
По русски всё выглядит так (ну, допустим, ты используешь объект 5 раз):

Какой вариант использовать - решать тебе

Sp01LeR · Отправлено: **16:15, 07-10-2009** | #7

Цитата:

А с чем сей косяк связан?

Я думаю, что косяк связан с запросом в базу для локального обьекта $objWMI (каждый запрос создает новый обьект)...
Интересно, какой будет результат, если $colProcs тоже сделать глобальным?

timsky · Отправлено: **06:03, 08-10-2009** | #8

SyDr,

Цитата SyDr:

Вторым вариантом могу предложить обнулять переменную-объект перед выходом из функции. Вроде бы так тоже можно избавиться от роста потребляемой памяти. »

Пробовал, бесполезно. Помогло именно твое первое решение.