Windows下的Oracle导出脚本

导出脚本内容:

@echo off
REM 
REM File name Daily.bat
REM Batch Process Reload DB Backup
REM
REM Author Frank.Fan
REM Modification History Created 2012-05-07
REM Modified
REM 


for /F "tokens=1-3 delims=/ " %%i in ('date /t') do @set FILENAMEDT=%%i%%j%%k #取系统当前日期:年月日(中文格式)、月日年(英文格式)
for /F "tokens=1,2 delims=: " %%i in ('time /t') do @set FILENAMETM=%%i%%j #取系统当前时间:时分


SET USERNAME=SYSTEM #oracle帐号
SET USERPASSWD=123456 #oracle密码
SET SERVICENAME=QEWAY #oracle SID
SET SCHEMASNAME=ISCOP #oracle SCHEMA帐号




SET RARTOOL=C:\Program Files\WinRAR #设定WINRAR路径(各个机器不同)
SET DBBACKUPPATH=D:\DBBAK #设定被导出的文件路径
SET DBADIRECTORIES=DBBAK #oracle内设置的Directory目录名


SET DBBACKUPFILENAME=QEWAY_%FILENAMEDT%-%FILENAMETM%


goto main


:main
ECHO Exporting schemas.......
expdp %USERNAME%/%USERPASSWD%@%SERVICENAME% DUMPFILE=%DBADIRECTORIES%:%DBBACKUPFILENAME%.dmp schemas=%SCHEMASNAME% LOGFILE=%DBADIRECTORIES%:%DBBACKUPFILENAME%.log
ECHO Done exporting schemas.
ECHO =======================================================
ECHO ...Done export




if exist %DBBACKUPPATH%\%DBBACKUPFILENAME%.RAR del %DBBACKUPPATH%\%DBBACKUPFILENAME%.RAR
"%RARTOOL%\winrar.exe" a -ep %DBBACKUPPATH%\%DBBACKUPFILENAME%.RAR %DBBACKUPPATH%\%DBBACKUPFILENAME%.dmp

del %DBBACKUPPATH%\%DBBACKUPFILENAME%.dmp

Echo ...Compression complete

forfiles /p "%DBBACKUPPATH%" /m *.rar -d -30 /c "cmd /c del /f @path" #删除30天之前的RAR文件


REM -----------Send a mail to notification-----------


start D:\DBBAK\Batch_notification_Daily.vbs #调用邮件通知VBS文件


EXIT


邮件通知VBS文件内容:

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

set Email = CreateObject("CDO.Message")
Email.From = "XXXX@Exchange.com"
Email.To = "XXXX@163.com"
Email.Subject = "Gongxtpt Batch Daily Task"
Email.Textbody = "Gongxtpt Batch Daily Task was done!! Starting at 00:00AM"
with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "10.0.0.12" 
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 0
.Item(NameSpace&"sendusername") = ""  
.Item(NameSpace&"sendpassword") = ""
.Update
end with
Email.Send
Set Email=Nothing
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值