Mi Script no funciona que alguien me ayude Por favor.

[Gatsby1124]

' -----------------------------------------------------------------------------
' Aplica la politica de retencion de copias de backup en disco externo
' Menusal (M): Se guardan 6 meses
' Semanal o Full (F): Se guradan 2 meses
' Diario o Incremental (I): Se guardan 4 semanas
' -----------------------------------------------------------------------------

On Error Resume Next

dCurrentDate = Now

a = ApplyPolicy("F:\Backups")
a = ApplyPolicy("F:\Control")
a = ApplyPolicy("F:\Logs")

WScript.Quit 0

' -----------------------------------------------------------------------------
' Esta funcion aplica la politica de retencion de backup en disco externo
' -----------------------------------------------------------------------------
Function ApplyPolicy(sFolder)
Dim oFS, oFP, oFiles, oFC

Set oFS = CreateObject("Scripting.FileSystemObject")
sAbsFolder = oFS.GetAbsolutePathName(sFolder)
WScript.Echo "Processing " & sAbsFolder
bRetVal = oFS.FolderExists(sAbsFolder)
Set oFP = oFS.GetFolder(sAbsFolder)
Set oFiles = oFP.Files
For each oFC in oFiles
sFileName = oFC.Name
sFilePrefix = Left(sFileName, 15)
sFullFileName = oFS.BuildPath(sAbsFolder, sFileName)
dBackupDate = oFC.DateCreated
If sFilePrefix = "Backup_M_PlaTON" Then
If (Month(dBackupDate) - Month(dCurrentDate)) > 6 Then
WScript.Echo " DEL => " & sFileName & " (" & dBackupDate & ")"
b = oFS.DeleteFile(sFullFileName, true)
Else
WScript.Echo " Ok => " & sFileName & " (" & dBackupDate & ")"
End If
End If
If sFilePrefix = "Backup_F_PlaTON" Then
If (Month(dBackupDate) - Month(dCurrentDate)) > 2 Then
WScript.Echo " DEL => " & sFileName & " (" & dBackupDate & ")"
b = oFS.DeleteFile(sFullFileName, true)
Else
WScript.Echo " Ok => " & sFileName & " (" & dBackupDate & ")"
End If
End If
If sFilePrefix = "Backup_I_PlaTON" Then
If (dBackupDate - dCurrentDate) > 30 Then
WScript.Echo " DEL => " & sFileName & " (" & dBackupDate & ")"
b = oFS.DeleteFile(sFullFileName, true)
Else
WScript.Echo " Ok => " & sFileName & " (" & dBackupDate & ")"
End If
End If
Next

ApplyPolicy = bRetVal
End Function
__________________________________________________ ________________________________
Cuando le doy Start todo parece que va pero despues de decirle OK a todos los mensajes aun no trabaja Alguien sisplau ayuda.