Active Directory Benutzer anlegen

[marabu]

Hi,

versuche es mal so:

Delphi-Quellcode:

function DomainToDN(const s: string): string;
var
  i: Integer;
begin
  with TStringList.Create do
  try
    Delimiter := '.';
    DelimitedText := s;
    for i := 0 to Pred(Count) do
      Strings[i] := 'dc=' + Strings[i];
    Delimiter := ',';
    Result := DelimitedText;
  finally
    Free;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu