View Single Post
  #2  
Old October 16th 06, 06:16 PM posted to microsoft.public.outlook.program_forms
apextos
external usenet poster
 
Posts: 6
Default embed terminal server client in outlook form

It's not perfect but Works and will give you an idea.

Lets suppose that you have a command button with name property set to RDP


Sub RDP_Click()

Dim WSH_Shell, ServerIP, objEnv, SystemRoot

ServerIP = "192.168.10.10"
Set WSH_Shell = CreateObject("WScript.Shell")
Set objEnv = WSH_Shell.Environment("Process")
SystemRoot = objEnv("SYSTEMROOT")
Wsh_Shell.Run ( SystemRoot & "\system32\mstsc.exe /v:" & ServerIP )
Set WSH_Shell = Nothing

End Sub

Remarks.

ServerIP will be the Server you like to Connect.
SystemRoot is the path where the windows installed, ex. C:\Windows

mstsc.exe is the Terminal Server client, look for more parameter Info


================================================== ==


"Jay Tabatabai" wrote:

I have been tasked with creating an outlook form that will contain Microsoft
Terminal Services control. Where user can click on the command button on the
form to connect to a terminal server within inside the company network.
I have looked everywhere for a sample code, which I have not been able to
find.
I will appreciate if you can provide help with how can this request can be
implemented.

Ads