Автоматическое архивирование
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 3: | Строка 3: | ||
в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию. | в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию. | ||
| − | < | + | <source lang="VB.NET"> |
Dim WshShell, oExec, Line, FileName | Dim WshShell, oExec, Line, FileName | ||
| Строка 44: | Строка 44: | ||
' Set oExec = WshShell.Exec(LINE) | ' Set oExec = WshShell.Exec(LINE) | ||
| − | </ | + | </source> |
[[Category:Школа системного администратора]] | [[Category:Школа системного администратора]] | ||
Версия 16:12, 5 апреля 2010
Ниже прилагается текст макроса написанного на VBScript, предназначенного для проведения автоматического архивирования базы данных. Данный скрипт сохраняется в отдельном файле и указывается как исполняемый модуль в "Назначенные задания" - стандратная программа Windows для выполнения какого-то приложения по расписанию.
Указан неподдерживаемый язык.
Вы должны указать язык следующим образом: <source lang="html4strict">...</source>
Поддерживаемые языки:
4cs, 6502acme, 6502kickass, 6502tasm, 68000devpac, abap, actionscript, actionscript3, ada, algol68, apache, applescript, apt_sources, arm, asm, asp, asymptote, autoconf, autohotkey, autoit, avisynth, awk, bascomavr, bash, basic4gl, bf, bibtex, blitzbasic, bnf, boo, c, c_loadrunner, c_mac, caddcl, cadlisp, cfdg, cfm, chaiscript, cil, clojure, cmake, cobol, coffeescript, cpp, cpp-qt, csharp, css, cuesheet, d, dcl, dcpu16, dcs, delphi, diff, div, dos, dot, e, ecmascript, eiffel, email, epc, erlang, euphoria, f1, falcon, fo, fortran, freebasic, freeswitch, fsharp, gambas, gdb, genero, genie, gettext, glsl, gml, gnuplot, go, groovy, gwbasic, haskell, haxe, hicest, hq9plus, html4strict, html5, icon, idl, ini, inno, intercal, io, j, java, java5, javascript, jquery, kixtart, klonec, klonecpp, latex, lb, ldif, lisp, llvm, locobasic, logtalk, lolcode, lotusformulas, lotusscript, lscript, lsl2, lua, m68k, magiksf, make, mapbasic, matlab, mirc, mmix, modula2, modula3, mpasm, mxml, mysql, nagios, netrexx, newlisp, nsis, oberon2, objc, objeck, ocaml, ocaml-brief, octave, oobas, oorexx, oracle11, oracle8, oxygene, oz, parasail, parigp, pascal, pcre, per, perl, perl6, pf, php, php-brief, pic16, pike, pixelbender, pli, plsql, postgresql, povray, powerbuilder, powershell, proftpd, progress, prolog, properties, providex, purebasic, pycon, pys60, python, q, qbasic, rails, rebol, reg, rexx, robots, rpmspec, rsplus, ruby, sas, scala, scheme, scilab, sdlbasic, smalltalk, smarty, spark, sparql, sql, stonescript, systemverilog, tcl, teraterm, text, thinbasic, tsql, typoscript, unicon, upc, urbi, uscript, vala, vb, vbnet, vedit, verilog, vhdl, vim, visualfoxpro, visualprolog, whitespace, whois, winbatch, xbasic, xml, xorg_conf, xpp, yaml, z80, zxbasic
Dim WshShell, oExec, Line, FileName
' Данный script предназначен для организации автоматического архивирования
' файл прописывается на сервере в назначенных заданиях, где указывается
' частота его запуска.
' Путь к базе данных
FromPath = "D:\Gedemin\Database\"
' Путь где будут создаваться архивы
ToPath = "D:\Gedemin\Database\"
Set WshShell = CreateObject("WScript.Shell")
' Создание backup базы
FileName = ToPath & "gdbase" & CStr(YEAR(DATE)) & "_" & CSTR(MONTH(DATE)) & "_" &_
CSTR(DAY(DATE)) & "_" & CSTR(HOUR(TIME)) & "_" & CSTR(Minute(TIME))
Line = """c:\program files\yaffil\bin\gbak.exe"" -b localhost:" & FromPath & "gdbase.fdb " &_
FileName & ".bk" & " -user SYSDBA -password masterkey"
Set oExec = WshShell.Exec(LINE)
Do While oExec.Status = 0
Loop
' Если вы пользуетесь для архивирование программой rar можно откоментировать данную строку и в каталог
' с архивом положить файл rar.exe, если пользуетесь другим архиватором то меняете ниже rar a -df на свой
' архиватор со своими опциями комадной строки
' Архивирование backup с удалением его самого для экономии места
' Line = ToPath & "rar.exe a -df " & FileName & ".rar " & FileName & ".bk"
' Set oExec = WshShell.Exec(LINE)
