Index: vhPowerTools/TECH/CacheProces.cls.xml
===================================================================
diff -u -r41292 -r41348
--- vhPowerTools/TECH/CacheProces.cls.xml	(.../CacheProces.cls.xml)	(revision 41292)
+++ vhPowerTools/TECH/CacheProces.cls.xml	(.../CacheProces.cls.xml)	(revision 41348)
@@ -12,12 +12,26 @@
 	#dim ProcessIdIterator As TECH.Iterator = ##class(TECH.ArrayOneDimIterator).%New(.ProcessIDs)
 	While (ProcessIdIterator.HasNext()) {
 		#dim ProcessID As %String = ProcessIdIterator.Next()
-		Write !,"Process "_ProcessID_" -  "
+		Write !,"Process "_$J(ProcessID,6)_" -  "
+		Write ..GeefProcessInfo(ProcessID)
 	 	Do ..KillCacheProcess(ProcessID)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProcessInfo">
+<Description>
+d ##class(vhPowerTools.TECH.CacheProces).%New().GeefProcessInfo(PID)</Description>
+<FormalSpec>ProcessID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = ""
+	#dim cProcess As %SYS.ProcessQuery = ##CLASS(%SYS.ProcessQuery).Open(ProcessID,,.sc)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Unable to open Info for ProcessId ''.")
+	Quit $J(cProcess.ClientIPAddress,16)_$$$TAB_##class(TECH.StringUtils).AddTrailingSpace(cProcess.PrincipalDevice,45)_$$$TAB_$J(cProcess.State,5)_$$$TAB_cProcess.CurrentLineAndRoutine
+]]></Implementation>
+</Method>
+
 <Method name="KillCacheProcess">
 <Description>
 d ##class(vhPowerTools.TECH.CacheProces).%New().KillCacheProcess(PID)</Description>
@@ -26,24 +40,6 @@
 <Implementation><![CDATA[
  	#dim Result As %Integer = $ZUTIL(4,ProcessID)
 	Do ..GeefResultInfo(Result,ProcessID)
-	
- /*	
-	// Implementatie via class "SYS.Process" 
-	
-	#dim CurrentNamespace As %String = $$$NSpace
-	zn "%SYS"
-	Set cProcess = ##CLASS(SYS.Process).%OpenId(ProcessID)
- 	If $IsObject(cProcess) {
- 		#dim Result As %Integer = cProcess.Terminate()
- 	}
- 	Else {
-	 	Set Result = -3
-	}
-	
-	Do ..GeefResultInfo(Result,ProcessID)
-	
-	zn CurrentNamespace	
-*/
 ]]></Implementation>
 </Method>