1 Тема от griha09

  • griha09
  • Участник
  • Неактивен

Тема: Убивание процесса Wscript и завершение интернет-соединения

У меня есть скрипт который постоянно висит в памяти, мониторит состояние интернет-соединения и при обрыве подключается заново. А как сделать скрипт который бы убивал предыдущий скрипт в памяти и завершал бы  интернет-соединение?

2 Ответ от JSmаn

  • JSmаn
  • Разработчик
  • Неактивен

Re: Убивание процесса Wscript и завершение интернет-соединения

griha09, код в студию. Также укажите в заголовке язык программирования.
Для завершения нужно процесса можно перебрать все процессы  WScript.exe, и если командная командная строка процесса (путь к файлу скрипта) соответствует искомой строке, то его и завершаем.

3 Ответ от griha09

  • griha09
  • Участник
  • Неактивен

Re: Убивание процесса Wscript и завершение интернет-соединения

да кода-то нет, т.к. не знаю как отличить один процесс WScript.exe от другого. Единственное, убивать собрался через Terminate. Разрывать интернет через <rasphone.exe -h "имя_соединения">. Язык VBS.
Как перебрать все процессы  WScript.exe, и если командная командная строка процесса (путь к файлу скрипта) соответствует искомой строке?

4 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: Убивание процесса Wscript и завершение интернет-соединения

griha09 пишет:

Как перебрать ...?

Как-то так:

' Назначение: Завершить процесс WScript c указанным скриптом
' Параметр:   "<путь к скрипту>"
'================================================================================================
WSCPath = CreateObject("WScript.Shell").Environment("Process")("WINDIR") & "\System32\wscript.exe"
CMDLine = Replace("""" & WSCPath & """ """ & WScript.Arguments(0) & """", "\", "\\")
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set WSC = WMI.ExecQuery("SELECT CommandLine FROM Win32_Process WHERE CommandLine='" & CMDLine & "'")
If WSC.Count = 0 Then
  Wscript.Echo "Указанный скрипт не запущен!"
Else
  For Each P in WSC : P.Terminate : Next
End If
Set WMI = Nothing : Set WSC = Nothing : WScript.Quit

5 Ответ от griha09

  • griha09
  • Участник
  • Неактивен

Re: Убивание процесса Wscript и завершение интернет-соединения

простите за тупость, но так и не понял где этот Параметр? Куда писать путь к скрипту?

6 Ответ от Flasher (изменено: Flasher, 2012-03-14 20:13:49)

  • Flasher
  • Заблокирован
  • Неактивен

Re: Убивание процесса Wscript и завершение интернет-соединения

Смотря как вызываете (через Run/консоль, через ярлык, через тулбар файлменеджера и т.д.). Сперва идёт путь к вызываемому скрипту, за ним к проверяемому. См. справку.