oraclebak.vbs

备份oracle数据库脚本

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,":","")
fname = Replace(fname,"-","")
cmd = "exp log=../backup/" & fname & ".log file=../backup/" & fname & ".dmp parfile=exp.txt"
WshShell.run cmd
WScript.Sleep 20000
cmd = """C:\Program Files\WinRAR\rar"" m -ag ..\dbrar\.RAR ..\backup\*.*"
WshShell.run cmd


Set WshShell = Nothing

'WScript.Echo cmd