COMPUTER = "SERVERORCOMPUTER"
ROOTFOLDER = "\\" & COMPUTER & "\D$\Users"
SUBDIR = "Windows"
FILE = "win.ini"
REPORTDATE = now
REPORTNAME = "Access Times for " & FILE & " on " & COMPUTER & " Home Drives"
REPORTPATH = wscript.path
REPORTFILE = REPORTPATH & "\" & COMPUTER & ".html"
REPORTFILECVS = REPORTPATH & "\" & COMPUTER & ".csv"
set ofso = createobject("scripting.filesystemobject")
set oReportFile = ofso.createtextfile(REPORTFILE, true)
set oReportFileCSV = ofso.createtextfile(REPORTFILECVS, true)
oReportFile.WriteLine "" & REPORTNAME & "" & REPORTNAME & "
" & " Report Date/Time Start: " & REPORTDATE & "
"
oReportFile.WriteLine ""
oReportFile.WriteLine "User
| HomeFolderSize Bytes
| DateCreated
| DateLastAccessed
| DateLastModified
|
|---|
"
oReportFileCSV.WriteLine "Report Start Date/Time: " & now
oReportFileCSV.WriteLine "User" & vbtab & "HomeFolderSizeBytes" & vbtab & "DateCreated" & VBTAB & "DateLastAccessed" & VBTAB & "DateLastModified" & vbtab & "ReturnErrorCode"
ctr = 0
set oRootFolder = oFso.GetFolder(ROOTFOLDER)
on error resume next
for each oFolder in oRootFolder.SubFolders
wscript.echo oFolder.name
FOLDERSIZE = oFolder.size
FILEPATH = oFolder.path & "\" & SUBDIR & "\" & FILE
if ofso.fileExists(FILEPATH) then
set ofile = ofso.getfile(FILEPATH)
oReportFile.Writeline "" & oFolder.name & "
| " & FOLDERSIZE & "
| " & ofile.DateCreated & "
| " & ofile.DateLastAccessed & "
| " & ofile.DateLastModified & "
|
"
oReportFileCSV.WriteLine oFolder.name & vbtab & FOLDERSIZE & vbtab & ofile.DateCreated & vbtab & ofile.DateLastAccessed & vbtab & ofile.DateLastModified & vbtab & err.number
set oFile = nothing
else
oReportFile.Writeline "" & oFolder.name & "
| " & FOLDERSIZE & "
|
|
|
|
"
oReportFileCSV.WriteLine oFolder.name & VBTAB & FOLDERSIZE & vbtab & vbtab & vbtab & err.number
end if
ctr = ctr + 1
'if ctr = 5 then wscript.quit
err.clear
next
oReportFIle.writeline "
"
oReportFIle.writeline "Report Date/Time End: " & now & "
"
oReportFIle.writeline "
"
oReportFileCSV.WriteLine "Report Date/Time End: " & now
oReportFileCSV.close
oReportFile.close
Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = Ucase(filespec) & "
"
s = s & "Created: " & f.DateCreated & "
"
s = s & "Last Accessed: " & f.DateLastAccessed & "
"
s = s & "Last Modified: " & f.DateLastModified
ShowFileAccessInfo = s
End Function