我原来有个批处理任务，用于2003系统下，定时对oracle进行备份

但现在在windows2008下面出现问题，因为不懂，所以请教：

原文件
执行：wscript.exe  orabak.vbs

orabak.vbs：

Option Explicit

On Error Resume Next

Dim fname, cmd
Dim WshShell
Dim strDate, arrDate

Set WshShell = CreateObject("WScript.Shell")

fname = Weekday(Date()) - 1
strDate = "Sun,Mon,Tue,Wed,Thu,Fri,Sat"
arrDate = split(strDate,",")

cmd = "exp log=..\Log\db1_" & arrDate(fname) & ".log file=..\Dmp\exoa_" & arrDate(fname) & ".dmp parfile=exoa.txt"
WshShell.run cmd

Set WshShell = Nothing