[= Nicki =]

Сообщение от Hamster

Но, скрипт действительно никчему - требуемые функции ужо есть в самой программе

Вот, в ФАКе ясно написано что нуна сделать: http://www.dennisbabkin.com/php/faq.php?what=wosb#14

скрипт нужен для того чтобы не использовать фронт енд для этого. wosb или батник на его основе кто-то должен запустить - это и делает скрипт. Я использую RR DS, программа только развивается есть некоторые проблемы с отработкой событий при засыпании. Поэтому и обратился к скрипту. Скрипт из шапки у меня не заработал, поэтому немного "по испортив" исходный код получилось вот это:

wosbExe = "c:\WakeupOnStandBy\wosb.exe"  ' Путь к wosb.exe
sTimeInsuspend = "15"

Set oShell = CreateObject("WScript.Shell")
Set colMonitoredEvents = GetObject("winmgmts:").ExecNotificationQuery("Select * from Win32_PowerManagementEvent")

Do
	Set objLatestEvent = colMonitoredEvents.NextEvent
	Select Case objLatestEvent.EventType
		Case 4
			'Suspend
			oShell.Run wosbExe & " /systray /run time=+" & sTimeInsuspend & ":00 hibernatewait=0",0,False
		
		Case 18
			' 7 - Resume, 18 - Automatic Resume
			oShell.Run wosbExe & " /closeall", 0, False
	End Select	
Loop

Делаем по инструкции из шапки, только вставляем код из этого поста. На ББ протестировал. Нажимаем кнопку Power на системнике - комп уходит в Ждущий режим, через 15 минут просыпается и уходит в Спящий режим. Думаю автор темы не будет против?