Принятие аргументов vbs

@trojan4096 · Регистрация: 23.11.2013

Author24 — интернет-сервис помощи студентам

Имеется код:

Visual Basic

Set oShell = WScript.CreateObject("WScript.Shell") 
Dim x
oShell.Run "telnet.exe" & x
WScript.Sleep 1000
oShell.SendKeys "login" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "password" & chr(13)

Задача такова:
необходимо, чтобы при запуске скрипта из командной строки принимался ip адрес в переменную x

@Dmitrii · 11.03.2014, 23:12

Например:

Visual Basic

Dim x
Set WshArg = WScript.Arguments
If WshArg.Count > 0 Then
    x = WshArg(0)
    'советую добавить проверку корректности заданного аргумента
    Set oShell = WScript.CreateObject("WScript.Shell")
    oShell.Run "telnet.exe" & WshArg(0)
    WScript.Sleep 1000
    oShell.SendKeys "login" & chr(13)
    WScript.Sleep 1000
    oShell.SendKeys "password" & chr(13)
End If

@trojan4096 · 12.03.2014, 12:43 **[ТС]**

Bash

1 2	C:\>cscript.exe /nologo 1.vbs 10.90.91.1 C:\1.vbs(6, 5) (null): Не удается найти указанный файл.

Добавлено через 1 минуту
а все заработало, спасибо большое! нужно было пробел поставить после telnet.exe

	12.03.2014, 12:43

Принятие аргументов vbs

Решение