Скрипты брал отсюда
http://ogo.in.ua/forums/index.php?app=c ... ach_id=479Нечего у меня не работает по скриптам. Привожу скрипт тут( анекс м у меня отключён)
Set oShell = CreateObject("WScript.Shell")
'Запускаем командную строку
oShell.run"cmd.exe"
WScript.Sleep 1200
'Отправляем строку в активное окно.
'При необходимости изменяем IP-адрес на адрес Вашего модема
oShell.SendKeys"telnet 192.168.1.1"
'Эмулируем нажатие кнопки Enter
oShell.SendKeys("{Enter}")
WScript.Sleep 300
'Отправляем логин в активное окно
oShell.SendKeys"admin"
oShell.SendKeys("{Enter}")
WScript.Sleep 100
'Отправляем пароль в активное окно
oShell.SendKeys"admin"
oShell.SendKeys("{Enter}")
WScript.Sleep 1200
'Отправляем команду для модема в активное окно
oShell.SendKeys"adsl start --snr 250"
oShell.SendKeys("{Enter}")
oShell.SendKeys"logout"
oShell.SendKeys("{Enter}")
WScript.Sleep 1500
'Закрываем процессы cmd.exe и telnet.exe
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
При выполнение этого скрипта пишет такое
http://img820.imageshack.us/i/97755041.jpg/ "не является внутренней или внешней командой, исполняемой программой или пакетным файлом."
Когда последовательно выполняю данные команды в Телнете:
выполнить telnet 192.168.1.1
вбиваю логин(Enter) и пароль (Enter)
ввожу команду "adsl start --snr 250" и клацаю Enter (модем при этом уходит в перезагруз)
и ввожу команду "logout" и клацаю Enter (тем самым выхожу с телнета)
то всё проходит и сохраняеться ровным счётом до перезагрузки модема. ОС у меня Windows 7.
В чём проблема?