zoukankan      html  css  js  c++  java
  • 每天自动备份Oracle数据库,并压缩存档

    最近系统测试运行,为了保留历史数据,所以写了一个自动备份数据库的脚本。
    首先调用Exp备份,然后调用RAR压缩,并删除原始备份文件。所有备份的压缩文件都是保留的
    关于自动执行的问题,我是调用了计划任务,目前一个半小时执行一次 运行了两天 基本正常

    Option Explicit
    On Error Resume Next
    Dim fname, cmd
    Dim WshShell
    Set WshShell = CreateObject("WScript.Shell")
    fname 
    = FormatDateTime(Now(),2)
    fname 
    = fname+"-"+FormatDateTime(Now(),4)
    fname 
    = Replace(fname,":","-")
    cmd 
    = "exp log=../backup/DBBak_" & fname & ".log file=../backup/DBBak_" & fname & ".dmp parfile=exp.txt"
    WshShell.run cmd
    WScript.Sleep 
    300000
    cmd 
    = """C:\Program Files\WinRAR\rar"" m -ag ..\dbrar\DBBak.RAR ..\backup\DBBak_*.*"
    WshShell.run cmd
    Set WshShell = Nothing
    'WScript.Echo cmd

    脚本文件下载

  • 相关阅读:
    k近邻算法
    密码技术小总结
    编码的简单总结
    icmp dos和arp dos 攻击模拟实验
    WPA简单抓包分析
    Iptables实验
    Rabin简单加解密
    response响应数据
    浮动——小米手机案例
    ServletRequest请求详解
  • 原文地址:https://www.cnblogs.com/wormday/p/422973.html
Copyright © 2011-2022 走看看