VBS/WSH/JS - Запуск программы по заданой дате через VBS

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

| Правила

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

Настройки темы

VBS/WSH/JS - Запуск программы по заданой дате через VBS

n_i_x

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

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

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

Доброго времени суток всем!

Очень нужна ваша помощь. Никак не могу сам догнать, как сделать правильный vbs файл, который бы при запуске проверял текущую дату и сравнивал её с заданной и если совпадало, то запускал программу.

В общем нужно сдеать запуск программы через vbs в заданную дату.

Спасибо за ранее

Отправлено: 21:05, 22-10-2011

Iska

Ветеран

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

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

Код:

Option Explicit

Dim dtSchedule
Dim dtNow

dtSchedule = DateSerial(2011, 10, 22)
' Или:
' dtSchedule = CDate("22.10.2011")
' dtSchedule = #10/22/2011#
' dtSchedule = DateValue("22 октября 2011")

dtNow      = Now()

If DateDiff("d", dtSchedule, dtNow) = 0 Then
	WScript.Echo "Даты совпали"
	' Ваш код здесь
Else
	' Nothing to do
End If

WScript.Quit 0

Отправлено: 22:39, 22-10-2011 | #2