Ошибка В Скрипте

Тема в разделе "Visual Basic", создана пользователем alekssgor, 7 янв 2013.

  1. alekssgor

    alekssgor Well-Known Member

    Регистрация:
    26 май 2008
    Сообщения:
    118
    Симпатии:
    0
    Подскажите кто занает! Скачал скрипт к роултору с сайта производителя для добавления задачи по расписанию
    для перезагрузки роултера по расписанию. В XP работает а в 7 вообще не работает!!! В чём проблема???

    Скрипт в первоначальном виде:
    Код (Text):
    set WshShell = WScript.CreateObject("WScript.Shell")

    WshShell.run "telnet.exe"

    WScript.Sleep 5000
    WshShell.SendKeys"o 192.168.1.1" & chr(13)

    WScript.Sleep 5000
    WshShell.SendKeys"1234" & chr(13)

    WScript.Sleep 5000
    WshShell.SendKeys"sys reboot" & chr(13)

    WScript.Sleep 3500
    ProcessClose("cmd.exe")
    ProcessClose("telnet.exe")
    Function ProcessClose(sProcName)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
    For Each objProcess in colProcessList
    objProcess.Terminate()
    Next
    End Function
    Данный скрипт вообще не устонавливает соединение с роултером
    Изминил скрипт на
    Код (Text):
    set WshShell = WScript.CreateObject("WScript.Shell")

    WshShell.run "telnet.exe 192.168.1.1"

    WScript.Sleep 5000
    WshShell.SendKeys"1234" & chr(13)

    WScript.Sleep 5000
    WshShell.SendKeys"sys reboot" & chr(13) //команда не выполняется!!!

    WScript.Sleep 3500
    ProcessClose("cmd.exe")
    ProcessClose("telnet.exe")
    Function ProcessClose(sProcName)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
    For Each objProcess in colProcessList
    objProcess.Terminate()
    Next
    End Function
    Данный скрипт запускает telnet устанавливает связь с роултером принимает пароль но саму команду не выполняет!!!
    Команда правильная руками выполняю через telnet всё работает!!!
    При добавлении задачи ставил галочку выполнять с наибольшим приоритетом всё тоже самое!!!
     
  2. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    что значит не работает? тихо ничего не делает?
     
  3. alekssgor

    alekssgor Well-Known Member

    Регистрация:
    26 май 2008
    Сообщения:
    118
    Симпатии:
    0
    Консоль запускается роултер выдаёт запрос пароля пароль принимается но вместо комнды sys reboot выводится //52 и пишит неправильная команда
    Вобщем в скрипте ошибка!!! захожу в ручную набираю команду help выдаёт все команды к роултеру
    Какую команду не поставлю в скрипт вместо sys reboot одно и тоже пишит неправильная команда а в ручную всё работает!!!
    Сам скрипт лежит в Моих документах может в System32 закинуть???
     
Загрузка...
Похожие Темы - Ошибка Скрипте
  1. Lamerman
    Ответов:
    0
    Просмотров:
    26
  2. Enima
    Ответов:
    0
    Просмотров:
    52
  3. Baindt
    Ответов:
    1
    Просмотров:
    74
  4. anna
    Ответов:
    2
    Просмотров:
    81
  5. gramzer
    Ответов:
    1
    Просмотров:
    120

Поделиться этой страницей