embed terminal server client in outlook form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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


====================================================
 
WOW! This is awesome!

apextos said:
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


====================================================
Click to expand...
 
Back
Top