Dim objShell, scriptDir
Set objShell = CreateObject("WScript.Shell")
scriptDir = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
objShell.Run """" & scriptDir & "start.bat""", 0, False