VBS/WSH/JS

Iska · Отправлено: **15:19, 30-03-2012** | #11

O L E G, проверил, работает. Приведите код, который используете Вы.

O L E G · Конфигурация компьютера

Option Explicit

Dim arrProcesses
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx
Dim objSWbemEventSource

Dim lngThisScriptProcessID

arrProcesses = Array("svchost.exe", "services.exe", "ctfmon.exe", "explorer.exe", "winlogon.exe", "csrss.exe", "lsass.exe", "smss.exe")

strComputer = "."

Set objSWbemLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
objSWbemLocator.Security_.Privileges.AddAsString "SeDebugPrivilege", True

Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

lngThisScriptProcessID = GetScriptProcessID(objSWbemServicesEx)

For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_Process")
With objSWbemObjectEx
If Not (IsProcessEnabled(arrProcesses, .Name) Or .ProcessID = lngThisScriptProcessID) Then
If .Terminate() = 0 Then
'WScript.Echo .Name, "Terminate"
End If
End If
End With
Next

Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
"SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'")

Do
With objSWbemEventSource.NextEvent().TargetInstance
If Not IsProcessEnabled(arrProcesses, .Name) Then
If .Terminate() = 0 Then
'WScript.Echo .Name, "Terminate"
End If
End If
End With
Loop

Set objSWbemEventSource = Nothing
Set objSWbemObjectEx = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator = Nothing

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

'=============================================================================
Function IsProcessEnabled(arrProcesses(), strProcess)
Dim elem

IsProcessEnabled = False

For Each elem In arrProcesses
If UCase(strProcess) = UCase(elem) Then
IsProcessEnabled = True

Exit For
End If
Next
End Function
'=============================================================================

'=============================================================================
Function GetScriptProcessID(objSWbemServicesEx)
Dim strPath

strPath = """mshta.exe"" " & _
"""<HTML><HEAD><HTA:APPLICATION APPLICATIONNAME='GetParentPID' " & _
"WINDOWSTATE='minimize' SHOWINTASKBAR='no'</HEAD></HTML>"""

With WScript.CreateObject("WScript.Shell").Exec(strPath)
GetScriptProcessID = objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(.ProcessID) &"'").ParentProcessID
.Terminate
End With
End Function

Iska · Отправлено: **16:03, 30-03-2012** | #13

Код обрамляется тэгом «code».

В появляющемся окне об ошибке нажмите «Ctrl-C», и результат копирования также вставьте из буфера обмена сюда.

O L E G · Конфигурация компьютера

Код:

---------------------------
Windows Script Host
---------------------------
Сценарий:	C:\Documents and Settings\Admin\Рабочий стол\12.vbs
Строка:	28
Символ:	4
Ошибка:	Сбой при удаленном вызове процедуры. 
Код:	800706BE
Источник: 	SWbemObjectEx

---------------------------
ОК   
---------------------------

ошибка вылазиет не всегда,но вылазиет

Iska · Отправлено: **16:29, 30-03-2012** | #15

O L E G, Вы действительно используете:

Код:

strComputer = "."

или таки по сети работаете?

Давайте попробуем вставить ради эксперимента некоторое ожидание вслед за получением PID скрипта:

Код:

lngThisScriptProcessID = GetScriptProcessID(objSWbemServicesEx)
WScript.Sleep 5000

O L E G · Конфигурация компьютера

Iska,
использую

Код:

strComputer = "."

использую,работаю не по сети

пробовал

Код:

lngThisScriptProcessID = GetScriptProcessID(objSWbemServicesEx)
WScript.Sleep 5000

вылазиет такая же ошибка

Petya V4sechkin · Конфигурация компьютера

O L E G, замените в двух местах фрагмент:

Код:

			If .Terminate() = 0 Then
				'WScript.Echo .Name, "Terminate"
			End If

на:

Код:

			WScript.Echo .Name, "Попытка завершения"
			If .Terminate() = 0 Then
				WScript.Echo .Name, "Terminate"
			End If

После какого процесса выдаст ошибку?

O L E G · Конфигурация компьютера

Код:

---------------------------
Windows Script Host
---------------------------
Сценарий:	C:\Documents and Settings\Admin\Рабочий стол\12.vbs
Строка:	29
Символ:	4
Ошибка:	Не найден 
Код:	80041002
Источник: 	SWbemObjectEx

---------------------------
ОК   
---------------------------

Iska · Отправлено: **17:27, 30-03-2012** | #19

O L E G, даже ни одного имени процесса не выдал? Сразу в ошибку выпал?

Добавьте-ка в arrProcesses — «System Idle Process» и «System».

O L E G · Конфигурация компьютера

извени ребят ,я не успел посмотреть после какого процесса ошибка выскачила но она была.конец рабочего дня был не успел,в понедельник все будет