Приветствую Вас ГостьСреда, 18.09.2019, 17:09

В помощь админу


Каталог статей

Главная » Статьи » Windows » Резервное копирование

Переименовывание файлов бэкапов по шаблону и удаление старых бэкапов

В данной статье показан простой пример автоматизации процесса избавления от старых резервных копий. Для примера используется стандартный менеджер архивов 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

' Ну вот и всё! Получился полный автомат!

Данный скрипт можно запускать по расписанию.

Хитрости, блохи и грабли: лучше всего данный скрипт запускать перед запуском системы резервного копирования, чтобы сначало освобождалось место для новых бэкапов!

Жизнь админа должна быть проще!

Категория: Резервное копирование | Добавил: isz (24.04.2014)
Просмотров: 1994 | Теги: backup, архив, бэкап, vbscript, файл, Скрипт, vbs, Шаблон | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Категории раздела
Active Directory [10]
DHCP [1]
Windows [12]
Wins [1]
Групповая политика [2]
Программы [2]
Резервное копирование [5]
Сеть [5]
Скрипты [25]
Терминальный сервер [6]
Почта [5]
Реестр [1]
Реестр Windows
Командная строка [6]
CMD: Командная строка Windows
Поиск
Форма входа
Наш опрос
Оцените мой сайт
Всего ответов: 108
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика