Dim sh, fso, p
Set sh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
p = fso.GetParentFolderName(WScript.ScriptFullName)
sh.CurrentDirectory = p
sh.Run "cmd /c """ & p & "\update.bat""", 0, False