strComputer = “.„
strFile = “C:\program files\dir\name.txt„
dteEndTime = “5: 05: 00 PM„
Regolare il objWMIService = GetObject (“winmgmts: \ \„ & strComputer & “\ radice \ cimv2„)
Regolare i colFiles = il _ di objWMIService.ExecQuery
(“Selezionare * a partire da CIM_Datafile dove nome = “„ & sostituire (strFile, “\„, “\ \ ") & “„ ")
Per ciascuno objFile nei colFiles
strOriginalTimestamp = objFile.LastModified
Dopo
lo strSubject = “scritto della Verifica e Controllo ha cominciato„
strFrom = “from.com„
strTo = “name.com„
strBody = “lo scritto di controllo ha cominciato a„ & ora
strServer = “nome„
strSubject di SendEmail, strFrom, strTo, strBody, strServer
Fare mentre CDate (tempo) < CDate="">
|