[NLOLegion]

Iska, решение однозначно есть. Ваш код(пример ниже) работает!:

Код:

Option Explicit

Dim objFSO
Dim objWshShell


Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run objWshShell.ExpandEnvironmentStrings("%comspec% /c """) & objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "1.bat") & """", 1, False

Set objWshShell = Nothing
Set objFSO      = Nothing

WScript.Quit 0

Дополнительный вопрос появился: как запускать батник(именно тот, что в этой же папке), чтобы окно консоли не появлялось?

Просто любой батник я запускаю кодом ниже указав до батника полный путь, а хочется скрестить оба скрипта, и понять как это делается(попытаться)

Код:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\A\0\1.bat" & Chr(34), 0
Set WshShell = Nothing