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

[ru3000]

О, круто!
Если не трудно, выложите, пожалуйста, файл с готовым вариантом, т.к. я не дружу с activex, а уже с готовым вариантом будет легче освоиться.

[ru3000]

Я вставил вашу последнюю формулу в VB. Но при запуске выдает ошибку. Посмотрите, пожалуйста, в чем дело.

[EducatedFool]

Попробуйте такой вариант:



Нажимаете на кнопку Connect, и ждёте несколько секунд.

PS: При запуске файла появляется сообщение о том, что используемые элементы управления могут быть небезопасны.
Как избавиться от этого сообщения, можно почитать здесь.

И не забудьте сменить пароль на сервере

[ru3000]

Спасибо.
Бывает
Надеюсь на вашу порядочность.

Попрошу вас удалить последнее вложение!!!

[ru3000]

Кстати. Я записал в макрос процесс создания activex на рабочем листе.

Sub Macros1()
    ActiveSheet.OLEObjects.Add(ClassType:="MsTscAx.MsTscAx.2", Link:=False, _
        DisplayAsIcon:=False, Left:=45.75, Top:=14.25, Width:=600, Height:= _
        350).Select
End Sub

Как его увязать с вашим кодом?

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

[ru3000]

Кстати, Disconnect просто обрывает подключение. А возможно ли сделать, чтобы при закрытии окна RDP или самой книги, удаленный сеанс завершался? И насколько это трудно?

[ru3000]

Помогите увязать эти два кода. Если это возможно конечно.

Sub Macros1()
    ActiveSheet.OLEObjects.Add(ClassType:="MsTscAx.MsTscAx.2", Link:=False, _
        DisplayAsIcon:=False, Left:=45.75, Top:=14.25, Width:=600, Height:= _
        350).Select
End Sub

Private Sub MsRdpClient5NotSafeForScripting1_OnConnecting()

End Sub

Private Sub _____()
Server = [A1]
UserName = [A2]
Password = [A3]
    With Me.MsRdpClient5NotSafeForScripting1
        .Height = 480: .Width = 640
        .Server = Server
        .UserName = UserName
        .AdvancedSettings2.ClearTextPassword = Password
        .StartConnected = True
    End With
End Sub

[EducatedFool]

Попробуйте так:

Dim RDP As Object

Sub СначалаЗапускаемЭтотМакрос()
    Set RDP = ActiveSheet.OLEObjects.Add(ClassType:="MsTscAx.MsTscAx.2", Link:=False, _
                                         DisplayAsIcon:=False, Left:=45.75, Top:=14.25, Width:=600, Height:=350)
End Sub


Private Sub Соединение()
    Server = [A1]: UserName = [A2]: Password = [A3]
    With RDP
        .Height = 480: .Width = 640
        .Server = Server: .UserName = UserName
        .AdvancedSettings2.ClearTextPassword = Password
        .StartConnected = True
    End With
End Sub

Код не проверял.
Если не будет работать, попробуйте заменить With RDP на With RDP.object

[ru3000]

Неа. Не работает. Ни с With RDP, ни с With RDP.object
ActiveX создается, но подключения не происходит.

[EducatedFool]

Извиняюсь, не проверил Ваш код...

Private Sub Соединение()
    Server = [A1]: UserName = [a2]: Password = [A3]
    With RDP
        .Height = 480: .Width = 640
        .Server = Server: .UserName = UserName
        .AdvancedSettings2.ClearTextPassword = Password
        .StartConnected = True
        .Connect
    End With
End Sub