:: ****************************************************************************
:: sql_backup.cmd
:: Cкрипт для резервного копирования папок на диске и баз данных MS SQL Server
:: 
:: Формат вызова: sql_backup.cmd profile [count]
::
:: Параметры:
::   profile - имя профиля резервного копирования (см. ниже)
::   count   - количество хранимых резервных копий, по-умолчанию равно 99. Если 
::             значение этого параметра равно 0, то архивы удаляться не будут.
::
:: Каждому профилю должен соответствовать файл ^<profile^>.lst, со списком баз
:: данных для архивирования.
::
:: ****************************************************************************

@echo off
chcp 1251 > nul
set version=0.2
set dcode=%date:~6%%date:~3,2%%date:~0,2%

:: ----- НАЧАЛО БЛОКА НАСТРОЕК СКРИПТА -----
::  Пробелы перед и после '=' недопустимы!

:: Расположение утилит 7z.exe и blat.exe
set tools=C:\Script\Tools
:: Путь к утилитам SQL сервера
set sqlbin=D:\Microsoft SQL Server\110\Tools\Binn

:: Почтовый адрес для отправки отчетов об ошибках
set mailto=admin@server.com
:: От чьего имени отправляются письма
set mailfrom=%COMPUTERNAME%@domain
:: Тема писем с отчетами об ошибках
set subject=%COMPUTERNAME% SQL Backup Report - %prefix%
:: Адрес почтового сервера для отправки сообщений об ошибках (без авторизации)
set smtpsrvr=smtp.server.com

:: Временная папка для создания резервных копий и выгрузки баз данных
set backtmp=D:\Backup\MSSQL%dcode%
:: Полный путь к папке с резервными копиями 
set backups=\\server\backup\%COMPUTERNAME%
:: Имя пользователя для доступа к сетевой папке с резервными копиями 
set login=net_login
:: Пароль для доступа к сетевой папке с резервными копиями 
set passwd=net_password

:: ----- КОНЕЦ БЛОКА НАСТРОЕК СКРИПТА -----

title Создание резервной копии данных...

echo Инициализация...
set errorcode=0
if not exist %~dp0logs mkdir %~dp0logs
set logfile=%~dp0logs\%~n0_%prefix%.log
set templog=%~dp0logs\%~n0_%prefix%.tmp
if "%1" equ "" (goto help) else set prefix=%1
set /a cnt=%2+0 > nul 2>&1
if "%cnt%" neq "%2" (set count=99) else set count=%2

echo Профиль резервного копирования: %prefix%, хранимых копий: %count%
echo Скрипт %~nx0, версия %version%, начало работы: %date% в %time:~0,8%. >> %logfile% 
echo Параметры вызова: %~nx0 %1 %2  >> %logfile% 
echo Префикс [%prefix%], хранить [%count%] резервных копий >> %logfile% 
echo. >> %logfile% 

echo Расположение утилит:        %tools%  >> %logfile% 
echo Путь к SQL серверу:         %sqlbin%  >> %logfile% 
echo Папка для временных файлов: %backtmp%  >> %logfile% 
echo Путь для хранения копий:    %backups%  >> %logfile% 
if "%backups:~0,2%" equ "\\" echo Имя сетевого пользователя:  %login% >> %logfile% 
echo. >> %logfile% 

echo Создаём временные каталоги для резервных копий >> %logfile% 
if not exist %backtmp% mkdir %backtmp% >> %logfile% 2>&1
if "%backups:~0,2%" equ "\\" (
  net use %backups% /USER:%login% %passwd% >> %logfile% 2>&1
  if %errorlevel% neq 0 goto error
)
if not exist %backups% (
  mkdir %backups% >> %logfile% 2>&1
  if %errorlevel% neq 0 goto error
)

if not exist %prefix%.lst (
  echo Файл со списком баз данных не найден. >> %logfile% 
  goto nolist
)

