該腳本對數據庫進行完全備份，然后打包，以備份日期命名打包文件，以便于日后恢復。稍修改一下腳本可以實現增量或其它備份
-------------txt-----------
userid=user/passwd@db
owner=user
INDEXES=y
grants=y
rows=y
constraints=y
compress=N
-----------txt end---------
-------------vbs-----------
Option Explicit
On Error Resume Next
Dim log_fname, dmp_fname, exp_fname, rar_fname, fname, cmd
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
'備份數據庫
log_fname = "'.\Data\ysgl_" & Date & ".log'"
dmp_fname = "'.\Data\ysgl_" & Date & ".dmp'"
exp_fname = ".\exp_ysgl.txt"
cmd = "exp log=" & log_fname & " file=" & dmp_fname & " parfile=" & exp_fname
WshShell.run cmd,,True
'壓縮數據庫
fname = """.\Data\ysgl_" & Date & ".*"""
rar_fname = """.\Data\ysgl_" & Date & ".rar"""
cmd = "rar.exe a -ep -m5 " & rar_fname & " " & fname
WshShell.run cmd,,True
'刪除臨時文件
cmd = ".\delete.bat"
WshShell.run cmd,,True
Set WshShell = Nothing
------------vbs end-----------
---------------bat--------------
del ".\Data\*.dmp"
del ".\Data\*.log"
------------bat end-------------
可以把vbs加入計劃任務實現自動備份