strComputer = “.”
strFile = “C:\program files\dir\name.txt”
dteEndTime = “5: 05: 00 P.M.”
Fijar el objWMIService = GetObject (“winmgmts: \ \” y strComputer y “\ raíz \ cimv2”)
Fijar los colFiles = el _ de objWMIService.ExecQuery
(“Seleccionar * de CIM_Datafile donde nombre = “” y substituir (strFile, “\”, “\ \ ") y “” ")
Para cada uno objFile en colFiles
strOriginalTimestamp = objFile.LastModified
Después
el strSubject = “escritura de la supervisión comenzó”
strFrom = “from.com”
strTo = “name.com”
strBody = “la escritura de la supervisión ha comenzado en” y ahora
strServer = “nombre”
strSubject de SendEmail, strFrom, strTo, strBody, strServer
Hacer mientras que CDate (tiempo) < CDate="">
|