Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r3707 -r3715
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 3707)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 3715)
@@ -161,6 +161,7 @@
 <Description>
 Werkt wanneer oproep via webservice of telnet binnenkomt binnen het netwerk.
 Oproepen van buiten het netwerk kunnen mogelijks problemen opleveren.</Description>
+<FormalSpec>CHUIActief:%Boolean=$$$True</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If (..ComputerNaam = "")
@@ -186,6 +187,14 @@
 				Else
 				{
 					Set ..ComputerNaam = DeviceID
+					if $ListFind(##class(TECH.Config.ConfigMgr).Instance().GetString("TerminalServers",""),$zcvt($p(..ComputerNaam,"."),"U")) {
+						#dim RemoteDesktopClient as %String = ..ShellExecuteDirectAndRead("GETRDPCLIENTNAME","","",CHUIActief)
+						If $$$HasLength(RemoteDesktopClient){
+							 Set ..ComputerNaam = RemoteDesktopClient
+						} else {
+							Do ##class(vhLib.Logger).%New().ErrorMail("Reflection terminal emulatie", "VBA code en/of events out of date")
+						}
+					}
 				}
 			}
 		}
@@ -217,7 +226,6 @@
 			Set:("" = ..ComputerNaam) ..ComputerNaam = ##class(TECH.Process).GeefClientHostName()
 		}
 	}
-	
 	if $zcvt(..ComputerNaam,"U")="LOCALHOST" set ..ComputerNaam=$$$Server_".vanhoecke.be"
 	Quit ..ComputerNaam
 ]]></Implementation>
@@ -246,6 +254,38 @@
 <Implementation><![CDATA[	quit ..Applicatie
 ]]></Implementation>
 </Method>
+
+<Method name="ShellExecuteDirectAndRead">
+<FormalSpec>Actie:%String,Executable:%String,Parameter:%String,CHUIActief:%Boolean=$$$True</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set K=""
+	Set Url=Parameter
+	Do:CHUIActief STORE^vhTERMINA()
+	Set Url1=$E(Url,1,80)
+	Set Url2=$E(Url,81,999)
+	Set FP=1801
+	Write @F,@F1
+	Set FP=2007
+	Write @F,Actie
+	Set FP=2101
+	Write @F
+	Write Executable
+	Set FP=2201
+	Write @F
+	Write Url1
+	Set FP=2301
+	Write @F
+	Write Url2
+	Set FP=2001
+	Write @F,"VBA:\\"
+	Read K:1
+	Do:CHUIActief REFRESH^vhTERMINA()
+	Quit K
+]]></Implementation>
+</Method>
 </Class>