每天自动备份Oracle数据库，并压缩存档

最近系统测试运行，为了保留历史数据，所以写了一个自动备份数据库的脚本。
首先调用Exp备份，然后调用RAR压缩，并删除原始备份文件。所有备份的压缩文件都是保留的
关于自动执行的问题，我是调用了计划任务，目前一个半小时执行一次 运行了两天 基本正常

Option   Explicit
On   Error   Resume   Next
Dim  fname, cmd
Dim  WshShell
Set  WshShell  =   CreateObject ( " WScript.Shell " )
fname  =   FormatDateTime ( Now (), 2 )
fname  =  fname + " - " + FormatDateTime ( Now (), 4 )
fname  =   Replace (fname, " : " , " - " )
cmd  =   " exp log=../backup/DBBak_ "   &  fname  &   " .log file=../backup/DBBak_ "   &  fname  &   " .dmp parfile=exp.txt "
WshShell.run cmd
WScript.Sleep  300000
cmd  =   " ""C:\Program Files\WinRAR\rar"" m -ag ..\dbrar\DBBak.RAR ..\backup\DBBak_*.* "
WshShell.run cmd
Set  WshShell  =   Nothing
' WScript.Echo cmd

脚本文件下载

转载于:https://www.cnblogs.com/wormday/archive/2006/06/11/422973.html