Alright, I'm having a problem with a scheduled task not running. At first it wouldn't run the vbs, so I created a bat to run it and then it would work, but only when the user is logged in. I went into the local security policy and made sure my account was in, "log on as batch job" group. When I assign it to then run whether logged in or not, it fails to run. It gets caught up somewhere, without throwing any error codes, but not creating the Excel spreadsheet.
If anyone has any ideas, I'm open to it. Here is what the code looks like.
delete_backup.bat
cscript C:\delete_backup.vbs
exitdelete_backup.vbs
' delete_backup.vbs
' ***************************************************
' * This script will delete all files in a folder and
' * sub-folder where when files are x number of days
' * old.
' *
' * Files will be deleted and not retained in the
' * recycle bin.
' *
' * Alter the path and lifetime variables to your needs
' * Alter this variable, this is the starting point
' * for the deletion.
' * Example : path = "\\teacher\backup"
' * Example : path = "N:\Logfiles"
Path = "C:\siouxfallsserv backup\backup\"
' * Alter this variable, if sub-folders should be processed
' * Process Sub folders Example : Subfolders = True
' * Process Sub folders Example : Subfolders = False
Subfolders = True
' * Alter this variable to set the how many days old
' * the file should be before it is deleted.
' * Example : lifetime = date() - 20
' * Will delete files that are 20 days old or more
Lifetime = date() - 15
' *******************************************************
' Script starts at this point
' *******************************************************
' Declare a variable as an Array that will store a listing
' of files that will be checked.
FilesArray = Array()
' Create an instance of the FileSystemObject so that file
' information can be obtained.
set fso = createobject("scripting.filesystemobject")
' Call the SelectFiles procedure to Fill the array with
' files and folders that will be deleted
SelectFiles path, lifetime, FilesArray, Subfolders
' Process the FilesArray deleting files as we loop through
numDeleted = 0
for n = 0 to ubound(FilesArray)
' Switch off error checking, so that errors are ignored
on error resume next
' Call the delete function to delete the selected file
FilesArray(n).delete true
' Handle any errors or results. This could be modified
' to log to a text file.
'if err.number <> 0 then
' wscript.echo "Unable to delete: " & FilesArray(n).path
'else
' numDeleted = numDeleted + 1
'end if
' Switch Error checking back to normal
on error goto 0
next
sub SelectFiles(sPath,vlifetime,FilesArrayToKill,bIncludeSubFolders)
' Switch off Error handling, errors ignored.
on error resume next
'select files to delete and add to array...
set folder = fso.getfolder(sPath)
set files = folder.files
' Loop through files that have been found
for each file in files
' uses error trapping around access to the
' Date property just to be safe
dtlastmodified = null
on error resume Next
dtlastmodified = file.datelastmodified
on error goto 0
if not isnull(dtlastmodified) Then
if dtlastmodified < vlifetime then
count = ubound(FilesArrayToKill) + 1
redim preserve FilesArrayToKill(count)
set FilesArrayToKill(count) = file
end if
end if
next
' If sub-folders are selected, call the procedure again to update
' the array with the contents.
if bIncludeSubFolders then
for each fldr in folder.subfolders
SelectFiles fldr.path,vlifetime,FilesArrayToKill,true
next
end if
end sub
'==========================================================================
'
'Create Excel Doc
'==========================================================================
Dim oFS, oFolder
Dim objexcel, r, lnameArray, lname, nameLength
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("C:\siouxfallsserv backup\backup\")
Set objExcel = createobject("Excel.application")
objexcel.Workbooks.add
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
objexcel.Cells(1, 1).Value = "Folder Name"
objexcel.Cells(1, 2).Value = "Size (MB)"
objexcel.Cells(1, 3).Value = "# Files"
objexcel.Cells(1, 4).Value = "# Sub Folders"
objexcel.Cells(1, 5).Value = Date()
objexcel.Visible = True
Wscript.Sleep 300
r=2
ShowFolderDetails oFolder, r
objexcel.DisplayAlerts = False
objexcel.ActiveWorkbook.SaveAs("C:\Documents and Settings\Frank\Documents\backup_report.xls")
objexcel.Quit
Function ShowFolderDetails(oF,r)
Dim F
objexcel.Cells(r, 1).Value = oF.Name
objexcel.Cells(r, 2).Value = oF.Size /1024\1024
objexcel.Cells(r, 3).Value = oF.Files.Count
objexcel.Cells(r, 4).Value = oF.Subfolders.count
r = r+1
for each F in oF.Subfolders
ShowFolderDetails F, r
next
End Function