Серый форум — VBS: не запускается команда

Re: VBS: не запускается команда

null@example.com (Кир) — Thu, 25 May 2017 06:04:47 +0000

Опять перестал нормально работать скрипт в Win7x64. Разобрался. Пароль неверный подкидывал.

Re: VBS: не запускается команда

null@example.com (Кир) — Mon, 28 Nov 2016 06:37:42 +0000

Переписал имя раздела С: в английской раскладке. Работает вроде.

Re: VBS: не запускается команда

null@example.com (Flasher) — Fri, 25 Nov 2016 12:51:30 +0000

With CreateObject("WScript.Shell")
  .Run "rasdial RK chan i_1623",, True
  .Run "C:\NB\tst10.exe /r:C:\NB\log.txt /o",, True
  .Run "rasdial RK /d"
End With

Re: VBS: не запускается команда

null@example.com (Кир) — Fri, 25 Nov 2016 07:54:32 +0000

Похожий скрипт не выполняется в Виндовс 2000. Сообщает "Файл не найден Стрпока 3 символ 1":

Set WshShell=WScript.CreateObject("WScript.Shell")
Sub Program(Oops, Style, Wait)
X=WshShell.Run(Oops, Style, Wait)
End Sub

Call Program("rasdial RK chan i_1623", True, True)
Wscript.Sleep 5000

'запускаем вкл/выкл аутентификации
Call Program("С:\NB\tst10.exe /r:C:\NB\log.txt /o", True, True)
Wscript.Sleep 10000

'разъединяем модемное соединение
Call Program("rasdial RK /d", True, True)

Что исправить в скрипте для запуска?

Re: VBS: не запускается команда

null@example.com (Кир) — Fri, 01 Apr 2016 05:48:47 +0000

Flasher CreateObject("WScript.Shell").Run "C:\NetAuth\bin\bin\perl.exe C:\NetAuth\script\netauth.pl",, True не запускается.
shiz добавление WshShell.CurrentDirectory = "C:\NetAuth\script\" помогло.
Всем СПАСИБО!

Re: VBS: не запускается команда

null@example.com (shiz) — Tue, 29 Mar 2016 16:27:52 +0000

Кир пишет:

Рабочий каталог в ярлыке C:\NetAuth\script\. Как указать каталог в моем скрипте?

Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:\NetAuth\script\"
WshShell.Run "C:\NetAuth\bin\bin\perl.exe netauth.pl",, True

Re: VBS: не запускается команда

null@example.com (Кир) — Tue, 29 Mar 2016 08:20:41 +0000

Спасибо. Проверю.

Re: VBS: не запускается команда

null@example.com (Flasher) — Tue, 29 Mar 2016 05:45:52 +0000

Весь код:

CreateObject("WScript.Shell").Run "C:\NetAuth\bin\bin\perl.exe C:\NetAuth\script\netauth.pl",, True

5 секунд ожидания там ни к чему.

Re: VBS: не запускается команда

null@example.com (Кир) — Tue, 29 Mar 2016 05:35:15 +0000

Flasher пишет:

А в чём прок от запуска скрипта perl из под vbs?

До выполнения скрипта perl поднимаю dial-up соединение, а потом закрываю его.

shiz пишет:

Т.к. не задан рабочий каталог и не указан путь к netauth.pl, то, возможно, он ищется не там.

ДА. Рабочий каталог в ярлыке C:\NetAuth\script\. Как указать каталог в моем скрипте?

Re: VBS: не запускается команда

null@example.com (shiz) — Mon, 28 Mar 2016 14:45:21 +0000

Т.к. не задан рабочий каталог и не указан путь к netauth.pl, то, возможно, он ищется не там.

Re: VBS: не запускается команда

null@example.com (Flasher) — Mon, 28 Mar 2016 14:42:11 +0000

Описание метода.
А в чём прок от запуска скрипта perl из под vbs?

VBS: не запускается команда

null@example.com (Кир) — Mon, 28 Mar 2016 12:56:56 +0000

В WindowsXP все работало

Set WshShell=WScript.CreateObject("WScript.Shell")

Sub Program(Oops, Style, Wait)
X=WshShell.Run(Oops, Style, Wait)
End Sub

Call Program("C:\NetAuth\bin\bin\perl.exe netauth.pl", True, True)
Wscript.Sleep 5000

На Windows 7x64 не запускается.
С ярлыка и из командной строки работает.
Как запустить команду из скрипта?