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

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
Ответить
Нужен Скрипт для резервного копирования файлов в 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 образы снимать не умеет, но функции скриптов сможет делать.
Добрый день, не принимайте это за спам и извините за беспокойство.
я предлагаю Вам возможность начать получать 121% прибыли каждый день
Для получения более подробной информации, перейдите сюда https://goo.gl/nSzmyJ
Белухин Д.Н приговор разговор - астрологический прогноз на 2017 год .Кого ждет удача и финасовое благополучие в 2017 году как приговор Белухин Д.Н
Накануне изучал содержание интернет, случайно к своему удивлению обнаружил поучительный сайт. Гляньте: minotavr . Для моих близких данный сайт оказал радостное впечатление. Всего хорошего!
На днях наблюдал материалы сети, при этом к своему восторгу обнаружил красивый веб-сайт. Гляньте: chaplin24 обход запрета . Для меня вышеуказанный веб-сайт оказал незабываемое впечатление. До свидания!
Натуральные природные продукты из растений сибирского региона.
Основу препаратов составляют лечебные экстракты растений.
* Имеется широкий выбор средств по уходу
за телом и лицом на основе трав
из серии «Сибирская коллекция бальзамов»;
* Линия возрастной косметики;
* Серия детской косметики (без консервантов);
* Продукты для укрепления и оздоровления
всего организма.
https://vk.com/sibir_zdorove
Белухин П р и г о в о р

П р и г о в о р фильм пассажиры 2016 скачать торрент в качестве HD -белухин Д.Н не П р и г о в о р , а фильм ёлки классный если скачать в качстве HD
Hello. My name is Isabella. I am 19 years old. I am virgin. A little about me Link to blog
https://hubnude.wordpress.com/2017/01/11/my-friend-my-boyfriend-and-the-first-man/
Get an expert academic writing assistance!
We can write any paper on any subject within the tightest deadline.
https://rossetioficialnyjsajtrukovodstvo.wordpress.com/2016/09/22/asus-xonar-u7-echelon-edition-драйвера/
Скачать драйвер mt65xx preloader
https://rukovodstvomchsrossiioficialnyjsajt.wordpress.com/2016/09/23/razer-blackwidow-драйвер/
https://metran150rukovodstvopoekspluatacii.wordpress.com
Драйвер для модема связной

А теперь давай разберёмся, что надо сделать и как начать обучение: Для начала надо ознакомиться с требуемыми программами, достаточно их просто установить и всё.Учимся извлекать данные для отчётовV.Кроме того компьютеры можно использовать в развлекательных целях: фильмы, игры, общение с друзьями, интернет и т.Если же вы являетесь представителем компании, которая занимается предоставлением данных услуг или вы мастер, который ищет новых клиентов, размещение объявления на нашем сайте будет очень для вас выгодным, так как сайт ежедневно посещают тысячи украинцев.С какими знаниями легче всего пробиться по карьерной лестнице?
https://rukovodstvopolzovatelyasamsunggalaxys5.wordpress.com/2016/09/23/драйвера-для-acer-aspire-3683-wxmi/
Rukovodstvo Po Ustanovke Po
Tl mr3220 скачать драйвер
https://rukovodstvopoekspluataciivkt7.wordpress.com/
Драйвера для лджи п 500

Я не думаю что инструмент это проблема.В данный момент я зарабатываю не так мало энтерпрайзным программированием и моё обучение продолжается.Кстати, уже видно отличные результаты по росту позиций!Да супер, что уж там.Системы охлаждения (121) Цены от 8,00 р.
https://rukovodstvopo.wordpress.com/2016/09/22/драйвера-для-iru-intro-4015/
https://rukovodstvopokachestvuispytatelnojlaboratorii2015obraz.wordpress.com/2016/09/22/драйвер-на-оперативную-память-kingston/
https://mosinzhproektrukovodstvooficialnyjsajt.wordpress.com/2016/09/22/lumia-920-драйвер-для-xp/
Драйвера generic usb hub
Скачать драйвер epson photo r270

Для чего они нужны?Проверено 3 сентября 2013.Сегодня хороший компьютер недорого - это реальность.Конечно, любой программист, использующий языки программирования высокого уровня Pascal, BASIC, FORTRAN, Ada и COBOL, приведет кучу преимуществ данных языков над языком программирования С, языком ассемблера или машинным языком.Я переехал в другой район, женился, скоро будет ребенок, но контакты с близкими друзьями не обрываю.
Skachat Rukovodstvo Po Remontu I Po Ekspluatacii
Скачать драйвер lexmark x3330
https://rukovodstvopoekspluataciitexnicheskomuobsluzhivaniyuir.wordpress.com/2016/09/22/драйверы-для-принтера-samsung-ml-1665/
Samsung ml 2160 драйвер windows 7 скачать
Canon lbp 2900 драйвер win xp скачать

