1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

  1. alekssgor

    alekssgor Well-Known Member

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

    Скрипт в первоначальном виде:
    Код:
    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
    Данный скрипт вообще не устонавливает соединение с роултером
    Изминил скрипт на
    Код:
    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

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

    alekssgor Well-Known Member

    Репутация:
    0
    Регистрация:
    26 май 2008
    Сообщения:
    118
    Симпатии:
    0
    Консоль запускается роултер выдаёт запрос пароля пароль принимается но вместо комнды sys reboot выводится //52 и пишит неправильная команда
    Вобщем в скрипте ошибка!!! захожу в ручную набираю команду help выдаёт все команды к роултеру
    Какую команду не поставлю в скрипт вместо sys reboot одно и тоже пишит неправильная команда а в ручную всё работает!!!
    Сам скрипт лежит в Моих документах может в System32 закинуть???
     
Загрузка...
Похожие Темы - Ошибка Скрипте
  1. bb-8
    Ответов:
    4
    Просмотров:
    54
  2. bb-8
    Ответов:
    3
    Просмотров:
    129
  3. recrut
    Ответов:
    13
    Просмотров:
    231
  4. Петручо
    Ответов:
    0
    Просмотров:
    59
  5. Tayrus
    Ответов:
    6
    Просмотров:
    150

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