Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r2875 -r2878
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 2875)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 2878)
@@ -217,43 +217,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefComputerNaamViaIP">
-<FormalSpec>IP:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ComputerNaam As %String = ""
-	If (IP '= "")
-	{
-		Set FileName="PING"_$J_$$UPTRIMAN^vhRtn1(IP)
-		Set Exec="NSLOOKUP "_IP_" > c:\"_FileName  // ping vervangen door nslookup 
-		Set Ok=$ZF(-1,"NSLOOKUP "_IP_" > c:\"_FileName)
-		
-		Set Stream=##class(%FileCharacterStream).%New()
-		Set Stream.Filename="c:\"_FileName
-		
-		Do Stream.ReadLine()
-		Do Stream.ReadLine()
-		Do Stream.ReadLine()
-		Set ComputerNaamOutput = Stream.ReadLine()
-		
-		Set PiecesIterator = ##class(TECH.PiecesIterator).%New(ComputerNaamOutput," ")
-		While (PiecesIterator.HasNext())
-		{
-			Set ComputerNaam = PiecesIterator.Next()
-		}
-		
-		Set Stream = ""
-					
-		Do ##class(%File).Delete("c:\"_FileName)
-		
-		Set:("" = ComputerNaam) ComputerNaam = ##class(TECH.Process).GeefClientHostName()
-	}
-	
-	if $zcvt(ComputerNaam,"U")="LOCALHOST" set ComputerNaam=$$$Server_".vanhoecke.be"
-	Quit ComputerNaam
-]]></Implementation>
-</Method>
-
 <Method name="GeefServerNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $$$Server
Index: TECH/SystemInformation.cls.xml
===================================================================
diff -u
--- TECH/SystemInformation.cls.xml	(revision 0)
+++ TECH/SystemInformation.cls.xml	(revision 2878)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.SystemInformation">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefComputerNaamViaIP">
+<FormalSpec>IP:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ComputerNaam As %String = ""
+	If (IP '= "")
+	{
+		Set FileName="PING"_$J_$$UPTRIMAN^vhRtn1(IP)
+		Set Exec="NSLOOKUP "_IP_" > c:\"_FileName  // ping vervangen door nslookup 
+		Set Ok=$ZF(-1,"NSLOOKUP "_IP_" > c:\"_FileName)
+		
+		Set Stream=##class(%FileCharacterStream).%New()
+		Set Stream.Filename="c:\"_FileName
+		
+		Do Stream.ReadLine()
+		Do Stream.ReadLine()
+		Do Stream.ReadLine()
+		Set ComputerNaamOutput = Stream.ReadLine()
+		
+		Set PiecesIterator = ##class(TECH.PiecesIterator).%New(ComputerNaamOutput," ")
+		While (PiecesIterator.HasNext())
+		{
+			Set ComputerNaam = PiecesIterator.Next()
+		}
+		
+		Set Stream = ""
+					
+		Do ##class(%File).Delete("c:\"_FileName)
+		
+		Set:("" = ComputerNaam) ComputerNaam = ##class(TECH.Process).GeefClientHostName()
+	}
+	
+	if $zcvt(ComputerNaam,"U")="LOCALHOST" set ComputerNaam=$$$Server_".vanhoecke.be"
+	Quit ComputerNaam
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>