Question : avis

Comment ose j'incorporer un avis d'email quand les manuscrits est donnés un coup de pied au loin et arrêtés. Actuellement, il envoie un email quand le dossier n'a pas changé le statut (mis à jour). Voudrait garder ce dispositif et ajouter des avis toutes les fois qu'il commence et s'arrête. Son de début et de fin programmé par l'intermédiaire du programmateur de tâche, mais les temps de début et d'arrêt peuvent-ils être aussi bien définis dans le manuscrit ? Merci à l'avance.

strComputer = « . « objWMIService du

Set = GetObject (« winmgmts : \ \ » et le strComputer et « \ racine \ cimv2 ») les colFiles de

Set = le

For chacun du _
d'objWMIService.ExecQuery (« choisir * à partir de CIM_Datafile où nom = 'C:\ \ programfiles \ \ \ de dir \ name.txt ») objFile dans le strOriginalTimestamp = l'objFile.LastModified
Next

Wscript.Echo du colFiles
« ont commencé :  » Et Now

Do tandis que colFiles de True
Wscript.Sleep 3600000
=
d'objWMIService.ExecQuery (« choisir * à partir de CIM_Datafile où nom = 'C:\ \ programfiles \ \ \ de dir \ name.txt »)/>
pour chacun objFile
du
ProcessScript de résumé d'erreur dans le strLatestTimestamp du colFiles
= le prochains objEmail du

Set d'objFile.LastModified
=

On de CreateObject (« CDO.Message " ) prochain si strOriginalTimestamp de Then
de strOriginalTimestamp de <> de strLatestTimestamp = strLatestTimeStamp
Else
objEmail.Subject = « sujet. »
objEmail.From = « from.com »
objEmail.To = « name.com »

objEmail.Configuration.Fields d'objEmail.TextBody = de corps »). Rel= " nofollow " de » _blank » de target= de " http://schemas.microsoft.com/cdo/configuration/sendusing » de href= de (" .com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.
objEmail.Configuration.Fields de « nom » de rel= " de » _blank » de target= de " http://schemas.microsoft.com/cdo/configuration/smtpserver » de href= de (" .com/cdo/configuration/smtpserver") =. Rel= " nofollow " de » _blank » de target= de " http://schemas.microsoft.com/cdo/configuration/smtpserverport » de href= de (" .com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields. Extrémité d'Update
objEmail.Send
si
Loop class= de

Réponse : avis

Si vous le programmez pour commencer au début de chaque jour, ceci sortira la boucle à 17h, et t'envoie l'email.  J'ai fait deux ou trois autres modifications mineures.

Je n'aime pas la « attente une heure » qui est établie dans le manuscrit ...... que ceci pourrait signifier que vous n'obtenez pas l'avis final jusqu'à 18h, ainsi j'ai changé le sommeil en seulement une minute, mais le manuscrit vérifiera seulement le changement de date de dossier quand la valeur minutieuse du temps courant est 00, qui a lieu l'heure.

Pour expliquer le temps où il pourrait prendre pour que le dossier soit vérifié, j'ai fait le 5h05 de temps de fin : 12h.

Ainsi, en bref, ceci fonctionnera toute la journée jusqu'à 5h05 : Le 12h, vérifiant le dossier datent chaque heure.  Puisqu'elle vérifie la date de dossier l'heure, vous devriez commencer la tâche programmée à 9h01 : 0h du matin chaque matin.

Respect,

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 = « 5h05 : 12h »

Placer l'objWMIService = le GetObject (« winmgmts : \ \ » et strComputer et « \ racine \ cimv2 »)

Placer les colFiles = le _ d'objWMIService.ExecQuery
    (« Choisir * à partir de CIM_Datafile où nom = «  » et remplacer (strFile, « \ », « \ \ ") et «  » ")

Pour chacun objFile dans les colFiles
    strOriginalTimestamp = objFile.LastModified
Après

le strSubject = « manuscrit de surveillance a commencé »
strFrom = « from.com »
strTo = « name.com »
strBody = « le manuscrit de surveillance a commencé à » et maintenant
strServer = « nom »
strSubject de SendEmail, strFrom, strTo, strBody, strServer

Faire tandis que CDate (temps)  < CDate="">
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us