Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r318 -r323
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 318)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 323)
@@ -112,6 +112,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="ClientAdres">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Property name="ProgLabel">
 <Description>
 Stack level in case of errors</Description>
@@ -247,6 +252,11 @@
 	set ..GebruikerID = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
 	set ..Gebruiker = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
 	set ..SessionID = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
+	If ..SessionID '= "" {
+		Try{
+			Set ..ClientAdres = ##class(APPS.algemeen.VhintraShell.SessionService).%New().GeefClientAdresVoorSessieSleutel(..SessionID)
+		}Catch(E){}
+	}
 
 	if $IsObject(Detail) { set ..Info = Detail }
 	else  {	
@@ -256,7 +266,8 @@
 	Set ..ProgLabel = $G(ProgLabel)
 	
 	if ($IsObject($get(%request)))&&(%request.%IsA("%CSP.Request")) {
- 	 set ..RemoteIP =%request.GetCgiEnv("REMOTE_ADDR")
+		Set Request = ##class(TECH.CSP.Request).%New(%request)
+ 	 	Set ..RemoteIP = Request.GeefClientAdres()
 	}
 	
 	Quit
@@ -425,6 +436,9 @@
 <Value name="16">
 <Value>SessionID</Value>
 </Value>
+<Value name="17">
+<Value>ClientAdres</Value>
+</Value>
 </Data>
 </Storage>
 </Class>