備份端 tnsnames.ora 新增:
JMYBJS =
(DESCRIPTION =
(ADDRESS = (PROTOCOL = TCP)(HOST = 129.1.9.90)(PORT = 1521))
(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = jmybJS))
)
D:\backup\dmp # 存放 .dmp 匯出檔
D:\backup\log # 存放匯出日誌
' 產生檔名:YYYYMMDD
outfile = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2)
strExp = "D:\Oracle_bf\product\10.1.0\Db_1\BIN\exp system/******@jmybjs " & _
"full=y buffer=900000 " & _
"file=d:\backup\dmp\jmybjs" & outfile & " " & _
"log=d:\backup\log\jmybjs" & outfile & ".log"
Set ws = WScript.CreateObject("WScript.Shell")
ws.Run strExp, 1, True
' 計算 30 天前日期
dtOld = DateAdd("d", -30, Date)
outfile = Year(dtOld) & Right("0" & Month(dtOld), 2) & Right("0" & Day(dtOld), 2)
strDel = "cmd /c del d:\backup\dmp\jmybjs" & outfile & ".dmp"
ws.Run strDel, 0, True
注意:Windows Server 2003 預設無 delete.exe,需從其他系統複製至 C:\Windows\system32 或改用 cmd /c del 內建命令。
使用 Windows 「排程工作」分別設定:
測試驗證後正式上線,實現無人值守異地備份保留 30 天。