VBA remote desktop connection mstscax

[djw]

I would like to setup a remote desktop connection using vba on a
client machine from which I would need to execute a few command such
as opening a program etc. on the server.

I have some limited VBA experience but I have no Idea on how to get
this to work correctly

I referenced in the mstscax.dll and can see that the MSTSCLib object
has a server and connect method. If I do something such as

Dim X As MsRdpClient
Set X = New MsRdpClient
X.Server = ip_address
X.Connect

Nothing happens. Also, how would I start a program once connected,
could I use the OnConnected event? Is there anyway to send a file to
the remote system, or send a paste command to the opened program?

Is there anyway to get SendKeys to work with Remote Desktop Session?

Thanks,
David

 

[djw]

What I want to do is essentially shown here:

http://vbcity.com/forums/topic.asp?tid=152751

but I cannot seem to get it to work. Is there something different
between vb6 and VBA that would make this not work in VBA?

Thanks,
David

 

[djw]

After learning a bit of C# and implementing it in that, I realized all
I needed to do was to create a form in Access and add the "Microsoft
RDP Client Control (redist)" to the form. After it is on the form you
can get at the properties and execute the connect procedure. I guess
you cannot just create a MsRdpClient in VBA without it residing on a
form.

Now is there anyway to interact with programs running within the RDP
ActiveX box? I know I can start a program and pass a command line
procedure to the program. Is this the limit on interacting with the
programs in the RDP environment? Is there some way to pass values
back and forth?

Thanks,
David

 

[djw]

It looks like to send info to the server I would need to
CreateVirtualChannels(ChannelName) and then use SendOnVirtualChannel
(ChannelName, DataToSend).

However, I cannot figure out how to receive this data on the server.
It seems like a C# program might be required. Is there some way to do
this in VBA, by including the wtsapi32.dll such as the following:

Private Declare Function WTSVirtualChannelOpen Lib "wtsapi32" (hServer
As String, ByVal sessionid As Integer, chan_name As String) ???

This is way beyond my VBA capabilities . . .