How do I make this script run silently?
Posted on 2011-03-18
My company uses a lot of automated faxing and our sent items folder on the server becomes very large rather quickly. I am currently using this script to clear out all items older than 30 days. The script works well. The only problem is that every time the script is run it requires my interaction. I would like to set this to run automatically as a scheduled task so that I do not have to manually run and click yes for every item being deleted. Or is there a better script to use for this?
Start of script
Const Active = True
Const sSource = "c:\fax\sent items"
Const MaxAge = 30 'days
Const Recursive = True
Checked = 0
Deleted = 0
Set oFSO = CreateObject("Scripting.FileSystemObject")
if active then verb = "Deleting """ Else verb = "Old file: """
if Active then verb = " file(s) deleted" Else verb = " file(s) would be deleted"
WScript.Echo Checked & " file(s) checked, " & Deleted & verb
Sub CheckFolder (oFldr)
For Each oFile In oFldr.Files
Checked = Checked + 1
If DateDiff("D", oFile.DateLastModified, Now()) > MaxAge Then Deleted = Deleted + 1
WScript.Echo verb & oFile.Path & """"
If Active Then oFile.Delete
if not Recursive then Exit Sub
For Each oSubfolder In oFldr.Subfolders
End of script
Thanks in advance!