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="">
|