Index: VerpakkingsDefinitie/Agent.pas
===================================================================
diff -u -r533 -r545
--- VerpakkingsDefinitie/Agent.pas	(.../Agent.pas)	(revision 533)
+++ VerpakkingsDefinitie/Agent.pas	(.../Agent.pas)	(revision 545)
@@ -6,13 +6,10 @@
 TAgent = class
   private
     fServer: String;
-    fUserServerSoap = UserServerSoap;
-    fSessionKey: String;
-    function ComputerName: String;
-    function WUserName: String;
-
+    fUserServerSoap: UserServerSoap;
   public
     Constructor Create(); overload;
+    function GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
 end;
 implementation
 
@@ -26,4 +23,20 @@
     fNameSpace := 'admin1';
   fUserServerSoap := UserServerService.GetUserServerSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
   end;
+
+function TAgent.GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
+var
+  Request : PxStatus;
+  LogInObject :  PxLogin;
+  fTest : string;
+begin
+  Request := PxStatus.Create;
+  LogInObject := PxLogin.Create;
+  try
+    Result := fUserServerSoap.LogIn('vhintra', Gebruikersnaam, Wachtwoord, '1', LogInObject );
+    fTest := 'hoi'
+  finally
+
+  end;
+end;
 end.