[Iska]

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

Вообще-то, «%~dp0» вовсе не:

из той папки, где был запущен »

а строго «из того каталога, где находится пакетный файл». Они могут совпадать, но это разные понятия.

Выглядеть сие может так:

Код:

Option Explicit

Dim objFSO


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

WScript.Echo objFSO.GetParentFolderName(WScript.ScriptFullName)

Set objFSO = Nothing

WScript.Quit 0

[Petya V4sechkin]

Или так:

Код:

WScript.Echo Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))

[NLOLegion]

Iska, Petya V4sechkin, вроде как эти строчки я и нашел в сети, но где здесь запуск моего батника(1.bat)? Не получается совместить.

[Petya V4sechkin]

Код:

Set WshShell = CreateObject("WScript.Shell")
strPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
WshShell.Run Chr(34) & strPath & "1.bat" & Chr(34), 0

[NLOLegion]

Petya V4sechkin, безмерно признателен!!!!

[Iska]

но где здесь запуск моего батника(1.bat) »

Ну, до кучи:

Код:

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.cmd") & """", 1, False

Set objWshShell = Nothing
Set objFSO      = Nothing

WScript.Quit 0

[NLOLegion]

Iska, благодарю за решение! А ещё ты всегда на форуме и оперативен. Можешь ли ссылку кинуть что почитать по данному вопросу? (как вариант в личку). Не хочется быть кретином и халявщиком( а вопросы я могу задавать бесконечно)).

[Iska]

Можешь ли ссылку кинуть что почитать по данному вопросу? »

Полезные ресурсы по скриптовым языкам администрирования
Windows Script Host: Коллекция ссылок

а вопросы я могу задавать бесконечно) »

Задавайте. Но помните: каждому отдельному тематическому вопросу — отдельную тему.

[NLOLegion]

Ну, до кучи: »

как к этому решению добавить

Код:

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

?
ну конечно без надобности путь указывать - только название батника.
Чтобы и батник из каталога запустился, и дверь не скрипнула (окно консоли не появилось).
Готовое решение хорошо, но если возможно, показать какая строчка куда встанет и почему... если возможно