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
' -----------------------------------------------------------------------------

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 = oFC.Path

'sfullfilename = oFS.BuildPath(sAbsFolder, sFileName)
dbackupdate = oFC.DateLastModified
If DateDiff("m", dbackupdate, Now) > 6 And sFilePrefix = "Backup_M_PlaTON" Then
b = oFS.DeleteFile(sfullfilename, True)
Else
End If
If DateDiff("m", dbackupdate, Now) > 2 And sFilePrefix = "Backup_F_PlaTON" Then
b = oFS.DeleteFile(sfullfilename, True)
Else
End If
If DateDiff("m", dbackupdate, Now) > 1 And sFilePrefix = "Backup_I_PlaTON" Then
' If (dBackupDate - dCurrentDate) > 30 Then
b = oFS.DeleteFile(sfullfilename, True)
Else
End If
Next
ApplyPolicy = bRetVal
Set oFS = Nothing
Set oFP = Nothing
Set oFiles = Nothing
End Function
__________________________________________________ _______________Esta es la mejor manera de ejecutar el Script sin errores y sin utilizar los recursos de Windows de esta manera todo funcionara gracias WestConn1 por toda tu ayuda.