Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 3. Feb 2009
  Yeeehaaa, genial, super das wars. Jetzt kann ich schon mal die SID ermitteln :hello:
  
  Vielen vielen Dank für die super Unterstützung!!!!
  
  :dancer2:
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 3. Feb 2009
  Danke für die schnelle Antwort :)
  
  Ich habe das überprüft, komme aber auch beim Vergleich nicht auf die orginal SID, wie im folgenden Beispiel.
  
  SID des Benutzers Jens Maler:
  
  S-1-5-21-2730868873-810845422-3379721866-1146
  
  Der ermittelter HEX-Wert lautet:
  01 05 00 00 00 00 00 05 15 00 00 00 89 C0 C5 A2 EE 84 54 30 8A 76 72 C9 7A 04 00 00
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 3. Feb 2009
  Hi,
  
  also ich habe deinen Code jetzt so eingebaut...
  
  
  sField := ADOQuery1.FieldByName('objectSid').AsString;
  sSid := '';
  sSID2 := '';
  for i := 1 to Length(sField) do begin
  ch := Copy(sField,i,1);
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 3. Feb 2009
  Sorry, ich bekomme es irgendwie nicht gebacken. Bei der Sid kommt irgendwie nichts g'scheids heraus...
  
  Codeschnipsel ;)
  
  Var
  i : integer;
  sField : String;
  sSid : String;
  begin
  sField := ADOQuery1.FieldByName('objectSid').AsString;
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 2. Feb 2009
  Ich brauche einfach nur die Sid als String. Genau wie du schon sagtest, vielen Dank für die schnelle Rückmeldung!
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 2. Feb 2009
  Hi,
  
  vielen vielen Dank für die guten Ratschläge. Leider haut das noch nicht so ganz hin. Ich habe aber eine Funktion bei msdn gefunden, die das macht was ich brächte :-D . Leider ist diese jedoch in c++ geschrieben. Kann das vielleicht jemand in delphi konvertieren?
  
  Hier der Code
  
  HRESULT VariantArrayToBytes(VARIANT Variant,
  LPBYTE *ppBytes,
  ...
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 2. Feb 2009
  Hi,
  
  danke für die Info. Leider kann ich den Typ "AsVariant" nicht in einen Pointer umwandeln :wall:
• Forum: Win32/Win64 API (native code)

  Re: LDAP SID ermitteln

    Delphi
    by cst_07, 23. Jan 2009
  Hallo,
  
  vielen dank für die schnelle Antwort. Die Funktion von Luckie habe ich mir schon angeschaut, nur benötigt diese als Parameter einen Pointer.
  
  Wie bekomme ich via LDAP-Abfrage einen brauchbaren Pointer?
  
  Der Rückgabewert ist laut ADO "VarBytes". Gibts irgendeine Routine um daraus einen Pointer zu bekommen?
• Forum: Win32/Win64 API (native code)

  LDAP SID ermitteln

    Delphi
    by cst_07, 23. Jan 2009
  Hallo,
  
  ich habe folgendes Problem. Ich möchte die SID, beispielsweise eines Benutzers, via LDAP auslesen.
  
  Die LDAP Abfrage wird via ADO durchgeführt mit folgendem Statement:
  SELECT objectSid, distinguishedName, displayname FROM 'LDAP://SERVERNAME'
  
  Die Werte werden mittels "FieldByName" ausgelesen.
  
  Die "objectSid" wollte ich so "ADOQuery1.FieldByName('objectSid').AsVariant