007Alex007
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое за помощь, но к сожалению не работает:
- после замены строки на Set WSHShell = CreateObject("WScript.Shell") скрипт больше не ругается, но создается впечатление, что скрипт, внутри зависших процессов, создает такие же и благополучно их удаляет, а реальные процессы остаются висеть
- использование в скрипте WMI приводит к ошибке
Source: Ошибка выполнения Microsoft VBScript
Description: Требуется объект: 'objWMIService'
File: (null)
Line 6, Character 3
at:
- по поводу твоего скрипта
Цитата:| повторить кусок кода 4 раза для всех процессов |
, что то похожее о чем я написал про замену строки.
Я решил пойти другим путем. Идея такая, скрипт arrProcs копируется из портабельной проги в реальную систему, запускается, а после удаляется. В работе участвуют два скрипта:
1 - arrProcs.vbs - будет удалять зависшие процессы, а после выполнения сам удалится
2 - RUN.vbs - который будет копировать первый в реальную систему и запускать его
1-Скрипт arrProcs.vbs:
Код: Dim WshShell
arrProcs = Array("realplay.exe", "rndlresolversvc.exe", "realsched.exe", "RealUpgrade.exe")
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 To Ubound(arrProcs)
intTemp = WshShell.Run("taskkill /f /IM " & arrProcs(i), 0, True)
Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\arrProcs.vbs") |
2- Скрипт RUN.vbs
Код: Function OnFirstParentStart
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile ExpandPath("%Personal%\arrProcs.vbs") , ExpandPath("C:\"), OverwriteExisting
End Function
Function OnFirstParentExit
ExecuteExternalProcess "WSCRIPT.EXE " & Chr(34) & "C:\arrProcs.vbs" & Chr(34)
End Function |
Все работает, ни каких окон не вылезает, скрипт ни на что не ругается.
Но все таки хотелось, чтобы это все выполнялось в одном скрипте.
|
Всего записей: 138 | Зарегистр. 18-04-2008 | Отправлено: 22:48 19-02-2015 | Исправлено: 007Alex007, 23:33 19-02-2015 |
|
