Eliminar archive logs antiguos.

Para eliminar viejos archive logs de las BD de oracle en windows, que ya fueron enviados a cinta, podemos utilizar el siguiente script de VBS. Para generar el arhivo vbs simplemente pegar en un notepad el codigo, modificarlo de acuerdo a nuestros requerimientos y guardar con extension vbs.

El codigo es:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "[ruta a borrar]"
set objfolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
if objFile.DateCreated < (date - [dias que se desea conservar]) then
fullpath = objFile.Path
objFSO.DeleteFile(fullpath)
end if
Next

para ejecutarlo en la linea de comandos seria

cscript [nombre del script]

Saludos.