Если соединение не установлено, MsgBox «Нет доступного соединения». Какой командой следует заменить соединение при сбое?

Question

Какой командой следует заменить «Ошибка подключения» в предложении if?

createobject("wscript.shell").run "Rasdial connection_name account_name password",0

If connection fails, then 
MsgBox "There is no available connection."
End If

Answer 1

Метод чтения Run (Windows Script Host) ;

Запускает программу в новом процессе.

Синтаксис

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn]) 

аргументы

• object - объект WshShell.
• strCommand - Строковое значение, обозначающее командную строку, которую вы хотите запустить. Вы должны включить любые параметры, которые хотите передать в исполняемый файл.
• intWindowStyle - Необязательно. Целочисленное значение, указывающее внешний вид окна программы. Обратите внимание, что не все программы используют эту информацию.
• bWaitOnReturn - необязательно. Логическое значение, указывающее, должен ли скрипт ждать завершения программы, прежде чем перейти к следующему оператору в вашем скрипте. Если установлено значение true, выполнение сценария останавливается до завершения программы, и Run возвращает любой код ошибки, возвращенный программой. Если установлено значение false (по умолчанию), метод Run возвращается сразу после запуска программы, автоматически возвращая 0 (не следует интерпретировать как код ошибки).

Следующий фрагмент кода может работать на вас:

retValue = createobject("wscript.shell").run ( _
      "Rasdial connection_name account_name password",0 , True)

If retValue <> 0 then
    MsgBox "There is no available connection."
End If