Copy from RDP (remote desktop) to local desktop

amitbhatia

New Member
Joined
Apr 26, 2018
Messages
2
I am able to reach the remote desktop, but unable to find path to the file on remote desktop to copy the file from remote to my local desktop. Please help. This is what i have so far:

Sub Connect()


Dim retval As Variant
Dim myid, mypw As String




myid = InputBox("Enter Mednet ID", "MEDNET ID", "MEDNET")
mypw = InputBox("Enter Mednet Password", "MEDNET Password")




Set ie = Nothing
cnt = 0
Set sh = CreateObject("shell.application")
cnt = sh.Windows.Count


retval = Shell("cmdkey /generic:TERMSRV/vh1.mednet.local /user:" & myid & " /password:" & mypw)


ie = Shell("C:\windows\system32\mstsc.exe /admin /v:" & "remotename", vbMaximizedFocus)


Set ie = sh.Windows(sh.Windows.Count - 1)




End Sub
 

Forum statistics

Threads
1,078,273
Messages
5,339,190
Members
399,288
Latest member
ossa

Some videos you may like

This Week's Hot Topics

Top