Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: AD member, memberOf

    Delphi
    by cherry, 28. Jan 2009
  Und du hast natürlich recht! Funktioniert nun prima!
  Hier mein Code:
  
  procedure TForm1.ListMemberOfTR(strGroup: String; list: TStringList);
  procedure getMem(obj,strPath:String);
  var
  i:Integer;
  arrVar: Array of variant;
  arrDis: Array of variant;
  strTxt,strSearch: String;
• Forum: Object-Pascal / Delphi-Language

  Re: AD member, memberOf

    Delphi
    by cherry, 27. Jan 2009
  So, ich hab noch etwas gefunden und angepasst:
  
  
  if Not rs.EOF then
  begin
  try
  arrVar := rs.Fields.Value;
  except
  SetLength(arrVar,0);
  end;
• Forum: Object-Pascal / Delphi-Language

  Re: AD member, memberOf

    Delphi
    by cherry, 27. Jan 2009
  Wieso denn das? es funktioniert ja sowieso nicht bis jetzt!
  
  
  
  "GetMem" ist im oben geposteten Code in der Procedure "ListMemberOfTR" eingebettet!
  
  
  Kommt schon Leute, das hat doch schon mal einer gemacht von euch?! Bitte wenigstens einen Tipp?! :wall:
• Forum: Object-Pascal / Delphi-Language

  Re: AD member, memberOf

    Delphi
    by cherry, 27. Jan 2009
  Ich habs mal noch ein wenig angepasst:
  
  
  procedure TForm1.ListMemberOfTR(MyObjName: String; list: TStringList);
  var rs, conn, com : Variant;
  strBase, strFilter, strAttributes, strADS : string;
  ft : TFileTime;
  arrVar: Array of variant;
  strTxt,strSearch: String;
  procedure getMem(obj:String);
• Forum: Object-Pascal / Delphi-Language

  Re: AD member, memberOf

    Delphi
    by cherry, 27. Jan 2009
  So, ich hab mir mal was zusammengebastelt. Mit dieser Prozedur kann ich nun MemberOf auslesen:
  
  Aufruf: ListMemberOf('user',Edit1.Text,list);
  
  
  procedure TForm1.ListMemberOf(MyObjClass, MyObjName: String; list: TStringList);
  var rs, conn, com : Variant;
  strBase, strFilter, strAttributes, strADS : string;
  ft : TFileTime;
• Forum: Object-Pascal / Delphi-Language

  AD member, memberOf

    Delphi
    by cherry, 23. Jan 2009
  Hallo liebe Delphi-Freaks...
  
  Ich bin schon langsam am verzweifeln. Ich versuche die
  
  -> Benutzer einer Gruppe
  
  und die
  
  -> Gruppen (inkl Untergruppen) von einem Benutzer