[Iska]

Поместите следующий код:

читать дальше »

Код:

Option Explicit

Dim objSWbemObjectEx
Dim elem

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	For Each elem In Array("Paint it!.EXE", "PsiService_2.exe", "wisptis.exe")
		For Each objSWbemObjectEx In .ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & elem & "'")
			WScript.Echo objSWbemObjectEx.Name, vbTab, objSWbemObjectEx.ProcessID, vbTab, objSWbemObjectEx.ParentProcessID
		Next
	Next
End With

WScript.Quit 0

в файл с расширением .vbs. Исполните его двойным щелчком при запущенных вышеуказанных процессах. Когда появится диалоговое окно, наподобие:

читать дальше »

— нажмите в нём Ctrl-C, чтобы скопировать его содержимое, наподобие:

читать дальше »

Код: --------------------------- Windows Script Host --------------------------- notepad.exe 1616 2348 --------------------------- ОК ---------------------------

Полученное содержимое вставьте сюда, на форум, оформив его тэгом [code].