BackupPath = "H:\Backup"       
'==

set fso = CreateObject("Scripting.FileSystemObject")

strScript = WScript.ScriptFullName
strScript = fso.GetFileName( strScript )
strScript = left( strScript, len(strScript) - 4 )
StartMe = msgbox("Welcome to eitan Backup script." & vbcrlf & vbcrlf & _
   "Backing up to " & BackupPath & " (" & strScript & ")" & vbcrlf & vbcrlf & _
   "Would you like to start your backup now ?" , 33, "eitan Backup Script " & " - " & strScript )
if StartMe = 2 then  'cancelled
  wscript.quit
End if

count = 0
MyDelay = 1  '(mS) that cause script delays to allow system to still be used (doevents)
dim arrResults   ' array to store results in
redim arrResults(0)

If right(BackupPath, 1) <> "\" then
  BackupPath =   BackupPath & "\"  'inserts the slash as it is required later
End if
Sub Run(ByVal sFile)
Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, false
    Set shell = Nothing
End Sub
run "c:\eitan\backup.bat"