Index: PlanScan/WS/Agent.pas
===================================================================
diff -u -r259 -r284
--- PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 259)
+++ PlanScan/WS/Agent.pas	(.../Agent.pas)	(revision 284)
@@ -16,6 +16,7 @@
     function FullName: String;
     function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse;
     function GebruikerAfmelden(): boolean;
+    function ZoekAlleGebruikers(): ZoekGebruikersResponse;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
     function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
     function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse;
@@ -116,6 +117,27 @@
   end;
 end;
 
+function TAgent.ZoekAlleGebruikers: ZoekGebruikersResponse;
+var
+  Service: GebruikerServiceSoap;
+  Request: ZoekGebruikersRequest;
+  Header: RequestHeader;
+begin
+  Service := GebruikerService.GetGebruikerServiceSoap();
+
+  Request := ZoekGebruikersRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+
+    Result := Service.ZoekGebruikers(Request);
+
+  finally
+    Request.Free;
+  end;
+end;
+
 function TAgent.GeefVolgendeTbpCode: GeefVolgendeTbpCodeResponse;
 var
   Service: DnaCodeServiceSoap;