Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для timsky

Новый участник


Сообщения: 46
Благодарности: 10

Профиль | Отправить PM | Цитировать


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

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