Index: APPS/CHUI/NativeCommandoService.cls.xml
===================================================================
diff -u -r74593 -r74620
--- APPS/CHUI/NativeCommandoService.cls.xml	(.../NativeCommandoService.cls.xml)	(revision 74593)
+++ APPS/CHUI/NativeCommandoService.cls.xml	(.../NativeCommandoService.cls.xml)	(revision 74620)
@@ -103,28 +103,33 @@
 	#dim Antwoord as %String =""
 	Use 0:(:/ECHO=0)
 	Write "ReflectionGetRDPClientName"
-	Read Antwoord:1
+	Read Antwoord:3
 	Use 0:(:/ECHO=1)
 	If $$$Not($$$HasLength(Antwoord)){
-		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPClientName", "VBA code en/of events (RDPClientName) out of date voor reflection ("_$io_")")
-		Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
+		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPClientName", "VBA code en/of events (RDPClientName) waarschijnlijk out of date voor reflection of timeout ("_$io_")")
+		;Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
+		Do ##class(Tools.Wlip).%New(207).String("Reflection terminal emulatie : VBA code en/of events out of date voor reflection ("_$io_")")
 	}	
+	Do ##class(Tools.Wlip).%New(207).String("ReflectionRDPClientName vanop " _Antwoord_ "(" _ $io _ ")")
 	Quit Antwoord
 ]]></Implementation>
 </Method>
 
 <Method name="ReflectionRDPUserName">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(207).String("koekoe")
 	#dim Antwoord as %String =""
 	Use 0:(:/ECHO=0)
 	Write "ReflectionGetUsername"
-	Read Antwoord:2
+	Read Antwoord:3
 	Use 0:(:/ECHO=1)
 	If $$$Not($$$HasLength(Antwoord)){
-		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPUserName", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
-		Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
+		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPUserName", "VBA code en/of events (RDPUserName waarschijnlijk out of date voor reflection of timeout ("_$io_")")
+		;Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
+		Do ##class(Tools.Wlip).%New(207).String("Reflection terminal emulatie : VBA code en/of events out of date voor reflection ("_$io_")")
 	}	
+	Do ##class(Tools.Wlip).%New(207).String("ReflectionRDPUsernameName " _Antwoord_ "(" _ $io _ ")")
 	Quit Antwoord
 ]]></Implementation>
 </Method>
@@ -142,12 +147,16 @@
 	#dim Antwoord as %String = ""
 	Use 0:(:/ECHO=0)
 	Write "ReflectionGetComputerName "
-	Read Antwoord:1
+	Read Antwoord:3
 	Use 0:(:/ECHO=1)
 	If $$$Not($$$HasLength(Antwoord)){
-		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionComputerName","VBA code en/of events (ReflectionComputerName out of date voor reflection ("_$io_")")
-		Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (ReflectionComputerName) out of date voor reflection ("_$io_")")
+		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionComputerName","VBA code en/of events (ComputerName) out of date voor reflection of timeout ("_$io_")")
+		;Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (ReflectionComputerName) out of date voor reflection ("_$io_")")
+		Do ##class(Tools.Wlip).%New(207).String("Reflection terminal emulatie : VBA code en/of events out of date voor reflection ("_$io_")")
 	}
+	Do ##class(Tools.Wlip).%New(207).String("ReflectionComputerName " _Antwoord_ "(" _ $io _ ")")
+
+	
 	Quit Antwoord
 ]]></Implementation>
 </Method>