strComputer = “.”
strFile = “C:\program files\dir\name.txt”
dteEndTime = “5: 05: 00 PM”
Ajustar o objWMIService = o GetObject (“winmgmts: \ \” & strComputer & “\ raiz \ cimv2”)
Ajustar colFiles = _ de objWMIService.ExecQuery
(“Selecionar * de CIM_Datafile onde nome = “” & substituir (strFile, “\”, “\ \ ") & “” ")
Para cada um objFile nos colFiles
strOriginalTimestamp = objFile.LastModified
Em seguida
o strSubject = da “certificado monitoração começou”
strFrom = “from.com”
strTo = “name.com”
strBody = “o certificado da monitoração começou em” & agora
strServer = “nome”
strSubject de SendEmail, strFrom, strTo, strBody, strServer
Fazer quando CDate (tempo) < CDate="">
|