Вызов telnet из VBA

@malidev · Регистрация: 18.02.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте, уважаемые знатоки!
Помогите решить проблему. Пользовался кодом VBA для вызова из Excel консоли telnet, часть кода:

Visual Basic

1	i = Shell("c:\windows\system32\telnet.exe", vbNormalFocus)

Вся проблема в том, что работал на Windows XP. Попробовал запустить на 7 или 10 - ругается на данную строку, в чем проблема?
Заранее благодарен.

@АЕ · 27.01.2019, 08:44

Сообщение от malidev

в чем проблема?

скорее всего там нет файла "c:\windows\system32\telnet.exe" - вот и ругается.
к примеру у себя нашел его по такому пути "C:\Windows\winsxs\amd64_microsoft-windows-telnet-client_31bf3856ad364e35_6.1.7600.16385_none_1426830c3ebb712d"

@malidev · 27.01.2019, 14:59 **[ТС]**

В том то и дело, что файл есть. Его можно открыть прямо в папке: c:\windows\system32\telnet.exe, но он не вызывается из VBA.
В папке, указанной Вами в 64 разрядной Windows также также лежит telnet.exe, он вызывается из VBA, открывается консоль telnet, но в ней не выполняются команды. В чем фишка?

@АЕ · 27.01.2019, 19:19

malidev, как функция не фурычит.... попробуйте как подпрограмму

Visual Basic

1	Shell "c:\windows\system32\telnet.exe", vbNormalFocus

@malidev · 28.01.2019, 06:15 **[ТС]**

Так тоже не работает. Досада.

@АЕ · 28.01.2019, 07:55

Библиотеки подключены, битых нет? Что за код ошибки?

@malidev · 28.01.2019, 18:18 **[ТС]**

Ошибка - нет файла c:\windows\system32\telnet.exe. Но он же есть

@АЕ · 28.01.2019, 20:45

malidev, кода ошибки не увидел. Только эмоции....

Добавлено через 3 минуты
создайте пакетник, убедитесь, что он запускает экзэшник.
Вызывайте пакетник из VBA. Прийдет понимание ошибки. Лбом об стену не поможет. Может зараженный файл антивирус блокирует

@malidev · 28.01.2019, 22:29 **[ТС]**

Спасибо большое! Удалось запустить с помощью пакетника.

@АЕ ᴁ® 3648 / 2004 / 427 Регистрация: 13.12.2016 Сообщений: 6,899 Записей в блоге: 5
	27.01.2019, 08:44	2
	Сообщение от malidev в чем проблема? скорее всего там нет файла "c:\windows\system32\telnet.exe" - вот и ругается. к примеру у себя нашел его по такому пути "C:\Windows\winsxs\amd64_microsoft-windows-telnet-client_31bf3856ad364e35_6.1.7600.16385_none_1426830c3ebb712d" 0

@malidev 0 / 0 / 0 Регистрация: 18.02.2017 Сообщений: 49
	27.01.2019, 14:59 [ТС]	3
	В том то и дело, что файл есть. Его можно открыть прямо в папке: c:\windows\system32\telnet.exe, но он не вызывается из VBA. В папке, указанной Вами в 64 разрядной Windows также также лежит telnet.exe, он вызывается из VBA, открывается консоль telnet, но в ней не выполняются команды. В чем фишка? 0

@malidev 0 / 0 / 0 Регистрация: 18.02.2017 Сообщений: 49
	28.01.2019, 06:15 [ТС]	5
	Так тоже не работает. Досада. 0

@АЕ ᴁ® 3648 / 2004 / 427 Регистрация: 13.12.2016 Сообщений: 6,899 Записей в блоге: 5
	28.01.2019, 07:55	6
	Библиотеки подключены, битых нет? Что за код ошибки? 0

@malidev 0 / 0 / 0 Регистрация: 18.02.2017 Сообщений: 49
	28.01.2019, 18:18 [ТС]	7
	Ошибка - нет файла c:\windows\system32\telnet.exe. Но он же есть 0

@АЕ ᴁ® 3648 / 2004 / 427 Регистрация: 13.12.2016 Сообщений: 6,899 Записей в блоге: 5
	28.01.2019, 20:45	8
	Сообщение было отмечено malidev как решение Решение malidev, кода ошибки не увидел. Только эмоции.... Добавлено через 3 минуты создайте пакетник, убедитесь, что он запускает экзэшник. Вызывайте пакетник из VBA. Прийдет понимание ошибки. Лбом об стену не поможет. Может зараженный файл антивирус блокирует 1

@malidev 0 / 0 / 0 Регистрация: 18.02.2017 Сообщений: 49
	28.01.2019, 22:29 [ТС]	9
	Спасибо большое! Удалось запустить с помощью пакетника. 0

Вызов telnet из VBA

Решение