[решено] Узнать имя пользователя, от которого запущен процесс

[vitalisvv]

Помогите, плиз, узнать имя пользователя, от которого запущен процесс. Просто необходимо закрыть именно у определенного пользователя на серваке определенный процесс. Дело в том, что одноименных процессов (запущенных программ) на серваке много. Вот и задача - отловить PID процесса определенного пользователя.

[proxy]

vitalisvv, Макросы рулят :





Код:

Код: Выделить всё

MsgBox(64, 'Идентификатор (ID) текущего пользователя', @UserName)

[amel27]

vitalisvv, вариант через WMI:



Код:

Код: Выделить всё

$aList = ProcessList ("SciTE.exe")
For $i=1 To $aList[0][0]
    ConsoleWrite($aList[$i][1] &": "& _ProcessGetOwner($aList[$i][1]) &@CRLF)
Next
Func _ProcessGetOwner($PID, $sComputer = ".")
    Local $objWMI, $colProcs, $sUserName, $sUserDomain
    $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
    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

FYI:

_ProcessListProperties(), List many properties of a process

[vitalisvv]

Cпасибо!!! Помогло!

[kaster]

Код:

Код: Выделить всё

If StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang) Then
   $sUser = 'USERNAME'
ElseIf StringInStr('0419', @OSLang) Then
   $sUser = 'Пользователь'
EndIf
$sCommand = 'taskkill /F /FI "' & $sUser & ' eq ИМЯ_ЮЗЕРА_в_Формате_Domen\username"'
_RunDOS($sCommand)
Func _RunDOS($sCommand)
    Local $nResult = RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
    Return SetError(@error, @extended, $nResult)
EndFunc   ;==>_RunDOS