Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Sotus

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
Есть скрипт (Script-reboot.vbs) для сброса маршрутизатора,  
который НОРМАЛЬНО ОТРАБАТЫВАЕТ ПО ДВОЙНОМУ КЛИКУ ПО НЕМУ,  
но как только я пытаюсь запустить его через USDownloader (менеджер закачек), - выдаётся окошко с ошибкой:
 
windows script host (заголовок окна ошибки)
Текст в окне:
Сценарий:
D:\USDownloader\SCRIPT_REBOOT\Script-reboot.vbs
Строка: 3
Символ: 1
Ошибка: Не удаётся найти указанный файл.
Код: 80070002
Источник: (null)
 
Попробовал сделать батник, который запускает этот скрипт.
Батник, по двойному клику по нему, нормально запускается и отрабатывает вместе со скриптом.
При запуске этого батника через USDownloader - выдаёт ту же самую ошибку.
Система Win8.1 Upd1 RUS
 
Текст скрипта:
set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.run "telnet.exe"
 
WScript.Sleep 5000
WshShell.SendKeys"o IP-АДРЕС МАРШРУТИЗАТОРА" & chr(13)
 
WScript.Sleep 5000
WshShell.SendKeys"ЛОГИН МАРШРУТИЗАТОРА" & chr(13)
 
WScript.Sleep 5000
WshShell.SendKeys"ПАРОЛЬ МАРШРУТИЗАТОРА" & chr(13)
 
WScript.Sleep 5000
WshShell.SendKeys"system 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
 

Всего записей: 203 | Зарегистр. 26-12-2014 | Отправлено: 00:37 26-02-2015
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru