Нужен Скрипт для резервного копирования файлов в Windows

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1 2 След.
Ответить
Нужен Скрипт для резервного копирования файлов в Windows
У меня по какой то причины, Не хочет работать ни acronis ни paragon.
Необходим скрипт при помощи которого на Windows Server 2008 можно наладить систему юэкапов
Начну с самых простых скриптов cmd bat:
утилиты для копирования:
copy /?
xcopy /?
robocopy /? (это если Resourse Kit есть Актуально для серверов.)
---

Простенький скрипт:
Код
@ECHO off
SET FILE1="z:\server\db\file1.doc"
SET FILE2="z:\server\db\file2.doc"
SET TEMP="c:\TEMP\"
SET RAR="c:\Program Files\WinRAR\WinRAR.exe"
SET NAME=%DATE%
SET FLASHDRIVE="m:\"

if exist %TEMP% rmdir /s /q %TEMP%
mkdir %TEMP%

if exist %FILE1% copy %FILE1% %TEMP%
if exist %FILE2% copy %FILE2% %TEMP%

%RAR% a -ep1 %FLASHDRIVE%\%NAME%.rar %TEMP%

rmdir /s /q %TEMP%

if exist %FLASHDRIVE%\%NAME%.rar @ECHO Succesful!!!
if not exist %FLASHDRIVE%\%NAME%.rar @ECHO ERROR
pause


Тут собственно все просто, единственно можно модернизировать: robocopy


Вариант скрипт на WBS:


' description: Скрипт перемещает файлы, папки и подпапки с одного источника в другой, в сети или локально.
' При этом происходит проверка на наличие и доступность файлов. При отсутствии, либо совпадении файлов
' происходит его перемещение и замена на новый.

'***********************************************
' Создание объектов оболочки и файловой системы
Set oShell = CreateObject("wscript.shell")
Set oFSO = CreateObject("Scripting.Filesystemobject")
Set WSNetwork = CreateObject("WScript.Network")
LogFolder = "c:\" ' место расположения лог-файла
StartFolder = "c:\1" ' откуда перемещаем
EndFolder = "c:\2\" ' куда перемещаем

'***********************************************
' обнуление и описание счетчиков, используемых в скрипте
num_files = 0 '- общее число обработанных файлов
num_SubFolder = 0 '- обработано папок и подпапок

'***********************************************
' Создание лог-файла
' Задаем имя лога
sLogName = "LogTemp_" & Date & "_" & Time
' Заменяем в имени все знаки на подчеркивания
sLogName = Replace(sLogName, ".", "_")
sLogName = Replace(sLogName, ":", "_")
sLogName = LogFolder & sLogName
' Создаем файл
Set oLogFile = oFSO.CreateTextFile(sLogName & ".log",true)
oLogFile.WriteLine "========== Script Information ==========" & vbCrLf
oLogFile.WriteLine "script name: Fail_Copying_Paste"
oLogFile.WriteLine "version: 1.0"
oLogFile.WriteLine "date: 21.02.13"
oLogFile.WriteLine "autor: MasterLin" & vbCrLf

'***********************************************

Set oEndFolder = CreateObject("Scripting.FileSystemObject")
' Проверяем доступность папки, в которую хотим произвести копирование
If oEndFolder.FolderExists (EndFolder) Then
' Записываем результат в лог
oLogFile.Writeline "Папка " & "'" & EndFolder & "'" & " доступна для работы" & vbCrLf
CopyFolder StartFolder,EndFolder
else
' Записываем результат в лог
oLogFile.Writeline
oLogFile.Writeline "Папка " & "'" & EndFolder & "'" & " в настоящий момент не доступна, либо не существует. Работа с ней прекращена." & vbCrLf
' Дублируем сообщение, выводом предупреждения на экран
WScript.Echo "Папка " & "'" & EndFolder & "'" & " в настоящий момент не доступна, либо не существует. Работа с ней прекращена."
End if
oLogFile.WriteLine "========== Отчет о копировании ==========" & vbCrLf
oLogFile.WriteLine "Скриптом было обработано - " & num_files & " файлов."
oLogFile.WriteLine "Скриптом было обработано - " & num_SubFolder & " подпапок."
oLogFile.WriteLine
oLogFile.WriteLine "========== Выполнение скрипта завершено ==========" & vbCrLf
WScript.Echo "Выполнение скрипта завершено."

