Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r3762 -r3817
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 3762)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 3817)
@@ -226,12 +226,32 @@
 			
 			Set:("" = ..ComputerNaam) ..ComputerNaam = ##class(TECH.Process).GeefClientHostName()
 		}
+		
+		Do ..CheckAndFixUnresolvedComputerNaamBijVpnConnectie(CHUIActief)
+		
 	}
 	if $$$UCase(..ComputerNaam)="LOCALHOST" set ..ComputerNaam=$$$Server_".vanhoecke.be"
 	Quit ..ComputerNaam
 ]]></Implementation>
 </Method>
 
+<Method name="CheckAndFixUnresolvedComputerNaamBijVpnConnectie">
+<FormalSpec>CHUIActief:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SubNetVoorVpn As %String = "192.168.21."
+	#dim IsComputerNaamUnresolvedBijVpnConnectie As %Boolean = (##class(TECH.StringUtils).StartsWith(..ComputerNaam, SubNetVoorVpn)) && ($Extract($IO,1,5) = "|TNT|")
+	
+	If IsComputerNaamUnresolvedBijVpnConnectie {
+		// Bij Reflection Admin terminal kan de ComputerNaam niet ge-resolved worden wanneer het IP-adres van een VPN-verbinding komt. Daarom deze work-around : 
+		#dim ReflectionVbaComputerName as %String = ..ShellExecuteDirectAndRead("GETCOMPUTERNAME","","",CHUIActief)
+		If $$$HasLength(ReflectionVbaComputerName) {
+			Set ..ComputerNaam = ReflectionVbaComputerName
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefServerNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $$$Server