oracle_bakup.vbs

来自「大型超市购物系统。该系统分为10大模块」· VBS 代码 · 共 18 行

Option Explicit

On Error Resume Next


Dim fname, cmd
Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

fname = Date
cmd = "exp log=../backup/" & fname & "_Oracle_bak.log file=../backup/" & fname & "_Oracle_bak.dmp parfile=exp.txt"

WshShell.run cmd

Set WshShell = Nothing

'WScript.Echo cmd