1 (изменено: rutcky, 2024-04-19 20:53:10)

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

Скрипт, который прекрасно работал под 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

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

Post's attachments

Error.png
Error.png 49.47 kb, 1 downloads since 2024-04-19 

You don't have the permssions to download the attachments of this post.

2

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

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

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

3

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

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

4

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

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

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

5 (изменено: rutcky, 2024-04-20 00:36:04)

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

teadrinker пишет:

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

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

6

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

rutcky пишет:

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

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

rutcky пишет:

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

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

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

7 (изменено: YMP, 2024-04-20 07:33:52)

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

rutcky пишет:

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

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

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

8 (изменено: rutcky, 2024-04-20 09:25:02)

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

YMP пишет:

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

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

9

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

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

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

10

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

rutcky пишет:

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

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

11 (изменено: rutcky, 2024-04-20 18:04:01)

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

YMP пишет:

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

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

telnet.exe
open 192.168.1.1
admin
admin
reboot
quit
exit

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