unit Agent;

interface
uses UserServerService;
type
TAgent = class
  private
    fServer: String;
    fUserServerSoap = UserServerSoap;
    fSessionKey: String;
    function ComputerName: String;
    function WUserName: String;

  public
    Constructor Create(); overload;
end;
implementation

constructor TAgent.Create();
var
  fNamespace: string;
begin
  fServer := 'cachedevut2010';
  fNameSpace := 'dev1';
  if fServer = 'cache01' then
    fNameSpace := 'admin1';
  fUserServerSoap := UserServerService.GetUserServerSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
  end;
end.