В веб-программировании все обстоит по-другому.Купить 256 MB SDRAM SODIMM 133MHZ 256 MB SDRAM SODIMM 133MHZ В случае несовместимости возможен возврат.Не волнуйтесь: специалисты нашей компании оперативно отреагируют на ваш запрос и спасут ваш компьютер!Некоторые инструменты автоматизации используют специфические языки.Бесплатные Программы Ру - Не плати, а благодари.
Пол дня познавал содержимое инет, и к своему удивлению заметил интересный вебсайт. Вот посмотрите: проектор InFocus . Для меня этот сайт оказал яркое впечатление. До свидания!
Hi
I didnt find any related topic, so i will start here ..
As i see your site linuxshop.ru have big amount of active users, have you some kind of advertising at this point? Free or Paid
I want to buy some banners, how can i do it? could look at my site (https://moviesh.xyz) and answer me by mail with your best price?

My contacts: movie4allfree@gmail.com
Some pages at my movie site:
https://moviesh.xyz
https://moviesh.xyz/tvshows/20215155-watch-huff-online-in-hindi
https://moviesh.xyz/tvshows/20210987-entourage/seasons/3/episodes/19


Thanks in advance!!
origami crane girl twitter.com/origamilesson origami 3d shapes
I will agree.
It was specially registered at a forum to tell to you thanks for support.

The modern application “Dream board 2” (VisuaLife) is a tool you’ve never seen before!
This is new visual editor of your wishes!
And this is FREE.
With help this app "Dream board 2" you can create your own vision boards for attract money or have more money.
Get this in apple Store https://itunes.apple.com/us/app/vision-board-2-visualife/id733788428
Get this on GooglePlay Play Store https://play.google.com/store/apps/details?id=air.com.astraport.visualife.en
Our commitment cannot be disputed at all.Just wanted to thank you guys for your services.You probably get very nervous and concerned when you are assigned a college essay paper.In addition to, the bureau advises the top-author feature, which unfortunately beyond control boosts the complete rate.With summer upon us, our kids will (hopefully) be heading outdoors.
https://essayforcollegeadmission.wordpress.com/2016/10/02/essay-driving-drinking-titles-and/
https://collegeessayrequirements.wordpress.com/2016/09/30/destiny-manifest-essay-free-on/
https://topcollegeessays.wordpress.com/2016/10/04/oedipus-topic-rex-essay/
Papers research parenting homosexual
https://writeanessayaboutyourlifeexperience.wordpress.com/2016/10/03/essay-ethics-introduction/

The answer is simple: use your own name or your chosen pen name as your domain name.Previous editor: Judy Brewer.Don't know where to find an essay writing service with of the best quality?In real life, consumers naturally look for their best custom essay writing services, and unfortunately, many consumers strongly believe that only those popular companies which try to invest their substantial funds into the advertisement and promotion of their writing services are good enough.Then, read your persuasive essay with fresh eyes.
https://customdissertationwritings.wordpress.com/2016/10/04/statement-thesis-against-censorship/
A write how research to paper
Dissertation rania khalaf
And act essays indian removal the jackson andrew
Academic topics papers researc

Essays are due and there are exams to study for.Grammar and spelling errors are a thing of the past.You should use this.You will need a strong character.Sure there will be primary schools near to your house, but are they the right ones for your child?
https://hughgallaghercollegeessay.wordpress.com/2016/10/05/download-free-research-papers-marketing/
https://digitaldissertations.wordpress.com/2016/09/29/what-introduction-research-of-an-in-paper-a-to-include/
Mla or research papers format
https://bestessaycollections.wordpress.com/2016/10/03/and-apple-and-contrast-essay-orange-compare/
Fashion research paper
Very interesting topic, thank you for putting up.

https://www.evernote.com/shard/s585/sh/d4e73d04-9a03-487e-a06a-aaf9c0dfe279/db4aba437547f976973815cdbaf043fd
I am glad to be a visitor of this gross blog, regards for this rare info!

https://www.evernote.com/shard/s680/sh/e572ef56-2b5f-4e44-ad8d-320f7a82966e/a37eee99da03e5eee9004fe4d46a7c02
You have mentioned very interesting points! ps nice web site.

snk.to/3rrYP
Страницы: 1
Ответить
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)
Форма ответов
Текст сообщения*
:) ;) :D 8) :( :| :cry: :evil: :o :oops: :{} :?: :!: :idea:
Защита от автоматических сообщений. Введите символы, изображенные на этой картинке в поле ввода &quote;Код подтверждения&quote;.