foxbat
04-08-2009, 13:57
Добрый час ! Помогите решить такую задачу, необходимо убить процесс среди множесва одинаковых - запущены процессы от разных пользователей, поэтому думаю это может быть ключём для удаления. Как убить процесс я нашёл, наверное надо запрос подкорректировать, подскажите как :):
Set objProc = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
For Each objProc In objProc.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
objProc.Terminate
Next
Set objProc = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
For Each objProc In objProc.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
objProc.Terminate
Next