.vbs вообще ничего не выполнит

Question

Я создал короткий скрипт для запуска файла .bat в фоновом режиме, но когда я запускаю файл .vbs, кажется, что он вообще не читает мой скрипт. ,DOS окна всплывают и закрываются сразу, но мой пакетный файл никогда не выполняется. (когда я выполняю пакетный файл напрямую, он работает нормально, поэтому я предполагаю, что этот сценарий является проблемой)

Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
Set WshShell = CreateObject("WScript.Shell")
cmds=WshShell.RUN(sCurPath & "\myrun.bat", 0, True)

Этот код работает на моем рабочем столе, Windows 7 32 бит, но когда я пытаюсь выполнить этот сценарий на Windows Server 2008 R2, он ничего не делает. Кто-нибудь знает, что мне нужно сделать, чтобы запустить этот скрипт .vbs на сервере Windows?

Answer 1

Большинство администраторов отключают WSH на Windows Server

Убедитесь, что значения записи, расположенные ниже, установлены на 1 (включено):

Пользователь:

HKCU\Software\Microsoft\Windows Script Host\Settings\Enabled

Машина:

HKLM\Software\Microsoft\Windows Script Host\Settings\Enabled

Статья TechNet

Answer 2

Исходя из моего комментария, может показаться, что вы пытались выполнить сценарий WSH в среде сценариев командной оболочки. Они не являются взаимозаменяемыми. Похоже, вы сейчас используете правильный скрипт-хост.