В данной статье показан простой пример автоматизации процесса избавления от старых резервных копий. Для примера используется стандартный менеджер архивов Windows (до 2003 версии) ntbackup, который не умеет работать с масками имён, т.е. не понимает переменные среды окружения (проверено лично).
Для понимания скрипта, немного изменил статью, дабы дополнить важной информацией.
Например есть некий файловый сервак (File-SRV). С него сливаются бэкапы на сервер бэкапов (BackUP-SRV). В виду своей простоты, утилита ntbackup не может сразу создавать имена файлов по шаблону (и это её не единственный недостаток!), поэтому для примера мы бэкапим некую инфу в архив BackUp.bkf, поэтому нам сначала необходимо переименовать предыдущий бэкап, чтобы новый не перетёр собой предыдущий. Ну и заодно, дабы сделать полный автомат, мы подчистим устаревшие бэкапы (не можем же мы их хранить вечно!).
В итоге, у нас должно получиться что-то типа этого - скрипт RenameAndDeleteOldBakups.vbs:
' Переименовываем файлы архивов по шаблону - добавляем в конце файла дату
' Включаем обработчик ошибок
on error resume next
' Объявляем переменные
Dim Current_Date, New_Name_File, Old_Name_File, Fso, f, f1, fc
' Задаём имя файла бэкапа
Old_Name_File = "\\BackUP-SRV\BackUp.bkf"
' Определяем текущую дату
Current_Date = Date()
' Создаём новое имя для файла бэкапа
New_Name_File = "BackUp_" & Current_Date & ".bkf"
' Переименовываем файл бэкапа
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.GetFile(Old_Name_File)
f.Name = New_Name_File
' Проверяем папку архивов на наличие старых
Set f = fso.GetFolder("\\BackUP-SRV\")
Set fc = f.Files
For Each f1 in fc
' Если возраст файла бэкапа > 30 дней, то удаляем его
If DateDiff("d", f1.DateLastModified, Now) > 30 Then f1.Delete
Next
Set Fso = Nothing
' Ну вот и всё! Получился полный автомат!
Данный скрипт можно запускать по расписанию.
Хитрости, блохи и грабли: лучше всего данный скрипт запускать перед запуском системы резервного копирования, чтобы сначало освобождалось место для новых бэкапов!
Жизнь админа должна быть проще! | 
