Серый форум — VBS: Скрипт VBS выдаёт ошибку под Win10

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (rutcky) — Sat, 20 Apr 2024 13:27:43 +0000

YMP пишет:

Указали полный путь и не запускается?

Не указывал я полный путь. Этих телнетов в Win10 аж пять штук и пути к ним состоят из нескольких десятков символов. Я сделал проще - выбрал тот единственный Telnet.exe, который запускается и скопировал его в директорию System32. И скрипт перестал выбрасывать ошибку. Но и работать не начал - открывается окно, в котором меняются цифры и потом окно закрывается. И всё.
Кстати, в Win7 Telnet всего один и расположен он в System32.
И ещё кстати. Открываю хоть CMD, хоть Powershell и ввожу по одной команды

telnet.exe
open 192.168.1.1
admin
admin
reboot
quit
exit

И всё работает как надо. Даже когда в System32 телнета нет.

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (YMP) — Sat, 20 Apr 2024 12:48:16 +0000

rutcky пишет:

А вот из скрипта - никак.

Указали полный путь и не запускается?

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (teadrinker) — Sat, 20 Apr 2024 08:40:41 +0000

Ну так и начинали бы с запуска командной строки. Но ещё лучше, раз это утилита командной строки, использовали бы bat-файл, а не vbs.

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (rutcky) — Sat, 20 Apr 2024 05:18:07 +0000

YMP пишет:

P.S. Как включить Telnet в Windows 10.

Так то то и оно, что Telnet у меня включен. И из командной строки прекрасно запускается. А вот из скрипта - никак.

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (YMP) — Sat, 20 Apr 2024 03:12:15 +0000

rutcky пишет:

И чего ему не хватает - уже всю голову сломал.

Попробуйте полный путь указать. Проверьте, есть ли вообще этот файл на Вин10.

P.S. Как включить Telnet в Windows 10.

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (teadrinker) — Fri, 19 Apr 2024 21:04:03 +0000

rutcky пишет:

сами мы не местные

Для неместных у нас есть прекрасный Коммерческий раздел.

rutcky пишет:

И чего ему не хватает - уже всю голову сломал

Ну вы хотя бы понимаете, в чём проблема?

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (rutcky) — Fri, 19 Apr 2024 20:18:44 +0000

teadrinker пишет:

rutcky
А текст сообщения об ошибке вам ни о чём не говорит?

Увы. Ведь под Win7 то этот самый скрипт прекрасно работает и все файлы находит. А под десяткой - облом. И чего ему не хватает - уже всю голову сломал. Помогите, чем можете, сами мы не местные. :)

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (teadrinker) — Fri, 19 Apr 2024 19:16:59 +0000

rutcky
А текст сообщения об ошибке вам ни о чём не говорит?

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (rutcky) — Fri, 19 Apr 2024 17:01:27 +0000

teadrinker
Код оформил как положено, а вот заголовок исправил, но уверенности нет, что всё правильно. Отредактировал как понял. Спасибо за понимание.

Re: VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (teadrinker) — Fri, 19 Apr 2024 14:17:09 +0000

rutcky, добро пожаловать на форум! Ознакомьтесь, пожалуйста, с Правилами, отредактируйте свой пост. Обратите внимание на составление заголовков и оформление кода.
Заранее премного благодарен.

VBS: Скрипт VBS выдаёт ошибку под Win10

null@example.com (rutcky) — Fri, 19 Apr 2024 11:36:59 +0000

Скрипт, который прекрасно работал под Win7 , отказывается работать под Win10. Сам скрипт:


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

Поиск по теме результатов не принёс, хотя не исключаю, что я просто искать не умею. Подскажите, плз, чайнику, в чём может быть засада. Заранее премного благодарен.