With the help of all the information from over here and at Obviex, I’ve managed to write my own ‘login to Remote Desktop automatically from the command line’ utility, with some extra features. I wrote it for myself, but maybe other people will alsof find it useful. If anybody is interested, it can be found at http://www.donkz.nl/?p=58.

I am searching java based application for the same.

please help me..

I am using an intranet link to startup an RDP (stored on a network drive) using a batch file. I would like to start the RDP without creating it on the users desktop.

I do not mind if the users know the password, I am just trying to eliminate the need for them to enter it when starting the RDP.

Can I somehow use this solution to program the batch file to open the RDP and automatically add in the password for the specific user?

Thanks

Im trying to do this in VB6, but Im not getting a valid result. Can someone tell me where I am going wrong.

Email me on thompsdc AT gmail DOT com

Here is the code I’ve done…
———————————————————————
Option Explicit

Private Type DATA_BLOB
cbData As Long
pbData As Long
End Type

Private Declare Sub CopyMemory Lib “kernel32″ Alias “RtlMoveMemory” ( _
hpvDest As Any, _
hpvSource As Any, _
ByVal cbCopy As Long)

Private Declare Function CryptProtectData Lib “crypt32.dll” ( _
ByRef pDataIn As DATA_BLOB, _
ByVal szDataDescr As String, _
ByRef pOptionalEntropy As Any, _
ByRef pvReserved As Any, _
ByRef pPromptStruct As Any, _
ByVal dwFlags As Long, _
ByRef pDataOut As DATA_BLOB) As Long

Public Function CryptRDPPassword(spPassword As String) As String
Dim aDataIn() As Byte
Dim udtDataIn As DATA_BLOB
Dim r As Long
Dim udtDataOut As DATA_BLOB
Dim aDataOut() As Byte
Dim s$, i&

aDataIn = StrConv(spPassword, vbUnicode)
udtDataIn.cbData = UBound(aDataIn) + 1
udtDataIn.pbData = VarPtr(aDataIn(0))

‘StrConv(“psw”, vbUnicode),
r = CryptProtectData(udtDataIn, _
“psw”, _
ByVal vbNullString, _
ByVal vbNullString, _
ByVal vbNullString, _
0, _
udtDataOut)

If r Then
ReDim Preserve aDataOut(udtDataOut.cbData)
CopyMemory aDataOut(0), ByVal udtDataOut.pbData, udtDataOut.cbData

s = “”
For i = 0 To udtDataOut.cbData – 1
s = s & Format(Hex(aDataOut(i)), “00″)
Next
CryptRDPPassword = s
Else
CryptRDPPassword = “Nothing”
End If
End Function