Index: vhLib/TerminalDevice.cls.xml
===================================================================
diff -u -r3893 -r3916
--- vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3893)
+++ vhLib/TerminalDevice.cls.xml	(.../TerminalDevice.cls.xml)	(revision 3916)
@@ -12,7 +12,7 @@
 
 <Method name="GeefIctGebruikerInitialenVanIP">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>IP4Adres:%String,ValideerInitialen:%Boolean=1</FormalSpec>
+<FormalSpec>IP4Adres:%String,ValideerInitialen:%Boolean=1,ClientName:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim IP4Delen3en4 As %String = $piece(IP4Adres,".",3,4)
@@ -41,6 +41,10 @@
 		"1.43":"mcl",
 		"1.252":"jlm",
 		:"")
+		
+   If (GebruikerInitialen = "")  {
+	   Set GebruikerInitialen = ..GeefIctGebruikerInitialenVanToestel("|TNT|"_ClientName)
+   }
 	
    If (ValideerInitialen) && (GebruikerInitialen = "")  {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("GeefIctGebruikerInitialenVanIP is niet mogelijk. Definieer initialen voor IP '"_IP4Adres_"'.")
@@ -57,6 +61,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim result As %String = $$$TextBetween(Toestel,"|TNT|","_")
+	Do ##class(Tools.Wlip).%New(207).String("init from clientname?" _ ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam())
 	Set result = $Select(result["-":$Piece(result,"-",1),1:result)
 	If (result = "WS001") {
 		Set result = "ash"