你分别建如下三个文件,执行OracleBackup.bat,就可以备份了。
1、exp.txt
userid=system/system@ordb
owner=scott
INDEXES=y
grants=y
rows=y
constraints=y
compress=N
2、OracleBackup.bat
OracleBackup.vbs
3、OracleBackup.vbs
Option Explicit
On Error Resume Next
Dim fname, tnow, cmd
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
'调整备份文件名
tnow = Now()
fname = Year(tNow) & FormatNumber(Month(tNow)/100,2,false) & FormatNumber(Day(tNow)/100,2,false) & FormatDateTime(tNow,3)
fname = Replace(Replace(fName,".",""),":","")
cmd = "exp log=../backup/" & fname & ".log file=../backup/" & fname & ".dmp parfile=exp.txt"
'fname = Date
'cmd = "exp log=../backup/" & fname & "_OracleDB_Bak.log file=../backup/" & fname & "_OracleDB_Bak.dmp parfile=exp.txt"
WshShell.run cmd
Set WshShell = Nothing
'WScript.Echo cmd
取消
评论