Fråga : meddelande

Hur kan införlivat I ett e-postmeddelande, när skrivar sparkas av och stoppas. I dagsläget det överför en e-post, när spara inte har ändrat (uppdaterad) status. Den skulle något liknandeuppehället detta särdrag och tillfogar meddelanden, när som helst den startar och stoppar. Dess planlagda att starta/stopp via uppgiftsscheduler, men kan start- och stopptiderna definieras i skriva som väl? Tack i förskott.

strComputer = ”. ”objWMIService för

Set = GetObject (”winmgmts: \ \” & strComputer & ”\ rotar \ cimv2”) colFiles för

Set =

For varje som för objWMIService.ExecQuery-_
(”välj * från CIM_Datafile var känt = 'C:\ \ programfiles \ \ dir\ \ name.txt”) var objFile i strOriginalTimestamp = objFile.LastModified
Next

Wscript.Echo för colFiles
”, startade: ” & Now

Do fördriver True
Wscript.Sleep 3600000
fastställda colFiles =

för objWMIService.ExecQuery-_
(”välj * från CIM_Datafile var känt = 'C:\ \ programfiles \ \ dir\ \ name.txt”) för varje som är objFile
för
ProcessScript för meritförteckningen för felet i strLatestTimestamp för colFiles
= objEmail för

Set för objFile.LastModified
för nästa = CreateObject (”CDO.Message " )

On nästa, om Then
för strLatestTimestamp<>strOriginalTimestamp strOriginalTimestamp = strLatestTimeStamp
Else
objEmail.Subject = ”betvingar.”,
objEmail.From = ”from.com”
objEmail.To = ”name.com”
objEmail.TextBody = förkroppsligar”)
objEmail.Configuration.Fields. Objekt (nofollow "” för rel= för _blank " ”för http://schemas.microsoft .com/cdo/configuration/sendusing”) = 2
objEmail.Configuration.Fields. Objektet (nofollow "” för rel= för _blank " ”för http://schemas.microsoft .com/cdo/configuration/smtpserver”) = ”namnger”
objEmail.Configuration.Fields. Objekt (nofollow "” för rel= för _blank " ”för http://schemas.microsoft .com/cdo/configuration/smtpserverport”) = 25
    objEmail.Configuration.Fields. Update
objEmail.Send
avslutar om
Loop " klar "

Svar : meddelande

Om du planlagdr det för att starta på början av varje dag, ska denna går ut kretsa på 5pm och överför dig e-posten.  Jag har gjort en koppla ihop av andra minderårigändringar.

Jag gillar inte ”väntan för en timme” som byggs in i skriva, ...... som denna kunde betyda att du inte får finalmeddelandet till 6pm, så jag har ändrat sömnen till endast en som är minimal, men den skriva ska endast kontrollen för spara daterar ändring, när det minimalt värderar av strömtiden är 00, som äger rum på timmen.

Att redogöra för tiden den styrkataken för att spara kontrolleras, har jag gjort avslutatid5:05: 00 PM.

Så i kort stavelse, detta ska körning all dag till 5:05: 00 PM som kontrollerar spara, daterar varje timme.  Datera på timmen, dig bör starta den planlagda uppgiften på 9:01: därför att den kontrollerar spara,00 FÖRMIDDAG varje morgon.

Hälsningar,

Råna.
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”,

Fastställd objWMIService = GetObject (”winmgmts: \ \” & strComputer & ”\ rotar \ cimv2”)

Fastställda colFiles = objWMIService.ExecQuery-_,
    (”Välj * från CIM_Datafile var känt = ”” & byt ut (strFile, ”\”, ”\ \”) & ”” ”),

För varje som är objFile i colFiles
    strOriginalTimestamp = objFile.LastModified
Därefter

strSubject = ”övervakning skrivar startat”,
strFrom = ”from.com”,
strTo = ”name.com”,
strBody = ”har övervakningen skrivar startat på” & nu
strServer = ”namnger”,
SendEmail strSubject, strFrom, strTo som är strBody, strServer

Gör stunder CDate (Time)  < CDate="">
Andra lösningar  
 
programming4us programming4us