Index: TECH/Cmd/impl/CmdAPI.cls.xml
===================================================================
diff -u
--- TECH/Cmd/impl/CmdAPI.cls.xml	(revision 0)
+++ TECH/Cmd/impl/CmdAPI.cls.xml	(revision 1366)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.impl.CmdAPI">
+<Super>TECH.Cmd.CmdAPI,TECH.RegisteredObject</Super>
+
+<Method name="GeefCommandExecuter">
+<ReturnType>TECH.Cmd.CommandExecuter</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Cmd.impl.CommandExecuter).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Context.cls.xml
===================================================================
diff -u -r1092 -r1366
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1092)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1366)
@@ -62,6 +62,11 @@
 <Default>BackgroundJobAPI</Default>
 </Parameter>
 
+<Parameter name="CmdAPI">
+<Type>%String</Type>
+<Default>CmdAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -232,10 +237,29 @@
 </Method>
 
 <Method name="PopBackgroundJobAPIClassName">
-<Implementation><![CDATA[	Do ..PopAPINaam(..#BackgroundJobAPI)
+<Implementation><![CDATA[
+ 
+	Do ..PopAPINaam(..#BackgroundJobAPI)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCmdAPI">
+<ReturnType>TECH.Cmd.CmdAPI</ReturnType>
+<Implementation><![CDATA[	quit ..GeefAPIObject(..#CmdAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushCmdAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#CmdAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopCmdAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#CmdAPI)
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Set APINamenIterator = ##class(TECH.ListIterator).%New(..APINamen)
@@ -256,6 +280,7 @@
 	Do ..PushPubSubAPIClassName(##class(TECH.PubSub.impl.PubSubAPI).%ClassName(1))
 	Do ..PushSystemAPIClassName(##class(TECH.System.impl.SystemAPI).%ClassName(1))
 	Do ..PushBackgroundJobAPIClassName(##class(TECH.Background.impl.BackgroundJobAPI).%ClassName(1))
+	Do ..PushCmdAPIClassName(##class(TECH.Cmd.impl.CmdAPI).%ClassName(1))
 ]]></Implementation>
 </Method>
 
Index: TECH/Cmd/impl/CommandExecuter.cls.xml
===================================================================
diff -u
--- TECH/Cmd/impl/CommandExecuter.cls.xml	(revision 0)
+++ TECH/Cmd/impl/CommandExecuter.cls.xml	(revision 1366)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.impl.CommandExecuter">
+<Super>TECH.Cmd.CommandExecuter,TECH.RegisteredObject</Super>
+
+<Method name="Execute">
+<FormalSpec>Command:TECH.Cmd.Command,ServerName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGoedUitgevoerd As %Boolean = 1
+	#dim UitTeVoerenCommand As %String = Command.GeefCommand()
+	Set UitTeVoerenCommand = ..VervangServerName(UitTeVoerenCommand,ServerName)
+	#dim WachtOpKindProcess As %String = ..GeefWachtOpKindProcess(Command)
+	Do ##class(vhLib.Logger).%New("Computer").Info(Command.%ClassName(1),"Begin: "_$C(13,10)_UitTeVoerenCommand)
+	#dim Results As %String = $ZF(WachtOpKindProcess,UitTeVoerenCommand)
+	If (Results '= 0)
+	{			
+		#dim FoutOnderwerp As %String = ..VervangServerName(Command.GeefFoutOnderwerp(),ServerName)
+		#dim FoutMelding As %String = ..VervangServerName(Command.GeefFoutmelding(),ServerName)
+		Set FoutMelding = FoutMelding_$C(13,10)_"Uitgevoerd commando : "_UitTeVoerenCommand
+		Set FoutMelding = FoutMelding_$C(13,10)_"Exit code : "_Results		
+		Do ##class(vhLib.Logger).%New("Computer").ErrorMail(FoutOnderwerp,FoutMelding)
+		
+		Set IsGoedUitgevoerd = 0
+	}Else{
+		Do ##class(vhLib.Logger).%New("Computer").Info(Command.%ClassName(1),"Einde: "_$C(13,10)_UitTeVoerenCommand)	
+	}
+	Quit IsGoedUitgevoerd
+]]></Implementation>
+</Method>
+
+<Method name="GeefWachtOpKindProcess">
+<FormalSpec>Command:TECH.Cmd.Command</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim WachtOpKindProcess As %String
+	If Command.VoerUitInline() {
+		Set WachtOpKindProcess = -1
+	}Else{
+		Set WachtOpKindProcess = -2
+	}	
+	Quit WachtOpKindProcess
+]]></Implementation>
+</Method>
+
+<Method name="VervangServerName">
+<FormalSpec>Tekst:%String,ServerName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Replace(Tekst,"[ServerName]",ServerName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Cmd/CmdAPI.cls.xml
===================================================================
diff -u
--- TECH/Cmd/CmdAPI.cls.xml	(revision 0)
+++ TECH/Cmd/CmdAPI.cls.xml	(revision 1366)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.CmdAPI">
+<Super>TECH.Interface</Super>
+
+<Method name="GeefCommandExecuter">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Cmd.CommandExecuter</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Cmd/Commands/PSExec.cls.xml
===================================================================
diff -u
--- TECH/Cmd/Commands/PSExec.cls.xml	(revision 0)
+++ TECH/Cmd/Commands/PSExec.cls.xml	(revision 1366)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.Commands.PSExec">
+<Super>TECH.Cmd.Command,TECH.RegisteredObject</Super>
+
+<Property name="UitTeVoerenProcess">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetUitTeVoerenProcess">
+<FormalSpec>UitTeVoerenProcess:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..UitTeVoerenProcess = UitTeVoerenProcess
+]]></Implementation>
+</Method>
+
+<Method name="GeefCommand">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "psexec  \\[ServerName] -d -i "_..UitTeVoerenProcess
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutOnderwerp">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Proces "_..UitTeVoerenProcess_" op [ServerName] kon niet worden gestart."
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutmelding">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Kon het proces '"_..UitTeVoerenProcess_"' op '[ServerName]' niet opstarten."
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitInline">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Cmd/CommandExecuter.cls.xml
===================================================================
diff -u
--- TECH/Cmd/CommandExecuter.cls.xml	(revision 0)
+++ TECH/Cmd/CommandExecuter.cls.xml	(revision 1366)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.CommandExecuter">
+<Super>TECH.Interface</Super>
+
+<Method name="Execute">
+<Abstract>1</Abstract>
+<FormalSpec>Command:TECH.Cmd.Command,ServerName:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Cmd/Command.cls.xml
===================================================================
diff -u
--- TECH/Cmd/Command.cls.xml	(revision 0)
+++ TECH/Cmd/Command.cls.xml	(revision 1366)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.Command">
+<Super>TECH.Interface</Super>
+
+<Method name="GeefCommand">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefFoutOnderwerp">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefFoutmelding">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="VoerUitInline">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Cmd/Commands/Shutdown.cls.xml
===================================================================
diff -u
--- TECH/Cmd/Commands/Shutdown.cls.xml	(revision 0)
+++ TECH/Cmd/Commands/Shutdown.cls.xml	(revision 1366)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.Commands.Shutdown">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>TECH.Cmd.Command,TECH.RegisteredObject</Super>
+
+<Parameter name="ShutdownType">
+<Type>%String</Type>
+<Default>-s</Default>
+</Parameter>
+
+<Method name="GeefCommand">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OpdrachtGevendeServerName As %String = ##class(TECH.Context).Instance().GeefSystemAPI().GeefServerNaam()
+	Quit "shutdown "_..#ShutdownType_" -t 0 -c "_$c(34)_"Afsluiten door "_OpdrachtGevendeServerName_$c(34)_" -f -m [ServerName]"
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutOnderwerp">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "[ServerName] kon niet worden afgesloten"
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutmelding">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "'[ServerName]' kon niet worden afgesloten."
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitInline">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Cmd/Commands/Restart.cls.xml
===================================================================
diff -u
--- TECH/Cmd/Commands/Restart.cls.xml	(revision 0)
+++ TECH/Cmd/Commands/Restart.cls.xml	(revision 1366)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Cmd.Commands.Restart">
+<Super>TECH.Cmd.Commands.Shutdown</Super>
+
+<Parameter name="ShutdownType">
+<Type>%String</Type>
+<Default>-r</Default>
+</Parameter>
+
+<Method name="GeefFoutOnderwerp">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "[ServerName] kon niet worden herstart"
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutmelding">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "'[ServerName]' kon niet worden herstart."
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitInline">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>