windows2008下使用vbs问题。。。请教

[blackwh]

我原来有个批处理任务，用于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

[ltzhh]

去掉这两行

Option Explicit

On Error Resume Next

然后运行看看错误提示