Frage : Mitteilung

Wie ich kann, eine eMail-Mitteilung enthalten, wenn die Indexe weg getreten wird und gestoppt. Zurzeit sendet sie eine eMail, wenn die Akte nicht den Status geändert hat (aktualisiert). Möchte diese Eigenschaft halten und Mitteilungen addieren, wann immer sie beginnt und stoppt. Sein zeitlich geplanter Anfang/Anschlag über Aufgabenprioritätssteuerung, aber können die Anfangs- und Endzeiten im Index außerdem definiert werden? Dank im Voraus.

strComputer = „. „

Set objWMIService = GetObject („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ cimv2“)

Set colFiles = objWMIService.ExecQuery _
(„* von CIM_Datafile vorwählen, wo Name = 'C:\ \ programfiles \ \ dir \ \ name.txt“)

For jedes, das colFiles
im strOriginalTimestamp = in objFile.LastModified
Next

Wscript.Echo „objFile ist, begannen: “ U. Now

Do, während True
Wscript.Sleep 3600000
gesetzte colFiles = objWMIService.ExecQuery _
(„* von CIM_Datafile vorwählen, wo Name = 'C:\ \ programfiles \ \ dir \ \ name.txt“)

für jedes objFile colFiles
im strLatestTimestamp = objFile.LastModified
in im Folgenden

Set objEmail = CreateObject („CDO.Message " ) dem

On Störungs-Zusammenfassung folgendes
ProcessScript
, wenn strLatestTimestamp <> strOriginalTimestamp Then
strOriginalTimestamp = strLatestTimeStamp
Else
objEmail.Subject = „Thema.“
objEmail.From = „from.com“
objEmail.To = „name.com“
objEmail.TextBody = Körper“)
objEmail.Configuration.Fields. Einzelteil („ http://schemas.microsoft .com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields. Einzelteil („ http://schemas.microsoft .com/cdo/configuration/smtpserver") = „Name“
objEmail.Configuration.Fields. Einzelteil („ http://schemas.microsoft .com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields. Update
    objEmail.Send
Ende wenn
Loop

Antwort : Mitteilung

Wenn Sie es festlegen, um zu Beginn jedes Tages zu beginnen, nimmt dieser die Schleife an 5pm heraus und schickt Ihnen die eMail.  Ich habe ein paar andere geringfügige Änderungen vorgenommen.

Ich mag nicht die „Wartezeit eine Stunde lang“, die in den Index aufgebaut wird, ......, das diese bedeuten könnte, dass Sie nicht die abschließende Mitteilung bis 6pm erhalten, also habe ich den Schlaf zu nur einer Minute geändert, aber der Index überprüft nur auf der Aktendatumänderung, wenn der minuziöse Wert der aktuellen Uhrzeit 00 ist, die auf der Stunde ist.

Zu die Zeit erklären, die gelassen er nehmen konnte, damit die Akte überprüft werden kann, habe ich das Endenzeit-5:05: 00 P.M.

So kurz gesagt, läuft dieses den ganzen Tag bis 5:05: 00 P.M., die Akte überprüfend datieren jede Stunde.  Weil sie das Aktendatum an der Stunde überprüft, sollten Sie die zeitlich geplante Aufgabe am 9:01 beginnen: 00 morgens jeder Morgen.

Respekt,

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:
6:
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 P.M.“

objWMIService = GetObject einstellen („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ cimv2“)

colFiles = objWMIService.ExecQuery _ einstellen
    („* von CIM_Datafile vorwählen in dem Name = „“ u. ersetzen (strFile, „\“, „\ \ ") u. „“ ")

Für jedes objFile in den colFiles
    strOriginalTimestamp = objFile.LastModified
Zunächst

strSubject = „Überwachungindex begann“
strFrom = „from.com“
strTo = „name.com“
strBody = „der Überwachungindex hat an“ u. jetzt begonnen
strServer = „Name“
SendEmail strSubject, strFrom, strTo, strBody, strServer

Tun, während CDate (Zeit)  < CDate="">
Weitere Lösungen  
 
programming4us programming4us