LDAP SID ermitteln

[cst_07]

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
" auslesen. Leider ist der Rückgabewert laut ADO "VarBytes",... wie kann ich aus diesem die SID herausbekommen? :wall:

Es gibt eine Funktion "ConvertSidToStringSid" leider benötigt diese aber einen Pointer,...

Über jede Info würde ich mich sehr freuen!

[nahpets]

Hallo,

schau mal hier: http://www.delphipraxis.net/internal...t.php?p=471470, da hat Luckie schonmal was zu geschrieben, eventuell hilft es Dir weiter.

Eventuell ist auch dasda was: http://www.delphipraxis.net/internal...=708116#708116

Ansonsten mal Google bemühen mit +ConvertSidToStringSid +delphi +source

[cst_07]

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?

[nahpets]

Hallo,

ich kann Dir Deine Frage nicht beantworten. :(

Versuche doch mal sowas:

Delphi-Quellcode:

var
  Sid : Windows.PSID;
begin
... Dein bisheriger Code
  Sid := ADOQuery1.FieldByName('objectSid').AsVariant; 
...

Und das übergibst Du dann an diese http://www.delphipraxis.net/internal...=708762#708762 Funktion.

[cst_07]

Hi,

danke für die Info. Leider kann ich den Typ "AsVariant" nicht in einen Pointer umwandeln :wall:

[nahpets]

Hallo,

schau mal, ob Dir das hilft:

Delphi-Quellcode:

Var
          i      : integer;
          sField : String;
          sSid   : String;
begin
  sField := ADOQuery1.FieldByName('objectSid').AsString;
  for i := 1 to length(sField) do sSid := sSid + IntToHex(Ord(Copy(sField,i,1)[1]),2) + ' ';
  showmessage(sSid);
end;

[cst_07]

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

Code:

HRESULT VariantArrayToBytes(VARIANT Variant, 
                            LPBYTE *ppBytes, 
                            DWORD *pdwBytes);

/********************************************************************

    GetLDAPSidBindStringFromVariantSID()

    Converts a SID in VARIANT form, such as an objectSid value,  
    and converts it into a bindale string in the form:

    LDAP://<SID=xxxxxxx...>

    The returned string is allocated with AllocADsMem and must  
    be freed by the caller with FreADsMem.

*******************************************************************/

LPWSTR GetLDAPSidBindStringFromVariantSID(VARIANT vSID)
{
    LPWSTR pwszReturn = NULL;

    if(vSID.vt != VT_EMPTY) 
    {
        HRESULT hr;
        LPBYTE pByte;
        DWORD dwBytes = 0;

        hr = VariantArrayToBytes(vSID, &pByte, &dwBytes);
        if(S_OK == hr)
        {
            // Convert the BYTE array into a string of 
            // hex characters.
            CComBSTR sbstrTemp = "LDAP://<SID=";

            for(DWORD i = 0; i < dwBytes; i++)
            {
                WCHAR wszByte[3];

                swprintf_s(wszByte, L"%02x", pByte[i]);
                sbstrTemp += wszByte;
            }

            sbstrTemp += ">";
            pwszReturn = 
              (LPWSTR)AllocADsMem((sbstrTemp.Length() + 1) * 
                                   sizeof(WCHAR));
            if(pwszReturn)
            {
                wcscpy_s(pwszReturn, sbstrTemp.m_str);
            }

            FreeADsMem(pByte);
        }
    }

    return pwszReturn;
}

/******************************************************************

    VariantArrayToBytes()

    This function converts a VARIANT array into an array of BYTES.  
    This function allocates the buffer using AllocADsMem. The caller 
    must free this memory with FreeADsMem when it is no longer 
    required.

******************************************************************/

HRESULT VariantArrayToBytes(VARIANT Variant, 
                            LPBYTE *ppBytes,  
                            DWORD *pdwBytes)
{
    if(!(Variant.vt & VT_ARRAY) ||
        !Variant.parray ||
        !ppBytes ||
        !pdwBytes)
    {
        return E_INVALIDARG;
    }

    *ppBytes = NULL;
    *pdwBytes = 0;

    HRESULT hr = E_FAIL;
    SAFEARRAY *pArrayVal = NULL;
    CHAR HUGEP *pArray = NULL;
    
    // Retrieve the safe array.
    pArrayVal = Variant.parray;
    DWORD dwBytes = pArrayVal->rgsabound[0].cElements;
    *ppBytes = (LPBYTE)AllocADsMem(dwBytes);
    if(NULL == *ppBytes) 
    {
        return E_OUTOFMEMORY;
    }

    hr = SafeArrayAccessData(pArrayVal, (void HUGEP * FAR *) &pArray);
    if(SUCCEEDED(hr))
    {
        // Copy the bytes to the safe array.
        CopyMemory(*ppBytes, pArray, dwBytes);
        SafeArrayUnaccessData( pArrayVal );
        *pdwBytes = dwBytes;
    }
    
    return hr;
}

Hier gibts nochmal eine Beschreibung zu dem Artikel bei msdn
http://msdn.microsoft.com/en-us/library/ms676319(VS.85).aspx

[nahpets]

Hallo,

in welcher Form willst Du denn jetzt die SID haben?
Ob Du den String jetzt nun zeichenweise mit IntToHex(Ord(Copy(sField,i,1)[1]),2) verarbeitest oder in ein ByteArray steckst, sollte an der von mir geposteten Routine keine allzu großen Änderungen erfordern.
Das Ergebnis der Routine stimmt zumindest mit den per LDAP-Browser ausgelesenen SID überein. Die Darstellungsform dürfte hier ja dann eigentlich eher als Chromleiste zu betrachten sein.

Wenn ich die Routine aus der MSDN halbweg richtig verstehe, macht die auch nichts anderes, als zeichenweise die SID in ein Char zu packen und die Chars dann an einen String zu hängen.

[cst_07]

Ich brauche einfach nur die Sid als String. Genau wie du schon sagtest, vielen Dank für die schnelle Rückmeldung!

[cst_07]

Sorry, ich bekomme es irgendwie nicht gebacken. Bei der Sid kommt irgendwie nichts g'scheids heraus...

Codeschnipsel ;)

Code:

Var 
          i      : integer; 
          sField : String; 
          sSid   : String; 
begin 
  sField := ADOQuery1.FieldByName('objectSid').AsString; 
  for i := 1 to length(sField) do sSid := sSid + IntToHex(Ord(Copy(sField,i,1)[1]),2) + ' '; 
  showmessage(sSid); 
end;

Zum Umwandeln der HexWerte in Strings habe ich folgende Funktion verwendet:

Code:

Function HexToStr(s: String): String;
Var i: Integer;
Begin
  Result:=''; i:=1;
  While i<Length(s) Do Begin
    Result:=Result+Chr(StrToIntDef('$'+Copy(s,i,2),0));
    Inc(i,2);
  End;
End;

Mit deinem Beispiel bekomme ich irgendwelche HexWertke heraus, welche aber leider keinen lesbaren String ergeben, sondern irgendwelche Sonderzeichen. Ich vermute, dass der Rückgabeparameter "AsString" nicht funktioniert :wall:

Wie bekomme ich den Wert der ObjectSid in ein ByteArray und dieses dann in ein String umgewandelt?