oracle与sqlserver自动备份还原.docVIP

实现功能： 同时支持oracle与sqlserver 定时自动备份并自动压缩备份文件 定时自动解压缩备份文件并还原 主要文件组成： 一个VBS文件（主要执行文件） 一个TXT文件（配置文件oracle与sqlserver共用） 一个SQL文件（用于oracle的用户删除与重建） TXT文件格式如下： #所有路径配置中，注意最后不带\符合 #tablespace,用于还原时指定表空间 os=win7 evdir=C:\oracle\product\10.2.0\db_1\BIN savedir=d:\temp cachedir=d:\temp\tmp dbtype=sqlserver ip=127.0.0.1 user=sa pwd=sa sysuser= syspwd= tablespace= tns= dbname=testdb 其中oracle数据库用于备份时：evdir、savedir、dbtype、user、pwd、tns必须配置 其中oracle数据库用于还原时：除备份所需配置外，还需要cachedir、sysuser、syspwd、tablespace 其中sqlserver数据用于备份时：savedir、dbtype、ip、user、pwd、dbname必须配置 其中sqlserver数据库用于还原时：除备份所需配置外，还需要cachedir VBS文件内容如下： 其中用于备份时请调用BackupDataBase，用于还原时请调用RestoreDataBase Option Explicit 这里统一定义全局变量 Dim os,dbtype,evdir,ip,user,pwd,tns,dbname,savedir,cachedir,sysuser,syspwd,tablespace 这里开始执行 Call RestoreDataBase() 调用备份功能 Sub BackupDataBase() On Error Resume Next Call ReadCfgFile() If UCase(dbtype)=UCase(oracle) Then Call BackupOracle() Else Call BackupSqlServer() End If End Sub 调用还原功能 Sub RestoreDataBase() On Error Resume Next Call ReadCfgFile() If UCase(dbtype)=UCase(oracle) Then Call RestoreOracle() Else Call RestoreSqlServer() End If End Sub Sub ReadCfgFile() Dim fs, ts, sFile,lTmp,SARR,strData,I On Error Resume Next Set fs = CreateObject(Scripting.FileSystemObject) Set sFile= fs.GetFile(config.txt) If sFile.Size 0 Then Set ts = sFile.OpenAsTextStream(1, -2) lTmp = ts.read(sFile.Size) SARR = Split(lTmp, vbCrLf, -1) For I = 0 To UBound(SARR) - 1 If InStr(SARR(I),=)0 then strData=Split(SARR(I),=,-1) If UCase(Trim(strData(0)))=UCase(os) Then os=Trim(strData(1)) If UCase(Trim(strData(0)))=UCase(evdir) Then evdir=Trim(strData(1)) If UCase(Trim(strData(0)))=UCase(dbtype) Then dbtype=Trim(strData(1)) If UCase(Trim(strData(0)))=UCase(ip) Then ip=Trim(strData(1)) If UCase(Trim(strData(0)))=UCase(user) Then user=Trim(strData(1)) If UCase(