Index: APPS/Computer/impl/RunningComputer.cls.xml
===================================================================
diff -u -r917 -r994
--- APPS/Computer/impl/RunningComputer.cls.xml	(.../RunningComputer.cls.xml)	(revision 917)
+++ APPS/Computer/impl/RunningComputer.cls.xml	(.../RunningComputer.cls.xml)	(revision 994)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 14:31:44">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 13:28:26">
 <Class name="APPS.Computer.impl.RunningComputer">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Computer.Computer</Super>
-<TimeChanged>62153,52372.346322</TimeChanged>
+<TimeChanged>62187,48512.592943</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ServerName">
@@ -18,7 +18,7 @@
 		Set Results = $ZF(-1,"Taskkill /S "_..ServerName_" /F /IM "_Process_" /T")
 		If (Results = 128)
 		{
-			Do ##class(vhLib.Logger).%New("Computer").Warning("Computer "_..ServerName_" stop failed","Kon het proces '"_Process_"' op optibox '"_..ServerName_"' niet afsluiten. Het process was niet opgestart. Exit code : "_Results)	
+			Do ##class(vhLib.Logger).%New("Computer").Info("Computer "_..ServerName_" stop failed","Kon het proces '"_Process_"' op optibox '"_..ServerName_"' niet afsluiten. Het process was niet opgestart. Exit code : "_Results)	
 		}ElseIf (Results '= 0)
 		{			
 			Do ##class(vhLib.Logger).%New("Computer").ErrorMail("Computer "_..ServerName_" stop failed","Kon het proces '"_Process_"' op optibox '"_..ServerName_"' niet afsluiten. Exit code : "_Results)
@@ -42,6 +42,36 @@
 		Quit Return
 ]]></Implementation>
 </Method>
+
+<Method name="SluitAf">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Return = $$$OK
+		Set Results = $ZF(-1,"shutdown -s -t 0 -c "_$c(34)_"Afsluiten door cache02"_$c(34)_" -f -m "_..ServerName)
+		If (Results '= 0)
+		{			
+			Do ##class(vhLib.Logger).%New("Computer").ErrorMail(..ServerName_" kon niet worden afgesloten",..ServerName_"' kon niet worden afgesloten. Exit code : "_Results)
+			Set Return = '$$$OK
+		}
+	Quit Return
+]]></Implementation>
+</Method>
+
+<Method name="Herstart">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Return = $$$OK
+		Set Results = $ZF(-1,"shutdown -r -t 0 -c "_$c(34)_"Herstart door cache02"_$c(34)_" -f -m "_..ServerName)
+		w "Herstart :",Results,!
+		If (Results '= 0)
+		{			
+			Do ##class(vhLib.Logger).%New("Computer").ErrorMail(..ServerName_" kon niet worden herstart",..ServerName_"' kon niet worden herstart Exit code : "_Results)
+			Set Return = '$$$OK
+		}
+	Quit Return
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2142877375"/>
+<Checksum value="591764243"/>
 </Export>