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

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Узнать имя пользователя, от которого запущен процесс

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

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


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

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


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

Отправлено: 04:24, 07-07-2009

 

Аватара для proxy

Старожил


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

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


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

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

-------
Мысли-читатель сломался, может подробней расскажите?
А где исходный код? Или мы стихи обсуждаем?! )) Настройки темы > Решено ?


Отправлено: 09:16, 07-07-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Googler


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

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


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
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:01, 07-07-2009 | #3


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


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

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


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

Отправлено: 18:13, 07-07-2009 | #4


Аватара для kaster

Старожил


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

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


Код: Выделить весь код
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

-------
Русское сообщество пользователей AutoIt
autoit@conference.jabber.ru - Конференция на jabber.ru


Последний раз редактировалось kaster, 17-09-2009 в 00:43.


Отправлено: 01:16, 16-09-2009 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Узнать имя пользователя, от которого запущен процесс

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочие БД - Как узнать имя пользователя в MS Access? st031 Программирование и базы данных 0 30-08-2009 18:24
[решено] Получить имя диска, с которого запущен скрипт frostyland AutoIt 2 18-08-2009 10:11
Процесс svchost.exe запущен от имени пользователя tarakan1983 Лечение систем от вредоносных программ 7 13-10-2008 07:57
Как узнать _полное_ имя пользователя? fantik Microsoft Windows NT/2000/2003 2 21-11-2006 18:13
Процесс запущен от имени *** antOOn Microsoft Windows 2000/XP 6 01-08-2005 15:21




 
Переход