Как реализовать запуск mstsc.exe с вводом ip, логина и пароля?

[ru3000]

Нашел в нете еще один код:

Sub ExecuteConnection(strServer, strUser, strPW)
' create the client
Dim objMsRdpClient
Set objMsRdpClient = CreateObject("MsTscAx.MsTscAx.2")
objMsRdpClient.Server = strServer
objMsRdpClient.UserName = strUser
objMsRdpClient.FullScreen = False
objMsRdpClient.AdvancedSettings2.RedirectDrives = False
objMsRdpClient.AdvancedSettings2.RedirectPrinters = False
objMsRdpClient.AdvancedSettings2.RedirectPorts = False
objMsRdpClient.AdvancedSettings2.RedirectSmartCards = False

objMsRdpClient.AdvancedSettings2.ClearTextPassword = strPW
objMsRdpClient.StartConnected = True
WScript.echo "Before connecting"

WScript.echo objMsRdpClient.Version
Dim intResult
intResult = objMsRdpClient.Connect
WScript.echo "After connecting Result: " & intResult

End Sub

Только вот как его привязать к excel и заставить работать?

При создании на листе элемента activx "Microsoft RDP Client Control" (см. вложение "Doc1.zip"), в VB создается код:

Private Sub MsRdpClientNotSafeForScripting1_OnConnecting()

End Sub

Запустить RDP Client внутри excel на листе у меня получилось, когда изменил AutoLoad с False на True, а StartConnected с 0 на 1, и то только после перезагруки книги.

RDP-то на странице работает, только вот ни переместить ни изменить размер окна, ни даже удалить, у меня не получается. А уж как изменить ip, логин и тем более заставить вводится пароль, я вообще молчу.

Было бы круто, если это все работало так как я хочу:
чтобы RDP открывался прямо внутри excel (см. вложение "Doc1.zip");
чтобы ip, логин и пароль брались из ячеек A1, A2 и A3 соответственно;
чтобы поле activx изменялось в соответствии с размером excel и свободной области на листе.

[EducatedFool]

У меня не получается вставить этот объект на лист - пишет "Вставка объекта неосуществима"
(использую Office 2003)

Если бы вместо скриншотов выложили бы файл с внедрённым объектом - возможно, уже получили бы готовое решение.
Управлять большинством объектов ActiveX, расположенных на листе Excel, совсем несложно.

[ru3000]

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

Если бы вместо скриншотов выложили бы файл с внедрённым объектом

Посмотрите здесь.
Office у меня 2007.

[EducatedFool]

Посмотрите здесь.

Увы, на моём компе этот объект не оборажается - присутствует только пустая рамка объекта.
То ли Office 2003 не позволяет внедрять подобные объекты, то ли нехватает какой-то записи в реестре.

[ru3000]

Жаль.
Быть может дело все-таки в Office 2007?

[ru3000]

Впринципе можно книгу открывать и в портативной версии Office 2007, прямо с флешки. Ведь не на каждой же машине стоит 2007. Другое дело если в реестре не хватает записи. Но ведь можно ее вычислить и добалять автоматом при открытии книги. Только вот как ее вычислить?

[ru3000]

Вот этот файл открывается в Office 2003! Проверял другой машине.
Посмотрите пожалуйста.
А то что поле белое, так это RDP у вас не подключится, т.к. ip для него у меня выставлен 192.168.1.5

[EducatedFool]

С объектом на рабочем листе так ничего и не получилось - не могу добраться до его свойств.

На форму вставить подобный компонент удалось - всё работает как надо.




А код для рабочего листа я написать не смогу, поскольку нет возможности его проверить.

[ru3000]

Самая главная фишка в автоматическом вводе пароля. Как с этим? Получилось?

[EducatedFool]

Private Sub UserForm_Click()
    With Me.MsRdpClient5NotSafeForScripting1
        .Height = 200: .Width = 400
        .Server = "СюдаПишем_IP_АдресСервера"
        .UserName = "СюдаПишемЛогин"
        .AdvancedSettings2.ClearTextPassword = "СюдаПишемПароль"
        .StartConnected = True
        .Connect
    End With
End Sub