递归检查文件Last AccessedDate时间戳

Question

我有以下代码是脚本的一部分：

Quote = Chr(34)
arrExt = Array(".mdb")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ScanFolder(objFSO.GetFolder("E:\"))

Function ScanFolder(objFolder)
   For Each objFile In objFolder.Files
      For Each strExt In arrExt
         If LCase(Right(objFile.Name, Len(strExt))) = LCase(strExt) Then
            WScript.Echo Quote & objFile.Path & Quote & "," & objFile.DateLastAccessed
            Exit For
         End If
      Next
   Next
   For Each objSubFolder In objFolder.SubFolders
      ScanFolder(objSubFolder)
   Next
End Function

它返回：

  

Microsoft VBScript运行时错误：权限被拒绝

BTW我们正在使用Windows Server 2003和I AM管理员，我甚至尝试通过以管理员身份运行的CMD启动脚本。我检查了\ users \中的所有文件夹，并确保我拥有管理员的完全控制权限。