Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - VBS мониторинга процесса по времени

Ответить
Настройки темы
VBS/WSH/JS - VBS мониторинга процесса по времени

Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать


Доброго времени суток! Есть скрипт
Код: Выделить весь код
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = 'proc1.exe'")

If colProcesses.Count = 0 Then
  Set objShell = Wscript.CreateObject("Wscript.Shell")
  objShell.Run "proc2.exe"
End If
proc2 по факту батник для запуска proc1 с ключами.
Данный скрипт необходимо поставить в цикл, на проверку например каждые 5 минут наличия Proc1 и соответственно запуска proc2 при его отсутствии.

Отправлено: 14:45, 29-01-2017

 


Moderator


Сообщения: 53589
Благодарности: 15546

Профиль | Отправить PM | Цитировать


Цитата san1kan:
на проверку например каждые 5 минут
Обычно это делается с помощью "Планировщика заданий".

Отправлено: 15:59, 29-01-2017 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Petya V4sechkin:
Обычно это делается с помощью "Планировщика заданий". »
Планировщик конечно вариант, но хотелось бы через скрипт. Примерно как в этом. Только тут на 1 процесс сделано.
Код: Выделить весь код
Option Explicit

Dim lngProcessID

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	Do
		If .Get("Win32_Process").Create( _
			"""C:\Program Files\Internet Explorer\iexplore.exe"" -k ""file://C:\WINDOWS\Help\Tours\htmlTour\default.htm""", _
			Null, Null, lngProcessID) = 0 Then
			
			.ExecNotificationQuery( _
				"SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE " & _
				"TargetInstance ISA 'Win32_Process' AND " & _
				"TargetInstance.ProcessID = '" & CStr(lngProcessID) & "'").NextEvent
		Else
			' Не удалось запустить процесс
			Exit Do
		End If
	Loop
End With

WScript.Quit 0

Отправлено: 16:04, 29-01-2017 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - VBS мониторинга процесса по времени

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - [решено] Ограничение времени работы избранного процесса mapisic Скриптовые языки администрирования Windows 3 23-08-2015 21:17
CMD/BAT - Скрипт мониторинга и последующего убийства процесса FilO Скриптовые языки администрирования Windows 3 11-12-2014 16:56
CMD/BAT - [решено] подсчёт времени запущенного процесса redebook.exe vlad_exe@vk Скриптовые языки администрирования Windows 13 15-05-2012 23:02
VBS/WSH/JS - Получение времени бездействия пользователя VBS Spooner Скриптовые языки администрирования Windows 4 16-02-2012 17:14
C++ Builder->Определение времени, необходимого для завершения процесса XCodeR Программирование и базы данных 6 18-01-2005 14:40




 
Переход