Index: UI/Utils/MAppLauncher/MainForm.cls.xml
===================================================================
diff -u -r1499 -r1926
--- UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1499)
+++ UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1926)
@@ -977,7 +977,7 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
-#define CacheIP      $system.Server.IPAddresses("")
+#define CacheIP      $P($system.Server.IPAddresses(""),",",1)
 #define CacheNSpc    $ZU(5)
 
  Quit ..#MakovaPath_" -a"_$$$CacheIP_" -p7200 -n"_$$$CacheNSpc_" -uCUSR -wCUSR -fUI.Utils.MAppLauncher.MainForm"
Index: vhLib.mac.rou
===================================================================
diff -u -r1523 -r1926
--- vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 1523)
+++ vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 1926)
@@ -1195,10 +1195,16 @@
  
 GetClientIP()
     new IP
-	if ($D(MApplication)) { Set IP = MApplication.GetClientIP() }
- 	elseif ($IsObject($G(%request)))&&(%request.%IsA("%CSP.Request")) 
- 	 { Set IP=$G(%request.CgiEnvs("REMOTE_ADDR")) }
- 	else { set IP = $$GetIPFromTerminalSessie }
+	if ($D(MApplication)) { 
+		Set IP = MApplication.GetClientIP() 
+	}
+ 	elseif ($IsObject($G(%request)))&&(%request.%IsA("%CSP.Request")) { 
+ 		Set IP=$G(%request.CgiEnvs("REMOTE_ADDR")) 
+ 	}
+ 	else { 
+ 		Set IP = $$GetIPFromTerminalSessie
+ 		Set:(IP="") IP=##class(%SYSTEM.Process).%OpenId($JOB).ClientIPAddressGet()   ; Added by WimV on 30/08/2011   --> voor factory-connection 
+ 	}
  	quit IP