Option Explicit
On Error Resume Next
Dim fname, cmd
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
fname = Date & "_" & Hour(Now) & Minute(Now)
cmd = "exp user/pass@oradb file=d:/orabak/" & fname & ".dmp log=d:/orabak/" & fname & ".log "
WshShell.run cmd
Set WshShell = Nothing