Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r297 -r298
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 297)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 298)
@@ -15,7 +15,7 @@
     function ComputerName: String;
     function WUserName: String;
   public
-    Constructor Create(UiContext: TUiContext; Server: string = 'tve-w10'); overload;
+    Constructor Create(UiContext: TUiContext); overload;
     function FullName: String;
     function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse;
     function GebruikerAfmelden(Initialen, LoginCode: string): boolean;
@@ -40,12 +40,12 @@
 
 { TAgent }
 
-constructor TAgent.Create(UiContext: TUiContext; Server: string = 'tve-w10');
+constructor TAgent.Create(UiContext: TUiContext);
 var
   fNamespace: string;
 begin
   fUiContext := UiContext;
-  fServer := Server;
+  fServer := UiContext.ServerName;
   fNameSpace := 'dev1';
   if fServer = 'cache01' then
     fNameSpace := 'admin1';