' Блок повышения прав (оставьте его в начале)
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute "wscript.exe", _
  """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If

' ИСПРАВЛЕНИЕ: Получаем путь к папке, где лежит ваш VBS-файл
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = fso.GetParentFolderName(WScript.ScriptFullName)

Set WshShell = CreateObject("WScript.Shell")

' Запускаем bat-файл, указывая его ПОЛНЫЙ путь
' 0 — скрыть окно, True — ждать завершения (по желанию)
WshShell.Run chr(34) & strPath & "\start1.bat" & Chr(34), 1, True

Set WshShell = Nothing
Set fso = Nothing