Расскажите пожалуйста новичку как вы делаете backup файл сервера?
Заранее вам благодарен

З.Ы. У меня файл сервер на Windows Server 2003.
Прошу прощение за маленькую неточность._Гагарин писал(а):в каком смысле бекап?
системы или файлов?
Код: Выделить всё
Option Explicit
On Error Resume Next 'Чтобы отладочное окно не вылетало
Dim Return
Dim path81_from, path77_from, pathDOC_from, pathOLD_from, pathDOClab_from
Dim path81_where, path77_where, pathDOC_where, pathOLD_where, pathDOClab_where
path81_from = "E:\!!!BASEs\81"
path77_from = "E:\!!!BASEs\77"
pathOLD_from = "E:\!!!BASEs\OLD"
pathDOC_from = "E:\ДОКУМЕНТЫ"
pathDOClab_from = "E:\ДОКУМЕНТЫ лаборатории"
path81_where = "F:\!BACKUP\01\BASES-1C"
path77_where = "F:\!BACKUP\01\BASES-1C"
pathOLD_where = "F:\!BACKUP\01\BASES-1C"
pathDOC_where = "F:\!BACKUP\01\DOCUMENTs"
pathDOClab_where = "F:\!BACKUP\01\DOCUMENTsLab"
'возможности WSH по доступу к файловой системе
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'возможности Shell
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
'Очищаем бэкаповскую папку
fso.DeleteFolder "F:\!BACKUP\01\*"
fso.DeleteFile "F:\!BACKUP\01\*"
'Все базы платформы 81
'копируем
fso.CopyFolder path81_from, path81_where
'Все рабочие базы платформы 77
'копируем
fso.CopyFolder path77_from, path77_where
'Все старые, но тоже рабочие базы платформы 77
'копируем
fso.CopyFolder pathOLD_from, pathOLD_where
'Все рабочие документы
'копируем
fso.CopyFolder pathDOC_from, pathDOC_where
'Все документы лаборатории
fso.CopyFolder pathDOClab_from, pathDOClab_where
WScript.Echo "Понедельник. Резервное архивирование рабочих баз 1С и документов выполнено!"
а в глазурЬ?Burner писал(а):бекапы делают трусы
в справке винды ntbackupГость писал(а): Но я в поиске наиболее правильного, оптимального и эффективного метода.