Нужен Скрипт для резервного копирования файлов в 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 образы снимать не умеет, но функции скриптов сможет делать.
Picking The Most qualified Net Hosting Appointment Provider instead of 2017

To pull down first-rate help you need to pick the most qualified snare hosting provider benefit of 2017. Entanglement hosting is simply described as a rank that manages the websites of individuals and organizations.

So what certainly is entanglement hosting checking, spurt, it is a band that offers a measure out on a server (computer) where they can landlord your website files and produce Internet connectivity to suffer other computers to get further access to the files on your site.

On a routine basis, thousands of people are registering field names and hosting their websites after their personal eat or their modish business. At any rate, how do you actually be sure where to cash-box your province monicker and what service provider to beckon up with after your web hosting services.


Is that starkly understandable?

Conceivably not everything is unblemished, except if you distinguish that your website consists of a medley of computer files like images, videos and HTML files, quantity others, that are incorporated in it. To be talented to set up your website and appropriation your files on the Internet, you require a super computer or server that has a high-speed Internet connection.

The Difference between Web Hosting and Statistics Center

When we hear the time "cobweb hosting" this is again referred to the server hosting your website. This can also mode the hosting train, which rents the server space. On the other worker, data center is the equipment that houses the servers. This could be as cheap as a stay or as humongous as a sporting house or a huge structure that has respective power supplies, data communication connections, certainty devices or environmental controls like puff educate and inspired suppression.

In widespread, there are 4 types of spider's web hosting, namely: Shared, Dedicated, Virtual Private Server (or VPS) and the most outstanding Cloud entanglement Hosting 2017. All of these hosting servers work as a center to count on your website. They be contradictory in the storage intelligence, technological acquaintance requirements, server further, steer and reliability. Let's withdraw a deeper look into the differences among these different types of net hosting:

Shared Hosting

It is called shared hosting since a website shares the same server with numerous other sites, which usually roam fr om a two to thousands. All domains may appropriate the in any case pot of server resources like the CPU and RAM. Since this comes at a very stubby price, the womanhood of websites that have homely conveyance levels using client software judge to be hosted on this group of server. This is also an entry-level variant, since it lone requires minimum complex knowledge.

Dedicated

This genus of server provides greatest hold sway over on the web server where the website is stored. So, you obtain the server all to yourself since your website is the on the other hand individual hosted there.

VPS

VPS hosting splits a server into particular understood servers, wh ere every website is hosted on its own server but in aristotelianism entelechy, it is sharing the same server with a two users. With this hosting, users have their completely own practical accommodation as luxuriously as a safer hosting environment. This is best for websites that demand more supervise at the server up, but do not like to waste more on a dedicated server.

Cloud hosting

This type of hosting provides eternal skill to dispense with great traffic. In cloud hosting, a group of servers (cloud) conspire to host several websites. It lets numerous computers free simultaneously to deal with exalted traffic spikes payment any unambiguous website.
Manifold types of Shared hosting services

Nowadays, there are various types of wealthiest web hosting to hand on the point of departure of features and services provided close to hosting companies, for the treatment of precedent, programming languages and database access. The two biggest kinds of shared hosting are;

" Linux-based network hosting

" Pre-eminent windows-based web hosting 2017

best web hosting
There are a few hosting accommodation providers present Windows-based shared hosting in the UK because its appearance is much lower than Linux-based hosting servers. On the other helping hand, Linux hosting is at times considered the most acclaimed and cheapest web hosting solution across the country. In Linux hosting, the server runs on cPanel that one runs inferior to Linux operating system. High-performance, adaptability, compatibility, reliability, and affordability are some of the key features of Linux-based hosting services. On average, a noble repair package offers slightest 150 GB of disk set out and at least 2 GB of bandwidth with an uptime swear to of 99.95%.


Best Web Hosting 2017

Things to be wary of when looking for a hosting associates

Visit Now
Free domain: In your search after a web hosting suite you purposefulness turn out across a comrades contribution a free of charge domain. While the stock puissance reasonable too kind, you should note that the kingdom belongs to the company. When you establish your spot using the territory you may be forced to stick with the companions or buy it at an bloody high-priced price.

Unrestrained storage: While most companies will advertise that they are providing emancipated hosting, this isn't always the case. In the forefront you commit to a hosting party, earliest make off from top to bottom its terms of service.
After reading the article, you would now be in a emplacement to earn a best by reason of the first-rate Net Hosting providers that are apt for your needs. As per the statistics, a good hosting company grows at fanciful rate. It has great reviews In most cases . Also, the functionalities are at substandard with any other hosting provider at a much affordable price. The other hosting providers are also good in their own way, but you would for to study more in minutiae in re them but one thing is steadfast that you should capture the worst cobweb hosting for your charge as a replacement for 2017 so that you advance excellent undergo and serving to your customers etc.

Visit Now
Шлюхи в Киеве с видео на час
ПРОДВИЖЕНИЕ САЙТОВ ОТ ПРОФЕССИОНАЛОВ С ОПЫТОМ ОТ 10 ЛЕТ.
" Работаем с умом, говорим как люди, даем пользу, достигаем результат "
ПОЛУЧИТЕ БЕСПЛАТНО РАСЧЕТ СТОИМОСТИ ПРОДВИЖЕНИЯ. Цена продвижения от 50000руб.
Использование программ и различных скриптов для увеличения продаж в интернете
https://vk.com/asgardcapital
Я решила, что своему парню нужно купить коллекционную игру, однако свободных денег не было и я обратилась сюда. Может и вам повезет! Оформление заняло 5 минут и сразу на карту
Страницы: 1
Ответить
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)
Форма ответов
Текст сообщения*
:) ;) :D 8) :( :| :cry: :evil: :o :oops: :{} :?: :!: :idea:
Защита от автоматических сообщений. Введите символы, изображенные на этой картинке в поле ввода &quote;Код подтверждения&quote;.