Указали полный путь и не запускается?
Не указывал я полный путь. Этих телнетов в Win10 аж пять штук и пути к ним состоят из нескольких десятков символов. Я сделал проще - выбрал тот единственный Telnet.exe, который запускается и скопировал его в директорию System32. И скрипт перестал выбрасывать ошибку. Но и работать не начал - открывается окно, в котором меняются цифры и потом окно закрывается. И всё.
Кстати, в Win7 Telnet всего один и расположен он в System32.
И ещё кстати. Открываю хоть CMD, хоть Powershell и ввожу по одной команды
telnet.exe
open 192.168.1.1
admin
admin
reboot
quit
exitИ всё работает как надо. Даже когда в System32 телнета нет.
]]>А вот из скрипта - никак.
Указали полный путь и не запускается?
]]>P.S. Как включить Telnet в Windows 10.
Так то то и оно, что Telnet у меня включен. И из командной строки прекрасно запускается. А вот из скрипта - никак.
]]>И чего ему не хватает - уже всю голову сломал.
Попробуйте полный путь указать. Проверьте, есть ли вообще этот файл на Вин10.
]]>сами мы не местные
Для неместных у нас есть прекрасный Коммерческий раздел.
И чего ему не хватает - уже всю голову сломал
Ну вы хотя бы понимаете, в чём проблема?
]]>rutcky
А текст сообщения об ошибке вам ни о чём не говорит?
Увы. Ведь под Win7 то этот самый скрипт прекрасно работает и все файлы находит. А под десяткой - облом. И чего ему не хватает - уже всю голову сломал. Помогите, чем можете, сами мы не местные. :)
]]>
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "telnet.exe"
WScript.Sleep 2000
WshShell.SendKeys"open 192.168.1.1" & chr(13)
WScript.Sleep 2000
WshShell.SendKeys"admin" & chr(13)
WScript.Sleep 2000
WshShell.SendKeys"admin" & chr(13)
WScript.Sleep 5000
WshShell.SendKeys"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
Поиск по теме результатов не принёс, хотя не исключаю, что я просто искать не умею. Подскажите, плз, чайнику, в чём может быть засада. Заранее премного благодарен.
]]>