Windows下的Oracle导出脚本 电脑资料

Windows下的Oracle导出脚本 电脑资料 Windows下的Oracle导出脚本 导出脚本内容： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 echo off REM REM File name Daily.bat REM Batch Process Reload DB Backup REM REM Author Frank.Fan REM Modification History Created xx-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 FilesWinRAR #设定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 plete forfiles /p %DBBACKUPPATH% /m *.rar -d -30 /c cmd /c del /f path #删除30天之前的RAR文件 REM -Send a mail to notification- start D:DBBAKBatch_notification_Daily.vbs #调用邮件通知VBS文件 EXIT 邮件通知VBS文件内容： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 NameSpace = schemas.microsoft./cdo/configuration/ set Email = CreateObject(CDO.Message) Email.From = XXXXExchange. Email.To = XXXX163. 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) = 2 .Item(NameSpace&smtpserverport) = 25 .Item(NameSpace&smtpauthenticate) = 0 .Item(Na