[Iska]

Данный скрипт открывает процесс в подпроцессе Winlogon…»

Нет. Скрипт тут не при чём. См. внимательно сопровождающий текст в #33.

а можно ли его переписать,что бы открывал как отдельный процесс?не в под процессах? »

Поясните Вашу мысль.

[sov44]

Подскажите, как поправить код, чтобы вывести процессы в 3 столбика и убрать их повторы?

Код:

@echo off
SetLocal EnableDelayedExpansion
For /F "tokens=1 delims=," %%p In ('tasklist /FO CSV^|sort') Do (
Set nam=%%p
if %%p neq "Имя образа" (
Set /A nn +=1
set proc!nn!=%%p
Echo !nn!. !nam:~1,-1!
))
echo.
set /p kill=Введите номер процесса, который нужно завершить:
echo Выбран !proc%kill%!. Уверены?
echo.
pause
taskkill /f /im !proc%kill%! /T
pause>nul

[Iska]

sov44, зачем убирать повторы? Это ведь разные процессы.

[sov44]

sov44, зачем убирать повторы? Это ведь разные процессы. »

Iska, в основном дублируются имена системных процессов(svchost.exe). Их сносить никто не собирается и нет смысла их дублировать. Задача - выловить запущенные пользовательские программы (процессы) и завершить их в случае необходимости.

[Iska]

Тогда так:

Код:

Option Explicit

Const adVarChar = 200
Const adInteger = 3

Dim strComputer
Dim lngColumnsCount

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx

Dim objWshNetwork

Dim strUserSID
Dim strProcessUserSID
Dim strProcessNumber4Terminate

Dim i


strComputer = "."
lngColumnsCount = 3

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessID <> " & CStr(GetScriptProcessID()) & "")

Set objWshNetwork      = WScript.CreateObject("WScript.Network")

strUserSID = objSWbemServicesEx.Get("Win32_UserAccount.Domain='" & objWshNetwork.UserDomain & "',Name='" & objWshNetwork.UserName & "'").SID

With WScript.CreateObject("ADOR.Recordset")
	With .Fields
		.Append "Name",   adVarChar, 256
		.Append "Handle", adInteger
	End With
	
	.Open
	.Sort = "Name ASC"
	
	For Each objSWbemObjectEx In collSWbemObjectSet
		If objSWbemObjectEx.GetOwnerSid(strProcessUserSID) = 0 Then
			If strUserSID = strProcessUserSID Then
				.AddNew Array("Name", "Handle"), Array(objSWbemObjectEx.Name, objSWbemObjectEx.Handle)
			End If
		End If
	Next
	
	.MoveFirst
	
	Do
		For i = 1 To lngColumnsCount
			If Not .EOF Then
				WScript.StdOut.Write "[" & CStr(.AbsolutePosition) & "] " & Left(.Fields.Item("Name").Value & Space(25), 25) & vbTab
				.MoveNext
			Else
				Exit Do
			End If
		Next
		
		WScript.StdOut.WriteLine
	Loop
	
	Do
		WScript.StdOut.WriteLine
		WScript.StdOut.Write "Введите номер процесса для удаления [1-" & CStr(.RecordCount) & "]:"
		
		strProcessNumber4Terminate = Trim(WScript.StdIn.ReadLine())
		
		If Len(strProcessNumber4Terminate) <> 0 Then
			If IsNumeric(strProcessNumber4Terminate) Then
				If CLng(strProcessNumber4Terminate) >= 1 And CLng(strProcessNumber4Terminate) <= .RecordCount Then
					Exit Do
				Else
					WScript.StdOut.WriteLine "Введённый номер [" & strProcessNumber4Terminate & "] не соответствует ни одному процессу."
				End If
			Else
				WScript.StdOut.WriteLine "Введено не числовое значение."
			End If
		Else
			WScript.StdOut.WriteLine "Отсутствует ввод."
		End If
	Loop
	
	.AbsolutePosition = CLng(strProcessNumber4Terminate)
	
	Set objSWbemObjectEx = objSWbemServicesEx.Get("Win32_Process.Handle=" & CStr(.Fields.Item("Handle").Value) & "")
	
	If objSWbemObjectEx.Terminate() = 0 Then
		WScript.StdOut.WriteLine "Процесс [" & objSWbemObjectEx.Name & "] успешно удалён"
	Else
		WScript.StdOut.WriteLine "Не удалось удалить процесс [" & objSWbemObjectEx.Name & "]"
	End If
	
	Set objSWbemObjectEx = Nothing
	
	.Close
End With

Set objWshNetwork      = Nothing

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Function GetScriptProcessID()
	With WScript.CreateObject("WScript.Shell").Exec( _
		"""mshta.exe"" ""<HTML><HEAD><HTA:APPLICATION APPLICATIONNAME='GetParentPID' " & _
		"WINDOWSTATE='minimize' SHOWINTASKBAR='no'</HEAD></HTML>""" _
	)
		GetScriptProcessID = objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(.ProcessID) &"'").ParentProcessID
		.Terminate
	End With
