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

Как могу я включайте извещение электронная почта когда сценарии пнуты и остановлены. В настоящее время, оно посылает электронная почта когда архив не изменял состояние (обновленное). Хотел был держать эту характеристику и добавлять извещения когда она начинает и останавливает. Свои запланированные старт/стоп через 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="">
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us