Pytanie : powiadomienie

Jak móc i wcielać email powiadomienie gdy the pismo kopać daleko i zatrzymywać. Przy teraźniejszość, ono wysyłać email gdy the kartoteka zmieniać status (aktualizować). Polubić ten cecha i powiadomienie za każdym razem, gdy ono zaczynać i zatrzymywać. Swój dołączony/przerwa przez zadanie scheduler, ale móc the początek i przerwa czas definiować w the pismo także? Dzięki w postęp.

strComputer = ". "

Set objWMIService = GetObject ("winmgmts: \ \" & strComputer & "\ korzeń \ cimv2")

Set colFiles = objWMIService.ExecQuery _
("Wybiórka * od CIM_Datafile Dokąd Imię = 'C:\ \ programfiles \ \ dir \ \ name.txt")

For/>Wscript.Echo objFile w colFiles
strOriginalTimestamp = objFile.LastModified
Next

Wscript.Echo "zaczynać: " & Now

Do Podczas Gdy True
Wscript.Sleep 3600000
Ustalony colFiles = objWMIService.ExecQuery _
("Wybiórka * od CIM_Datafile Dokąd Imię = 'C:\ \ programfiles \ \ dir \ \ name.txt")

Dla Temat objFile w colFiles
strLatestTimestamp = objFile.LastModified
Następny

Set objEmail = CreateObject ("CDO.Message " )

On Błąd Życiorys Następny
ProcessScript
Jeżeli strLatestTimestamp <> strOriginalTimestamp Then
strOriginalTimestamp = strLatestTimeStamp
Else
objEmail.Subject = "temat."
objEmail.From = "from.com"
objEmail.To = "name.com"
objEmail.TextBody = ciało")
objEmail.Configuration.Fields. Rzecz (" http://schemas.microsoft .com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields. Rzecz (" http://schemas.microsoft .com/cdo/configuration/smtpserver") = "imię"
objEmail.Configuration.Fields. Rzecz (" http://schemas.microsoft .com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields. Update
objEmail.Send
Końcówka Jeżeli
Loop

Odpowiedź : powiadomienie

Jeżeli ty planować ono na początku każdego dnia, planować wychodzić the pętla przy 5pm, i wysyłać ty the email.  I robić kilka inny mała zmiana.

I lubić the "czekać na jeden godzina" który budować w the pismo ...... i móc ty dostawać the definitywny powiadomienie do 6pm, więc I zmieniać the sen tylko jeden minuta, ale the pismo tylko sprawdzać dla the kartoteka data zmiana gdy the minutowy wartość the aktualny czas być 00, che być na the godzina.

The czas ono można dla the kartoteka, I robić the końcówka czas 5:05: 00 po południu.

W Ten Sposób, w skrót, to biegać całodniowy do 5:05: 00 po południu, the kartoteka datować każdy godzina.  Ponieważ ono sprawdzać the kartoteka data na the godzina, ty musieć the dołączony zadanie przy 9:01: 00 AM ranek ranek.

Uwzględnienie,

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 po południu"

Ustalony objWMIService = GetObject ("winmgmts: \ \" & strComputer & "\ korzeń \ cimv2")

Ustalony colFiles = objWMIService.ExecQuery _
    ("Wybiórka * od CIM_Datafile Dokąd Imię = "" & Zamieniać (strFile, "\", "\ \ ") & "" ")

Dla ColFiles objFile W colFiles
    strOriginalTimestamp = objFile.LastModified
Następnie

strSubject = "Monitorowanie pismo zaczynać"
strFrom = "from.com"
strTo = "name.com"
strBody = "The monitorowanie pismo zaczynać przy" & Teraz
strServer = "imię"
SendEmail strSubject, strFrom, strTo, strBody, strServer

Robić Podczas Gdy CDate (Czas)  < CDate="">
Inne rozwiązania  
 
programming4us programming4us