none
Telnet RRS feed

Ответы

  • Option Explicit

    Dim objSocket
    Dim strSocketText

    Set objSocket = CreateObject("Socket.TCP")
    objSocket.DoTelnetEmulation = True
    objSocket.TelnetEmulation = "TTY"
    objSocket.TimeOut = 5000
    objSocket.Host = "10.0.0.138:23"

    objSocket.Open()
    objSocket.WaitFor "Username :"
    WScript.Echo objSocket.buffer
    objSocket.SendLine "admin"
    objSocket.WaitFor "=>"
    WScript.Echo objSocket.buffer
    objSocket.SendLine "system"
    objSocket.WaitFor "[system]=>"
    WScript.Echo objSocket.buffer
    objSocket.SendLine "reboot"
    objSocket.WaitForDisconnect()
    objSocket.Close

     

    сделал вот так.

    13 марта 2008 г. 10:14

Все ответы

  • Option Explicit

    Dim objSocket
    Dim strSocketText

    Set objSocket = CreateObject("Socket.TCP")
    objSocket.DoTelnetEmulation = True
    objSocket.TelnetEmulation = "TTY"
    objSocket.TimeOut = 5000
    objSocket.Host = "10.0.0.138:23"

    objSocket.Open()
    objSocket.WaitFor "Username :"
    WScript.Echo objSocket.buffer
    objSocket.SendLine "admin"
    objSocket.WaitFor "=>"
    WScript.Echo objSocket.buffer
    objSocket.SendLine "system"
    objSocket.WaitFor "[system]=>"
    WScript.Echo objSocket.buffer
    objSocket.SendLine "reboot"
    objSocket.WaitForDisconnect()
    objSocket.Close

     

    сделал вот так.

    13 марта 2008 г. 10:14
  •  enola.enola написано:

    Set objSocket = CreateObject("Socket.TCP")

    На эту строчку выдает следующее:

    Ошибка: Невозможно создание объекта контейнером ActiveX: 'socket.TCP'

    Код: 800A01AD

    Что я делаю не так?

    19 марта 2008 г. 5:34
  •  Евгений000 написано:
     enola.enola написано:

    Set objSocket = CreateObject("Socket.TCP")

    На эту строчку выдает следующее:

    Ошибка: Невозможно создание объекта контейнером ActiveX: 'socket.TCP'

    Код: 800A01AD

    Что я делаю не так?

     

    Для начала этот ActiveX нужно поставить :

    http://tech.dimac.net/default3.asp?M=FreeDownloads/Menu.asp&P=FreeDownloads/FreeDownloadsstart.asp

     

    19 марта 2008 г. 12:24