Вопрос : извещение

Как могу я включайте извещение электронная почта когда сценарии пнуты и остановлены. В настоящее время, оно посылает электронная почта когда архив не изменял состояние (обновленное). Хотел был держать эту характеристику и добавлять извещения когда она начинает и останавливает. Свои запланированные старт/стоп через scheduler задачи, но можно старт и времена остановки определить в сценарии также? Спасибо заранее.

strComputer = «. «objWMIService

Set = GetObject («winmgmts: \ \» & strComputer & «\ корень \ cimv2») colFiles

Set =

For каждое _
objWMIService.ExecQuery («выберите * от CIM_Datafile где имя = 'C:\ \ programfiles \ \ \ dir \ name.txt») objFile в strOriginalTimestamp colFiles
= objFile.LastModified
Next

Wscript.Echo «начали: » & Now

Do пока colFiles True
Wscript.Sleep 3600000
установленные =

_
objWMIService.ExecQuery («выберите * от CIM_Datafile где имя = 'C:\ \ programfiles \ \ \ dir \ name.txt») для каждого objFile в strLatestTimestamp colFiles
= objEmail

Set objFile.LastModified


ProcessScript резюма ошибки следующих =

On CreateObject («CDO.Message " ) следующее если strOriginalTimestamp Then
strOriginalTimestamp <> strLatestTimestamp = strLatestTimeStamp
Else
objEmail.Subject = «вопрос.», то
objEmail.From = «from.com»
objEmail.To = «name.com»

objEmail.Configuration.Fields objEmail.TextBody = тела»). Rel= " nofollow "» _blank»» target= " http://schemas.microsoft.com/cdo/configuration/sendusing href= (" .com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.
objEmail.Configuration.Fields «имени»» rel= "» _blank» target= " http://schemas.microsoft.com/cdo/configuration/smtpserver href= (" .com/cdo/configuration/smtpserver") =. Rel= " nofollow "» _blank»» target= " http://schemas.microsoft.com/cdo/configuration/smtpserverport href= (" .com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields. Конец Update
objEmail.Send
если
Loop class=

Ответ : извещение

Если вы планируете его для того чтобы начать в начале каждого дня, то это выходит петля на 5pm, и посылает вами электронная почта.  Я делал несколько другие незначительные перемены.

Я не люблю «ожидание на один час» построен в сценарий ......, котор это smogло намереваться вы не получить окончательное извещение до 6pm, поэтому я изменял сон до только одна минута, но сценарий только проверит для изменения даты архива когда мельчайшее значение текущего момента времени 00, который находится на часе.

Для учета времени, котор он мог принять для архива, котор нужно проверить, я делал 5:05 времени конца: 00 PM.

Так, вкратце, это не побежать весь день до 5:05: 00 PM, проверяя архив датируют каждый час.  Потому что он проверяет дату архива на часе, вы должны начать запланированную задачу на 9:01: 00 AM каждое утро.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72:

strComputer = «.» strFile = «C:\program files\dir\name.txt» dteEndTime = «5: 05: 00 PM» Установите objWMIService = GetObject («winmgmts: \ \» & strComputer & «\ корень \ cimv2») Установите colFiles = _ objWMIService.ExecQuery («Выберите * от CIM_Datafile где имя = «» & замените (strFile, «\», «\ \ ") & «» ") Для каждого objFile в colFiles strOriginalTimestamp = objFile.LastModified Затем strSubject = «сценарий контроль начало» strFrom = «from.com» strTo = «name.com» strBody = «сценарий контроль начинал на» & теперь strServer = «имя» strSubject SendEmail, strFrom, strTo, strBody, strServer Сделайте пока CDate (время) < CDate="">