Report files older (ie modified) than a certain date

' FilesMod.vbs
' Reports files older (ie modified) than a certain date
' The date below shows files older than 25 Dec 2006

strDate = "20061225000000.000000+000"

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * From CIM_DataFile Where LastModified < '" & strDate & "'") For Each objFile in colFiles Wscript.Echo objFile.Name Next

More...