echo Резервное копирование баз данных...
echo. > %templog% 
echo Начинаем резервное копирование баз данных. >> %logfile%  
for /f "eol=;" %%a in (%prefix%.lst) do (
  echo   Экспорт БД "%%a"
  echo PROCESSING "%%a"... >> %templog%
  "%sqlbin%\sqlcmd.exe" -E -S "localhost" -w160 -Q"Backup Database %%a To Disk = '%backtmp%\%%a.bak' With NoFormat,NoInit" >> %templog% 2>&1
  if "%errorlevel%" neq "0" set errorcode=%errorlevel%
  echo. >> %templog%
)
findstr /I /C:"BACKUP DATABASE" /C:"PROCESSING" %templog% >> %logfile% 2>&1
if "%errorcode%" neq "0" goto sendmail

echo Архивация резервных копий баз данных...
pushd "%backtmp%"
echo Архивация резервных копий баз данных. >> %templog%
%tools%\7z.exe a "%backups%\%prefix%_%dcode%.7z" "*.bak" -mx5 -mmt12  >> %templog% 2>&1
set errorcode=%errorlevel%
popd
findstr /I /C:"Creating archive" /C:"Everything is Ok" %templog% >> %logfile% 2>&1

if "%errorcode%" neq "0" goto sendmail
rd /q /s %backtmp% >> %logfile% 2>&1 
echo. >> %logfile%

if "%count%" equ "0" goto sendmail
echo Удаление устаревших архивов...
echo Удаляем устаревшие архивы резервных копий. >> %logfile%
for /F "usebackq delims== skip=%count%" %%i in (`dir "%backups%\%prefix%_*.7z" /A-R /B /O:-N`) do del /Q %backups%\%%i >> %logfile% 2>&1

:sendmail
if "%errorcode%" neq "0" (
  echo При выполнении сценария обнаружены ошибка, отправляем журнал администратору...
  echo Отправляем администратору сообщение о произошедшей ошибке. >> %logfile%
  %tools%\blat.exe %templog% -charset Windows-1251 -to %mailto% -i %mailfrom% -s "%subject%" -server %smtpsrvr% 
)
del /q %templog% >> %logfile% 2>&1
if "%backups:~0,2%" equ "\\" net use %backups% /d >> %logfile% 2>&1

echo. >> %logfile% 
echo Скрипт завершил свою работу %date% в %time:~0,8%. >> %logfile%
echo -------------------------------------------------------------------------------- >> %logfile% 
echo. >> %logfile% 

goto :eof

:error
set errorcode=NO_PATH
echo Ошибка: не найден путь для архивации (%backups%). > %templog%
type %templog% >> %logfile%  
goto sendmail

:nolist
set errorcode=NO_LIST
echo Ошибка: не найден файл со списком баз данных для архивации (%prefix%.lst). > %templog%
type %templog% >> %logfile%  
goto sendmail

:help
cls
echo Сценарий для резервного копирования MS-SQL баз данных и файлов.
echo Использование: %~nx0 profile [count]
echo.
echo Параметры:
echo   profile - имя профиля резервного копирования (см. ниже)
echo   count   - количество хранимых резервных копий, по-умолчанию равно 99. Если 
echo             значение этого параметра равно 0, то архивы удаляться не будут.
echo.
echo Каждому профилю должен соответствовать файл ^<profile^>.lst, содержащий список 
echo баз данных для архивирования.
echo.
echo Формат файла-списка баз данных:
echo.
echo название_базы1
echo название_базы2
echo название_базы3
echo ...
echo.
echo Строки, начинающиеся с символа ";", считаются комментариями.
echo.
echo Текущие параметры сценария:
echo.
echo   Расположение утилит:        %tools%  
echo   Путь к SQL серверу:         %sqlbin%
echo   Папка для временных файлов: %backtmp%
echo   Путь для хранения копий:    %backups%
if "%backups:~0,2%" equ "\\" echo   Имя сетевого пользователя:  %login%
echo.
echo Нажмите любую клавишу для выхода.
pause > nul
goto :eof