End Function
'=============================================================================

Запускать посредством хоста «cscript.exe».

[sov44]

Iska, благодарю, но интересует реализация скрипта в bat.
VBS для меня пока ещё "лес дремучий"
п.с. сорри, что запостил не в той теме.

[Iska]

Iska, благодарю, но интересует реализация скрипта в bat. »

Как скажете. А Вы его пробовали?

п.с. сорри, что запостил не в той теме. »

Поскольку Ваш вопрос никак не связан с данной темой, стоило поместить его в отдельную.

[sov44]

Вроде сделал, но пока не получается выстроить ровность столбцов. Нужна подсказка.

Код:

@echo off
SetLocal EnableDelayedExpansion
For /F "tokens=1 delims=," %%p In ('tasklist /FO CSV^|sort') Do (
Set nam=%%p
if %%p neq "Имя образа" (
Set /A nn +=1
if !nn! LEQ 9 set "nn= !nn!"
set proc!nn!=%%p
set "sort=!nn!. !nam:~1,-1!"
for /f "delims=*" %%a in ("!nn!. !nam:~1,-1!") do (
set "$a=%%a        "
Set /A Cnt += 1
set "$s=!$s!!$a!"& set/a $i+=1
if "!$i!"=="3" echo:!$s!& set "$s="& set/a $i=0
)))
echo.
set /p kill=Введите номер процесса, который нужно завершить:
echo Выбран !proc%kill%!. Уверены?
echo.
pause
taskkill /f /im !proc%kill%! /T
pause>nul

[Iska]

Дополнение справа пробелами Вы уже сделали. Просто обрезайте заданное количество символов, например:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

for %%i in ("Hello World" "Мама мыла раму" "Рабы не мы, мы не рабы") do (
	set sValue=%%~i                            
	set sOut=!sOut!!sValue:~0,20!
)
echo.%sOut%

endlocal
exit /b 0

[Anonymоus]

sov44, вот реализация на bat, столбцы ровные, с нумерацией, добавлен ведущий ноль, дубли процессов убраны. Слишком длинные имена обрезаются с добавлением троеточия, но когда скрипт запрашивает подтверждение на убийство процесса, его имя выводится полностью.

Сортировка выполнена через жопу, так пришлось сделать потому, что не хотелось отлавливать system и system idle из прошедшего вначале через sort списка.

Код:

@Echo Off
SetLocal EnableDelayedExpansion

:Main
Set ProcessList=
rem Получаем список процессов без хлама, типа System и System Idle
For /F "skip=3 tokens=1 delims=," %%P In ('tasklist /FO CSV /NH') Do (
rem Убираем повторы, составляем список
	Echo !ProcessList!|Find ":%%~P:">nul||(
		Set ProcessList=!ProcessList!:%%~P:
		Set %%~P=MarkForSorting
	)
)

Set ProcessNum=0&Set Row=0&Set RowData=&Set DisplayNum=0
rem Жуткий костыль с сортировкой, но по другому не вышло бы из-за skip в
rem первом цикле
For /F "tokens=1 delims==" %%P In ('Set^|Sort^|Find "MarkForSorting"') Do (
rem Назначаем номер процессу
	Set /A ProcessNum+=1&Set ProcessNum!ProcessNum!=%%P
	Set Process=%%P
rem Добавление ведущего нуля
	If !ProcessNum! LSS 10 (Set DisplayNum=0!ProcessNum!) Else (Set DisplayNum=!ProcessNum!)
rem Максимальная ширина столбца-1
	If !Row! GTR 2 (
		Echo  !RowData!
		Set Row=1
		Call :Autowidth " !DisplayNum! !Process!"
		Set RowData=!String!
	) Else (
		Set /A Row+=1
		Call :Autowidth " !DisplayNum! !Process!"
		Set RowData=!RowData!!String!
	)
)
rem Вывод остатка строки
Echo  %RowData%

rem Удаление ненужных переменных
For /F "tokens=1 delims==" %%P In ('Set^|Find "MarkForSorting"') Do (Set %%P=)

Echo.
Set /P KillNum=Выберите номер процесса для завершения^> 
Echo.
Echo Вы точно хотите убить процесс #%KillNum% !ProcessNum%KillNum%! ?
Set /P Confirm=[Y\N]^> 
If /I %Confirm%==y (
	TaskKill /F /IM "!ProcessNum%KillNum%!"
rem Без этой задержки в списке иногда появлялись только что убитые процессы
	Ping -n 2 127.0.0.1>nul
	Echo.&Echo.
	GoTo Main
) Else (
	Echo.&Echo.
	GoTo Main
)

rem Автовыравнивание, обрезка длинного имени и добавление '...', если
rem имя процесса не влазит в ширину столбца
:Autowidth
Set String=%~1
If Not "%String:~25%"=="" Set String=%String:~,22%...
:Loop
If "%String:~25%"=="" Set String=%String% &GoTo Loop	
Exit /B

UPD: Сделал автовыравнивание не на табах, как у меня было, а воспользовался советом Iska и дополнил пробелами.