Sub CopyFolder(sCopyFolder,sEndCopyFolder)
' Создание объекта Folder
Set oFolder = oFSO.GetFolder(sCopyFolder)
Set oEndCopyFolder = oFSO.GetFolder(sEndCopyFolder)
' Получение коллекции файлов
Set colFiles = oFolder.Files
' Обработка каждого файла из коллекции
For each oFile in colFiles
' Счетчик числа проверяемых файлов
num_files=num_files+1
' Проверяем существует уже такой файл в папке
If oFSO.FileExists(oFSO.BuildPath(oEndCopyFolder, oFile.Name)) Then
' Записываем результат в лог
oLogFile.Writeline "Такой файл " & oFile & "уже существует в папке " & oEndCopyFolder
' Проверяем насколько это свежая копия файла, для этого сравниваем даты создания двух файлов
oLogFile.Writeline "Переписываем его на новый."
oFSO.DeleteFile (oFSO.BuildPath(oEndCopyFolder, oFile.Name)), True
oFSO.MoveFile oFile, sEndCopyFolder
' Проверка на наличие ошибок
if err.Number <> 0 then
' Запись сообщения об ошибке в лог
oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
' Очистка ошибки
Err.Clear
End if
else
' Если файла нет, то просто перемещаем его без всяких записей в лог
oFSO.MoveFile oFile, sEndCopyFolder
' Проверка на наличие ошибок
if err.Number <> 0 then
' Запись сообщения об ошибке в лог
oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
' Очистка ошибки
Err.Clear
End if
End if
Next
' Проверяем все папки и подпапки
oLogFile.Writeline "Обрабатываем и перемещаем все подпапки из папки " & oEndCopyFolder & vbCrLf
' Получение коллекции подпапок
Set colSubFolders = oFolder.SubFolders
' Обработка каждой подпапки
For Each oSubFolder In colSubFolders
oLogFile.Writeline "Проверяем подпапку " & oSubFolder
' Счетчик обработанных папок и подпапок
num_SubFolder=num_SubFolder+1
' Проверяем существует уже такая подпапка в папке, если ее нет, то сразу перемещаем
' Если есть, то сообщаем об этом и перемещаем с заменой.
If oFSO.FolderExists(oFSO.BuildPath(oEndCopyFolder, oFSO.GetBaseName(oSubFolder.Path))) Then
' Записываем результат в лог
oLogFile.Writeline "Такая подпапка " & oSubFolder & " уже существует в папке " & oEndCopyFolder
oLogFile.Writeline "Перезаписываем ее на новую."
oFSO.DeleteFolder (oFSO.BuildPath(oEndCopyFolder, oFSO.GetBaseName(oSubFolder.Path)))
oFSO.MoveFolder oSubFolder, sEndCopyFolder
' Проверка на наличие ошибок
if err.Number <> 0 then
' Запись сообщения об ошибке в лог
oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
' Очистка ошибки
Err.Clear
End if
else
' Перемещаем папку
oFSO.MoveFolder oSubFolder, sEndCopyFolder
' Проверка на наличие ошибок
if err.Number <> 0 then
' Запись сообщения об ошибке в лог
oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
' Очистка ошибки
Err.Clear
End if
End if
Next
End Sub
И еще мысль если не запускается ни акронис ни парагон то рекомендую использовать: Cobian Backup образы снимать не умеет, но функции скриптов сможет делать.
delgra
buy cialis generic
cialis generic online
viagraon.com
cialis without prescription
online viagra
where to buy levitra
Позавчера наблюдал материалы интернет, неожиданно к своему удивлению открыл хороший сайт. А вот и он: бюро переводов . Для меня этот вебсайт оказал радостное впечатление. Хорошего дня!
comprare viagra 100mg
levitra costo
dapoxetine compresse
www.viagra-on.com
jelly kamagra
comprare kamagra oral jelly
Минут пять познавал контент инета, неожиданно к своему восторгу заметил отличный сайт. Вот посмотрите: создание веб сайтов . Для нас этот сайт оказался очень привлекательным. Удачи!
Минуту назад просматривал данные интернет, случайно к своему удивлению заметил хороший вебсайт. Гляньте: купити взуття . Для моих близких этот вебсайт явился очень оригинальным. Всего наилучшего!
Afhdjhfdifj jfbdjw efwjjfwefkwenwj gbfhewifw
gbuewhifjw weifhwef jvsnkqwkf jqwokd n jwegjwfoewjih
fnejnfbvuef fijiwrotpojegi owkemwnjrj rowjrokwk nirjwok wn wjrkwkr
bvncmcieughfijdf hiwjeow jw riwjoe wkkfn iw jrwjfeigeiwkjfehbks
srhreiutregreshv hur erh weiiewhbahewvhjvetjhwahj vahwtvhwebrbw hbewhr
rwhetiuawhhewahtbehtbwehjbfsdhlfuh hfwebfa
Hi bro!
Good verified cc shop paycash.cc!
Требования:
- Возраст от 21 года
- Опыт вождения от 3-х лет
- Автомобиль иномарка не старше 2001 года Chevrolet Aveo, Chevrolet Lacetty, Skoda Rapid, VW Polo, Hyundai Accent, Opel Astra – или аналогичные марки. Daewoo Lanos, Nexia от 2010 года, Chery Elara; Geely MK, CK от 2008 года в хорошем техническом состоянии.
- Наличие смартфона на IOS или Android 4.0 + с интернетом.

