[Iska]

как к этому решению »

Там было решение задачи:

Как заменить %~dp0 в коде, чтобы скрипт работал из той папки, где был запущен, при условии, что батник в этой же папке? »

А здесь что?

И как понять:

WshShell.Run chr(34) & "C:\A\0\1.bat" & Chr(34), 0 »

и:

ну конечно без надобности путь указывать - только название батника. »

?!

[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

[Iska]

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

Указать вторым параметром 0 вместо 1:

Код:

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

3.4. Run
VBScript - Run Method (Windows Script Host) (смотреть значения intWindowStyle в разделе Remarks)
Запуск внешних приложений из скрипта VBScript, применение объекта WshShell - AskIt.RU
.Run - VBScript - SS64.com
и т.д.

[NLOLegion]

Iska, то что доктор прописал! Спасибо!