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

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

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

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


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

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


Помогите, не могу сделать чтобы этот скрипт постоянно висел в ожидании, и каждые пять минут проверял сколько копий блокнота запущено





On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
send = "Вы запустили больше одной копии блокнота!!!"
dim a, b, c

a = 5 'каждые 5 минут

If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If

b=a*1000*60
wscript.sleep b

For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
i=i+1
if i>1 then
objProc.Terminate
end if
Next
msgbox send

Отправлено: 11:29, 05-08-2011

 

Ветеран


Contributor


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

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


Примерно так:
читать дальше »
Код: Выделить весь код
Option Explicit

Const intPeriod = 5

Dim objSWbemServices
Dim objSWbemObjectEx

Dim i


Set objSWbemServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")

Do
	i = 0
	
	For Each objSWbemObjectEx In objSWbemServices.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
		i = i + 1
		
		if i > 1 Then
			objSWbemObjectEx.Terminate
		End if
	Next
	
	WScript.Sleep 1000 * 60 * intPeriod
Loop

Set objSWbemServices = Nothing

WScript.Quit
Только смысл? За пять минут в Блокноте можно много чего сделать. И есть более правильный способ: подписка на событие по «Win32_ProcessStartTrace».
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:10, 05-08-2011 | #2



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

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



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
BSoD, Зацикливание Звука и прочие неприятности... Tensh Непонятные проблемы с Железом 8 14-09-2010 11:53
Зацикливание обновлений Michael B. Simonov WSUS 7 28-01-2010 08:43
Зацикливание звука 13DeMoN666 Непонятные проблемы с Железом 10 02-05-2009 00:14
Загрузка - зацикливание начального процесса загрузки WChek Microsoft Windows 2000/XP 10 08-07-2008 02:20




 
Переход