Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

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

Ответить
Настройки темы
VBS/WSH/JS - [решено] Слежение за приложением на vbs

Пользователь


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

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


Ребят, подскажите пожалуйста, нужен скрипт на vbs чтобы висел запущенным и смотрел за одним приложением, если это приложение закрыто, сразу его запускал! нужен для того чтобы пользователи не вырубали местный чат)
Писал подобное в батнике, потом паковал прогой в EXE , антивирь начали злостно ругаться и удаляли его, вот пробую на vbs написать)
Подскажите если есть готовый код если нет, то у меня ошибка вылазиет!
Код: Выделить весь код
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\Program Files\папка\приложение.exe"
Set WshShell = Nothing
вроде должен просто запустить приложение, а выводит ошибку! "не удаётся найти указанный файл" строка 4 символ 1...
подскажите пожалуйста, в чём может быть проблема?

Отправлено: 08:27, 13-02-2012

 

Пользователь


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

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


с проблемой запуска разобрался, надо было кавычек больше)
теперь подскажите пожалуйста, как сделать чтобы она висела в процессах?
и ещё бы было здорово чтобы в реестр ветку добавляла!))

Отправлено: 08:30, 13-02-2012 | #2



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

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


Аватара для ferget

Разный


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

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


Цитата Viton-Zizu:
как сделать чтобы она висела в процессах »
http://forum.oszone.net/thread-222275.html

Отправлено: 09:12, 13-02-2012 | #3


Старожил


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

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


Цитата Viton-Zizu:
... как сделать чтобы она висела в процессах?.. »
Если речь о бесконечном цикле, то так:
Код: Выделить весь код
Do
    WScript.Sleep 10000 'кол-во миллисекунд
    'прочий код
Loop
Цитата Viton-Zizu:
... чтобы в реестр ветку добавляла »
Пример:
Код: Выделить весь код
WshShell.RegWrite "HKEY_CURRENT_USER\NewKey\", vbNullString
P.S.
Выбранный Вами подход к решению данной задачи не рационален. Смотрите в сторону создания подписок на системные события с помощью WMI (в теме по ссылке, приведённой ferget,- это пример от Iska).

Последний раз редактировалось DmitriiV, 13-02-2012 в 09:46.


Отправлено: 09:20, 13-02-2012 | #4


Пользователь


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

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


Спасибо большое за ответы!!! сейчас гляну ссылки, попробую чего нить сделать)

Отправлено: 10:08, 13-02-2012 | #5


Пользователь


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

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


Обалденный пример от ISKA!
Код: Выделить весь код
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
Единственно нужно его ещё поставить в автозагрузку, добавлением записи в реестр я решу эту проблему?

Отправлено: 04:47, 15-02-2012 | #6


Пользователь


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

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


Код: Выделить весь код
Dim WshShell
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "C:\Program Files\скрипт\мой_скрипт.vbs"
подскажите синтаксис пожалуйста?)

Разобрался!) ещё по тестю немного и тему поставлю решённой)

Отправлено: 05:34, 15-02-2012 | #7


Пользователь


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

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


единственно нашёл один минус, у той программы которая должна запускаться должен быть отключен "старт вместе с виндовс" иначе дико тупить при старте начинает что невозможно окно свернуть) подскажите с чем это может быть связано? конешно не критично, просто интересно)

Последний раз редактировалось Viton-Zizu, 15-02-2012 в 07:30.


Отправлено: 06:57, 15-02-2012 | #8


Ветеран


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

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


О какой конкретно программе речь?

Отправлено: 13:57, 15-02-2012 | #9


Старожил


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

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


Цитата Viton-Zizu:
... с чем это может быть связано? »
Вероятнее всего, с тем, что в сценарии используется бесконечный цикл.
Не надо пытаться запускать подобные сценарии непосредственно при старте системы или регистрации сеанса пользователя. Ставьте их запуск в планировщик или запускайте с удалённого компьютера.
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:48, 15-02-2012 | #10



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Слежение за удаленным ПК GRONTO Хочу все знать 2 20-08-2015 16:53
VBS/WSH/JS - Помогите редактировать Autorun_Disable.vbs на Autorun_Enable.vbs nod201 Скриптовые языки администрирования Windows 0 05-12-2009 05:44
Система - Слежение за программой. LINCOLN Программное обеспечение Windows 7 10-06-2009 02:07
Система - Слежение за файлами Den13V Программное обеспечение Windows 0 31-10-2008 15:04
Слежение за юзерами Mist168 Сетевые технологии 4 04-02-2003 07:32




 
Переход