Cómo puedo matar un proceso, utilizando VBScript, iniciado por un usuario en particular

Question

Tengo varios usuarios ejecutando Attachemate en un servidor de Windows 2003. Quiero matar a attachemate.exe iniciado por user_1 sin matar attachemate.exe iniciado por user_2.

Quiero usar VBScript.

Answer 1

Usted puede usar esto para averiguar quién es el propietario del proceso es, a continuación, una vez que tenga que puede utilizar para Win32_Process matar el proceso por la identificación del proceso.

MSDN Win32_Process class details

MSDN Terminating a process with Win32_Process

Hay seguramente una forma más limpia de hacer esto, pero aquí es lo que ocurrió. NOTA: Esto no se ocupa de múltiples procesos del mismo nombre, por supuesto, pero creo que puede trabajar esa parte con una matriz para contenerlos o algo así. :)

strComputer = "." 
strOwner = "A111111" 
strProcess = "'notepad.exe'" 

' Connect to WMI service and Win32_Process filtering by name' 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ 
    & strComputer & "\root\cimv2") 
Set colProcessbyName = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " _ 
    & strProcess) 

' Get the process ID for the process started by the user in question' 
For Each objProcess in colProcessbyName 
    colProperties = objProcess.GetOwner(strUsername,strUserDomain) 
    if strUsername = strOwner then 
     strProcessID = objProcess.ProcessId 
    end if 
next 

' We have the process ID for the app in question for the user, now we kill it' 
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where ProcessId =" & strProcessID) 
For Each objProcess in colProcess 
    objProcess.Terminate() 
Next 

Answer 2

Shell a cabo a partir de PsKill http://sysinternals.com/

de comandos: pskill -u usuario_1 attachemate.exe