I have the following script which locates all access files on a machine:
strComputer = \".\" Set objWMIService = GetObject(\"winmgmts:\\\\\" & strComput
Use the FileSystemObject's .CreateTextFile method to create a text file. Study the documentation/sample carefully.
A CIM_DataFile has a .LastAccess property.
.LastAccess