HTA: Напоминание

Я похожее делал как-то - тоже надо было пару раз в день выдавать сообщение в определенное время, правда текст там был одинаков, приложение висело пару минут и предлагало пользователю за это время отменить старт выключения машины.
Тогда я выкрутился так:
1) любым способом (автозапуск/политики/проч.) запускаем vbs-скрипт;
2) этот скрипт "засыпает" до прописанного в нем времени (вычисляется разница в секундах от текущего времени до требуемого, ожидание WScript.Sleep ЦП машины "не грузит);
3) "просыпаясь" стартует HTA-приложения для подтверждения пользователем работы на машине, потом еще раз "засыпает" до второго назначенного времени.

Если интересен такой подход - скрипт и HTA выложу.

Задумывалось так: на определенные машины распространялось в папку "c:\programs\_shtdwn" ПО, в котором:
- батник "poweroff_shedul.cmd" - линк на него помещается в "%ALLUSERSPROFILE%\Start Menu\Programs\Startup";
- скрипт "poweroff_shedul.vbs" - его запускает батник из автостарта, скрипт висит незаметно в процессах до назначенного срока (19-00 и 22-00);
- приложение "poweroff_prompt.HTA" - запускаемое скриптом в нужный час на передний план для ожидания в течении 2-х минут реакции пользователя, реакции нет - выключение машины.

Исходники здесь: https://code.google.com/p/small-scripts … r_shutdown

Rom5, если можешь залей на файлобменник, а то исходник кривой со знаками вопроса! Ошибки при создания файлов.
Может и в шрифтах дело, но плиз залей.

Нашел вот такой код, из него кто нить может воплотить мою мечту?!

MyDay = Day(Now)
MyWeekDay = Weekday(Now) 
If MyDay < 7 And MyWeekDay = 6 Then
MsgBox "Сеня первая пятницо месяца, надо ченить запустить"
' ... тут запуск чего нить
Else 
WScript.Quit
End If


Что бы не было вопросов про WeekDay:
'Vbs help' said
Constant Value Description 
vbSunday 1 Sunday
vbMonday 2 Monday 
vbTuesday 3 Tuesday 
vbWednesday 4 Wednesday 
vbThursday 5 Thursday
vbFriday 6 Friday
vbSaturday 7 Saturday

Скрипт должен устанавливаться на комп setup"ом.

Конечно огромное спасибо, но все же нужен vbs.
И не работает почему-то команда не запускает, изменил имя картинки для теста и день за место Su поставил W не как что то.

Синтаксис работы со "start" привел некорректно, надо было перед ним вызывать cmd.exe либо вместо "start" напрямую указать вызов вьюера картинок. Вот, рабочий пример работы с AT :

C:\Windows\system32>at 11:13 /every:W %ComSpec% /c start "" "c:\!!\Capture.PNG"
Added a new job with job ID = 2

C:\Windows\system32>AT
Status ID   Day                     Time          Command Line
-------------------------------------------------------------------------------
        2   Each W                  11:13         C:\Windows\system32\cmd.exe /c start  c:\!!\Capture.PNG

И в 11:13 файл "c:\!!\Capture.PNG" мне открылся в ассоциированной у меня с .PNG программой.

Пример ожидания заданного времени VBS-скриптом я ведь в архиве приводил в сообщении - 2013-04-08 08:59 или не подходит / не разобрались ?

Вставьте в нем вызов просмотра своей картинки или можно прямо скриптом создать HTA-окно для вывода фоновой картинки с Вашим текстом - в Коллекции были примеры: WSH: создание окна, а также трансляция WScript в HTA

Запускайте строку не через "Run" виндовый, а  сначала стартуйте сам CMD.exe. Потом уже в нем набирайте руками команды. Да и в самом планировщике (через Control Panel) должно быть видно созданное задание.