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 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文件内容：

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

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