Vraag : bericht

Hoe ik een e-mailbericht kan opnemen wanneer de manuscripten weg wordt geschopt en tegengehouden. Momenteel, verzendt het een e-mail wanneer het dossier (bijgewerkte) geen status heeft veranderd. Deze eigenschap zou willen houden en berichten toevoegen wanneer het begint en ophoudt. Zijn geplande/einde via taakplanner, maar kunnen de begin en eindetijden in het manuscript eveneens worden bepaald beginnen? Dank vooraf.

strComputer = „. „objWMIService

Set = GetObject („winmgmts: \ \“ & strComputer & „\ de wortel \ cimv2“)

Set colFiles = objWMIService.ExecQuery _
(„selecteer * uit CIM_Datafile waar Naam = 'C:\ \ programfiles \ \ dir \ \ name.txt“)

For elk objFile in colFiles
strOriginalTimestamp = objFile.LastModified
Next

Wscript.Echo „begon: “ & Hervat Now

Do terwijl True
Wscript.Sleep 3600000
colFiles = objWMIService.ExecQuery _
(„selecteer * uit CIM_Datafile waar Naam = 'C:\ \ programfiles \ \ dir \ \ name.txt“)

voor elk objFile in colFiles
strLatestTimestamp = objFile.LastModified
Volgende

Set objEmail = („CDO.Message " )

On Fout plaatste CreateObject Volgende
ProcessScript
als strLatestTimestamp <> strOriginalTimestamp Then
strOriginalTimestamp = strLatestTimeStamp
Else
objEmail.Subject = „.“ onderwerpt
objEmail.From = „from.com“
objEmail.To = „name.com“
objEmail.TextBody = lichaam“)
objEmail.Configuration.Fields. Punt („ http://schemas.microsoft .com/cdo/configuration/sendusing“) = 2
objEmail.Configuration.Fields. Punt („ http://schemas.microsoft .com/cdo/configuration/smtpserver“) = „naam“
objEmail.Configuration.Fields. Punt („ http://schemas.microsoft .com/cdo/configuration/smtpserverport“) = 25
    objEmail.Configuration.Fields. Het Eind van Update
objEmail.Send
als
Loop

Antwoord : bericht

Als u het om begin elke dag plant te beginnen, zal dit de lijn bij 5pm, weggaan en verzendt u e-mail.  Ik heb een paar andere minder belangrijke veranderingen aangebracht.

Ik houd niet van de „wachttijd want één uur“ dat in het manuscript ...... dit wordt gebouwd kon betekenen u niet het definitieve bericht tot 6pm krijgt, zodat heb ik de slaap in slechts één minuut veranderd, maar het manuscript zal slechts de verandering controleren van de dossierdatum wanneer de minieme waarde van de huidige tijd 00 is, wat op het uur is.

Om van de tijd rekenschap te geven het voor het te controleren dossier zou kunnen nemen, heb ik het 5:05 van de eindtijd gemaakt: 00 PM.

Zo, in het kort, zal dit de hele dag tot 5:05 lopen: 00 PM, die het dossier controleren dateren elk uur.  Omdat het de dossierdatum op het uur controleert, zou u de geplande taak bij 9:01 moeten beginnen: 00 AM elke ochtend.

Achting,

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“

Vastgestelde objWMIService = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ cimv2“)

Reeks colFiles = objWMIService.ExecQuery _
    („Selecteer * uit CIM_Datafile waar Naam = „“ & vervang (strFile, „\“, „\ \“) & „“ „)

Voor elk objFile in colFiles
    strOriginalTimestamp = objFile.LastModified
Daarna

strSubject = „begonnen het manuscript van de Controle“
strFrom = „from.com“
strTo = „name.com“
strBody = het „Controlemanuscript is bij“ & nu begonnen
strServer = „naam“
SendEmail strSubject, strFrom, strBody strTo, strServer

Doe terwijl CDate (Tijd)  < CDate="">
Andere oplossingen  
 
programming4us programming4us