How to schedule delete W3SVC log files

• Create Task
• Name: Delete W3SVC log Files
• New Trigger: On a schedule
• New Action:
  • Action: Start a program
  • Program/Script: cscript
  • Add argument (optional): C:\Scripts\DeleteOldW3SVCLogs.vbs

DeleteOldW3SVCLogs.vbs

sLogFolder = "c:\inetpub\logs\LogFiles"
iMaxAge = 15   'in days
Set objFSO = CreateObject("Scripting.FileSystemObject")
set colFolder = objFSO.GetFolder(sLogFolder)
For Each colSubfolder in colFolder.SubFolders
        Set objFolder = objFSO.GetFolder(colSubfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
                iFileAge = now-objFile.DateCreated
                if iFileAge > (iMaxAge+1)  then
                        objFSO.deletefile objFile, True
                end if
        Next
Next