Условия работы:
Возможность работы по свободному графику
Низкая Партнёрская комиссия
Заключаем договор
Стабильные выплаты с понедельника по пятницу (ежедневные выплаты) или выплата по средам (еженедельная выплата)
Зарплата от 45 до 110 тыс. руб. в месяц (20 до 50 тыс. грн. в месяц)

Обязанности:
перевозка пользователей системы Uber
в черте города + трансферы

Ваш доход:
от 25 000 рублей (10.000 грн) в месяц при работе 18-20 часов в неделю
от 60 000 рублей (25.000 грн) в месяц при работе 33-35 часов в неделю
от 110 000 рублей (45.000 грн в месяц) при работе 50-60 часов в неделю

Для Вас:
Прозрачные условия (без скрытых комиссий)
Персональный менеджер
Самая низкая комиссия, ЕЖЕДНЕВНЫЕ выплаты (низкая партнёрская комиссия )
Скидки на топливо

Подробные условия >>> Работа в Uber свободный график
Пол дня наблюдал контент инет, и вдруг к своему восторгу увидел полезный ресурс. Ссылка на него: трикотаж оптом украина . Для нас вышеуказанный сайт показался весьма неплохим. Всего доброго!
Имеется такая услуга - добровольное медицинское обслуживание (или ДМО).
Она предполагает, что пациент вносит небольшую сумму за то, что посещает врачей весь год БЕСПЛАТНО.
Однако опросы показали, что лишь 4% жителей Питера знают о ее существовании.
Почему?
Да потому что клиникам намного выгодней брать плату за каждое посещение.
А если какой-нибудь сотрудник клиники попытается посоветовать добровольное медицинское обслуживание клиенту - это сулит ему увольнением.
Информация о ДМО уже спровоцировала много возмущений, сразу после того как информацию об этом распространил один возмущенный врач.
Его уволили , после того, как он предложил ДМО постоянному клиенту.
Самое страшное, что информация по ДМО присутствуют в открытом доступе, просто находили на эту информацию только случайные люди.
Как отстоять свои права?
О правилах оказания такой услуги и обязанностях частных клиник можно узнать, просто вбив в Яндекс фразу: "добровольное медицинское обслуживание".
Именно обслуживание, а не страхование.

34j5c6h86
Минут десять осматривал содержимое инет, вдруг к своему удивлению заметил прелестный сайт. Вот посмотрите: складська логістика . Для моих близких данный ресурс показался очень полезным. Пока!
Пару минут назад мониторил данные интернет, при этом к своему удивлению обнаружил замечательный сайт. Смотрите: минимальный депозит . Для меня вышеуказанный ресурс произвел яркое впечатление. Всех благ!
Zhheherhrh eg egemtr hrggwe wes egemtrghdfbsgd rwtwrqw
Полчаса исследовал материалы интернет, и неожиданно к своему удивлению обнаружил актуальный сайт. Вот смотрите: институтский маяк . Для меня данный сайт оказался очень важным. Хорошего дня!
trade binary options for a living
best online stock trading brokers
binaryoption.com
how to binary option trading
how to binary option trading
top brokerage accounts
Приветствую дорогие форумчане.

Наша компания возводит все виды фундаментов под ваш дом.
Наша Сайт

сваи винтовые для фундамента цены
Hi! My name is Alice, to me 18 and I very love hot dirty sex!

Go to my site: vip-file-xxx.org
Страницы: 1 2 След.
Ответить
Форма ответов
Текст сообщения*
:) ;) :D 8) :( :| :cry: :evil: :o :oops: :{} :?: :!: :idea:
Защита от автоматических сообщений. Введите символы, изображенные на этой картинке в поле ввода &quote;Код подтверждения&quote;.