#include "ldap.hxx"

HRESULT
LdapTypeToVarTypeString(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;

    pVarDestObject->vt = VT_BSTR;

    hr = ADsAllocString(
             LDAPOBJECT_STRING(pLdapSrcObject),
             &(pVarDestObject->bstrVal)
             );

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeBoolean(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    LPTSTR pszSrc = LDAPOBJECT_STRING(pLdapSrcObject);

    pVarDestObject->vt = VT_BOOL;

    if ( _tcsicmp( pszSrc, TEXT("TRUE")) == 0 )
    {
        pVarDestObject->boolVal = VARIANT_TRUE;
    }
    else if ( _tcsicmp( pszSrc, TEXT("FALSE")) == 0 )
    {
        pVarDestObject->boolVal = VARIANT_FALSE;
    }
    else
    {
        hr = E_ADS_CANT_CONVERT_DATATYPE;
    }

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeInteger(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;

    pVarDestObject->vt = VT_I4;

    pVarDestObject->lVal = _ttol(LDAPOBJECT_STRING(pLdapSrcObject));

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeSecDes(
    LPWSTR pszServerName,
    CCredentials& Credentials,
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    BOOL fNTDS = TRUE;

    pVarDestObject->vt = VT_DISPATCH;

    hr = ReadServerType(
             pszServerName,
             &Credentials,
             &fNTDS
             );
    BAIL_ON_FAILURE(hr);

    hr = ConvertSecDescriptorToVariant(
                pszServerName,
                Credentials,
                LDAPOBJECT_BERVAL_VAL(pLdapSrcObject),
                pVarDestObject,
                fNTDS
                );

error:

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeLargeInteger(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
   HRESULT hr = S_OK;
   IADsLargeInteger * pLargeInteger = NULL;
   IDispatch * pDispatch = NULL;
   LARGE_INTEGER largeint;

   hr = CoCreateInstance(
            CLSID_LargeInteger,
            NULL,
            CLSCTX_INPROC_SERVER,
            IID_IADsLargeInteger,
            (void **) &pLargeInteger);
   BAIL_ON_FAILURE(hr);

   swscanf (LDAPOBJECT_STRING(pLdapSrcObject), L"%I64d", &largeint);

   hr = pLargeInteger->put_LowPart(largeint.LowPart);
   BAIL_ON_FAILURE(hr);

   hr = pLargeInteger->put_HighPart(largeint.HighPart);
   BAIL_ON_FAILURE(hr);

   hr = pLargeInteger->QueryInterface(
            IID_IDispatch,
            (void **) &pDispatch
            );
   BAIL_ON_FAILURE(hr);

   V_VT(pVarDestObject) = VT_DISPATCH;
   V_DISPATCH(pVarDestObject) =  pDispatch;

error:

   if (pLargeInteger) {
      pLargeInteger->Release();
   }
   RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeDNWithBinary(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    ADSVALUE AdsValue;
    IADsDNWithBinary *pDNWithBinary = NULL;
    IDispatch *pDispatch = NULL;
    SAFEARRAY *aList = NULL;
    SAFEARRAYBOUND aBound;
    CHAR HUGEP *pArray = NULL;
    BSTR bstrTemp = NULL;

    memset(&AdsValue, 0, sizeof(AdsValue));

    hr = CoCreateInstance(
             CLSID_DNWithBinary,
             NULL,
             CLSCTX_INPROC_SERVER,
             IID_IADsDNWithBinary,
             (void **) &pDNWithBinary
             );
    BAIL_ON_FAILURE(hr);

    hr = LdapTypeToAdsTypeDNWithBinary(
             pLdapSrcObject,
             &AdsValue
             );

    BAIL_ON_FAILURE(hr);

    if (AdsValue.pDNWithBinary->pszDNString) {
        hr = ADsAllocString(AdsValue.pDNWithBinary->pszDNString, &bstrTemp);
        BAIL_ON_FAILURE(hr);

        hr = pDNWithBinary->put_DNString(bstrTemp);
        BAIL_ON_FAILURE(hr);
    }

    aBound.lLbound = 0;
    aBound.cElements = AdsValue.pDNWithBinary->dwLength;

    aList = SafeArrayCreate( VT_UI1, 1, &aBound );

    if ( aList == NULL )
    {
        hr = E_OUTOFMEMORY;
        BAIL_ON_FAILURE(hr);
    }

    hr = SafeArrayAccessData( aList, (void HUGEP * FAR *) &pArray );
    BAIL_ON_FAILURE(hr);

    memcpy( pArray, AdsValue.pDNWithBinary->lpBinaryValue, aBound.cElements );

    SafeArrayUnaccessData( aList );

    V_VT(pVarDestObject) = VT_ARRAY | VT_UI1;
    V_ARRAY(pVarDestObject) = aList;

    hr = pDNWithBinary->put_BinaryValue(*pVarDestObject);
    VariantClear(pVarDestObject);
    BAIL_ON_FAILURE(hr);

    hr = pDNWithBinary->QueryInterface(
                            IID_IDispatch,
                            (void **) &pDispatch
                            );
    BAIL_ON_FAILURE(hr);

    V_VT(pVarDestObject) = VT_DISPATCH;
    V_DISPATCH(pVarDestObject) = pDispatch;

error:

    if (pDNWithBinary) {
        pDNWithBinary->Release();
    }

    if (AdsValue.pDNWithBinary) {
        if (AdsValue.pDNWithBinary->lpBinaryValue) {
            FreeADsMem(AdsValue.pDNWithBinary->lpBinaryValue);
        }

        if (AdsValue.pDNWithBinary->pszDNString) {
            FreeADsStr(AdsValue.pDNWithBinary->pszDNString);
        }
        FreeADsMem(AdsValue.pDNWithBinary);
    }

    if (bstrTemp) {
        ADsFreeString(bstrTemp);
    }

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeDNWithString(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    ADSVALUE AdsValue;
    IADsDNWithString *pDNWithString = NULL;
    IDispatch *pDispatch = NULL;
    BSTR bstrStrVal = NULL;
    BSTR bstrDNVal = NULL;

    memset(&AdsValue, 0, sizeof(AdsValue));

    hr = CoCreateInstance(
             CLSID_DNWithString,
             NULL,
             CLSCTX_INPROC_SERVER,
             IID_IADsDNWithString,
             (void **) &pDNWithString
             );
    BAIL_ON_FAILURE(hr);

    hr = LdapTypeToAdsTypeDNWithString(
             pLdapSrcObject,
             &AdsValue
             );

    BAIL_ON_FAILURE(hr);

    if (AdsValue.pDNWithString->pszDNString) {
        hr = ADsAllocString(AdsValue.pDNWithString->pszDNString, &bstrDNVal);
        BAIL_ON_FAILURE(hr);

        hr = pDNWithString->put_DNString(bstrDNVal);
        BAIL_ON_FAILURE(hr);
    }

    if (AdsValue.pDNWithString->pszStringValue) {
        hr = ADsAllocString(
                 AdsValue.pDNWithString->pszStringValue,
                 &bstrStrVal
                 );
        BAIL_ON_FAILURE(hr);

        hr = pDNWithString->put_StringValue(bstrStrVal);

        BAIL_ON_FAILURE(hr);
    }

    hr = pDNWithString->QueryInterface(
                            IID_IDispatch,
                            (void **) &pDispatch
                            );
    BAIL_ON_FAILURE(hr);

    V_VT(pVarDestObject) = VT_DISPATCH;
    V_DISPATCH(pVarDestObject) = pDispatch;

error:

    if (pDNWithString) {
        pDNWithString->Release();
    }

    if (AdsValue.pDNWithString) {
        if (AdsValue.pDNWithString->pszStringValue) {
            FreeADsStr(AdsValue.pDNWithString->pszStringValue);
        }

        if (AdsValue.pDNWithString->pszDNString) {
            FreeADsStr(AdsValue.pDNWithString->pszDNString);
        }
        FreeADsMem(AdsValue.pDNWithString);
    }

    if (bstrDNVal) {
        ADsFreeString(bstrDNVal);
    }

    if (bstrStrVal) {
        ADsFreeString(bstrStrVal);
    }

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeBinaryData(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    SAFEARRAY *aList = NULL;
    SAFEARRAYBOUND aBound;
    CHAR HUGEP *pArray = NULL;

    aBound.lLbound = 0;
    aBound.cElements = LDAPOBJECT_BERVAL_LEN(pLdapSrcObject);

    aList = SafeArrayCreate( VT_UI1, 1, &aBound );

    if ( aList == NULL )
    {
        hr = E_OUTOFMEMORY;
        BAIL_ON_FAILURE(hr);
    }

    hr = SafeArrayAccessData( aList, (void HUGEP * FAR *) &pArray );
    BAIL_ON_FAILURE(hr);

    memcpy( pArray, LDAPOBJECT_BERVAL_VAL(pLdapSrcObject), aBound.cElements );
    SafeArrayUnaccessData( aList );

    V_VT(pVarDestObject) = VT_ARRAY | VT_UI1;
    V_ARRAY(pVarDestObject) = aList;

    RRETURN(hr);

error:

    if ( aList )
        SafeArrayDestroy( aList );

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeUTCTime(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    int nSuccess = 0;
    ADSVALUE AdsValue;

    pVarDestObject->vt = VT_DATE;

    hr = LdapTypeToAdsTypeUTCTime(
        pLdapSrcObject,
        &AdsValue);
    BAIL_ON_FAILURE(hr);

    nSuccess = SystemTimeToVariantTime(
                    &AdsValue.UTCTime,
                    &pVarDestObject->date
                    );
    if (!nSuccess) {
        hr =E_ADS_CANT_CONVERT_DATATYPE;
        BAIL_ON_FAILURE(hr);
    }

error:
    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeGeneralizedTime(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    BOOL fSuccess = FALSE;
    ADSVALUE AdsValue;

    pVarDestObject->vt = VT_DATE;

    hr = LdapTypeToAdsTypeGeneralizedTime(
        pLdapSrcObject,
        &AdsValue);
    BAIL_ON_FAILURE(hr);

    fSuccess = SystemTimeToVariantTime(
                   &AdsValue.UTCTime,
                   &pVarDestObject->date);
    if (!fSuccess) {
        BAIL_ON_FAILURE(hr = E_ADS_CANT_CONVERT_DATATYPE);
    }

error:
    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeCopy(
    LPWSTR pszServerName,
    CCredentials& Credentials,
    PLDAPOBJECT pLdapSrcObject,
    DWORD       dwSyntaxId,
    PVARIANT    pVarDestObject
    )
{
    HRESULT hr = S_OK;

    switch (dwSyntaxId) {

        case LDAPTYPE_BITSTRING:
        case LDAPTYPE_PRINTABLESTRING:
        case LDAPTYPE_DIRECTORYSTRING:
        case LDAPTYPE_COUNTRYSTRING:
        case LDAPTYPE_DN:
        case LDAPTYPE_NUMERICSTRING:
        case LDAPTYPE_IA5STRING:
        case LDAPTYPE_CASEIGNORESTRING:
        case LDAPTYPE_CASEEXACTSTRING:

        case LDAPTYPE_OID:
        case LDAPTYPE_TELEPHONENUMBER:
        case LDAPTYPE_ATTRIBUTETYPEDESCRIPTION:
        case LDAPTYPE_OBJECTCLASSDESCRIPTION:

        case LDAPTYPE_DELIVERYMETHOD:
        case LDAPTYPE_ENHANCEDGUIDE:
        case LDAPTYPE_FACSIMILETELEPHONENUMBER:
        case LDAPTYPE_GUIDE:
        case LDAPTYPE_NAMEANDOPTIONALUID:
        case LDAPTYPE_POSTALADDRESS:
        case LDAPTYPE_PRESENTATIONADDRESS:
        case LDAPTYPE_TELEXNUMBER:
        case LDAPTYPE_DSAQUALITYSYNTAX:
        case LDAPTYPE_DATAQUALITYSYNTAX:
        case LDAPTYPE_MAILPREFERENCE:
        case LDAPTYPE_OTHERMAILBOX:
        case LDAPTYPE_ACCESSPOINTDN:
        case LDAPTYPE_ORNAME:
        case LDAPTYPE_ORADDRESS:

            hr = LdapTypeToVarTypeString(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_BOOLEAN:
            hr = LdapTypeToVarTypeBoolean(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_INTEGER:
            hr = LdapTypeToVarTypeInteger(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_OCTETSTRING:
        case LDAPTYPE_CERTIFICATE:
        case LDAPTYPE_CERTIFICATELIST:
        case LDAPTYPE_CERTIFICATEPAIR:
        case LDAPTYPE_PASSWORD:
        case LDAPTYPE_TELETEXTERMINALIDENTIFIER:
        case LDAPTYPE_AUDIO:
        case LDAPTYPE_JPEG:
        case LDAPTYPE_FAX:
            hr = LdapTypeToVarTypeBinaryData(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_GENERALIZEDTIME:
            hr = LdapTypeToVarTypeGeneralizedTime(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_UTCTIME:
            hr = LdapTypeToVarTypeUTCTime(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

    case LDAPTYPE_SECURITY_DESCRIPTOR:
        hr = LdapTypeToVarTypeSecDes(
                    pszServerName,
                    Credentials,
                    pLdapSrcObject,
                    pVarDestObject
                    );
        break;

    case LDAPTYPE_INTEGER8:
        hr = LdapTypeToVarTypeLargeInteger(
                    pLdapSrcObject,
                    pVarDestObject
                    );
        break;

#if 0
        case LDAPTYPE_CASEEXACTLIST:
        case LDAPTYPE_CASEIGNORELIST:
#endif

        case LDAPTYPE_DNWITHBINARY:
            hr = LdapTypeToVarTypeDNWithBinary(
                     pLdapSrcObject,
                     pVarDestObject
                     );
            break;

        case LDAPTYPE_DNWITHSTRING:
            hr = LdapTypeToVarTypeDNWithString(
                     pLdapSrcObject,
                     pVarDestObject
                     );

            break;

        default:

            hr = E_ADS_CANT_CONVERT_DATATYPE;
            break;
    }

    RRETURN(hr);

}

HRESULT
LdapTypeToVarTypeCopyConstruct(
    LPWSTR pszServerName,
    CCredentials& Credentials,
    LDAPOBJECTARRAY ldapSrcObjects,
    DWORD dwSyntaxId,
    PVARIANT pVarDestObjects
    )
{

    long i = 0;
    HRESULT hr = S_OK;

    VariantInit( pVarDestObjects );

    SAFEARRAY *aList = NULL;
    SAFEARRAYBOUND aBound;

    aBound.lLbound = 0;
    aBound.cElements = ldapSrcObjects.dwCount;

    aList = SafeArrayCreate( VT_VARIANT, 1, &aBound );

    if ( aList == NULL )
    {
        hr = E_OUTOFMEMORY;
        BAIL_ON_FAILURE(hr);
    }

    for ( i = 0; i < (long) ldapSrcObjects.dwCount; i++ )
    {
        VARIANT v;

        VariantInit(&v);
        hr = LdapTypeToVarTypeCopy(
                    pszServerName,
                    Credentials,
                    ldapSrcObjects.pLdapObjects + i,
                    dwSyntaxId,
                    &v
                    );

        BAIL_ON_FAILURE(hr);

        hr = SafeArrayPutElement( aList, &i, &v );
        VariantClear(&v);

        BAIL_ON_FAILURE(hr);
    }

    V_VT(pVarDestObjects) = VT_ARRAY | VT_VARIANT;
    V_ARRAY(pVarDestObjects) = aList;

    RRETURN(S_OK);

error:

    if ( aList )
        SafeArrayDestroy( aList );

    RRETURN(hr);
}
//+---------------------------------------------------------------------------
//
//  Microsoft Windows
//  Copyright (C) Microsoft Corporation, 1992 - 1996.
//
//  File:       ldap2var.cxx
//
//  Contents:   LDAP Object to Variant Copy Routines
//
//  Functions:
//
//  History:      25-Jun-96   yihsins  Created.
//
//
//  Issues:
//
//----------------------------------------------------------------------------
#include "ldap.hxx"

//
// LdapType objects copy code
//

HRESULT
LdapTypeToVarTypeString(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;

    pVarDestObject->vt = VT_BSTR;

    hr = ADsAllocString(
             LDAPOBJECT_STRING(pLdapSrcObject),
             &(pVarDestObject->bstrVal)
             );

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeBoolean(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    LPTSTR pszSrc = LDAPOBJECT_STRING(pLdapSrcObject);

    pVarDestObject->vt = VT_BOOL;

    if ( _tcsicmp( pszSrc, TEXT("TRUE")) == 0 )
    {
        pVarDestObject->boolVal = VARIANT_TRUE;
    }
    else if ( _tcsicmp( pszSrc, TEXT("FALSE")) == 0 )
    {
        pVarDestObject->boolVal = VARIANT_FALSE;
    }
    else
    {
        hr = E_ADS_CANT_CONVERT_DATATYPE;
    }

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeInteger(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;

    pVarDestObject->vt = VT_I4;

    pVarDestObject->lVal = _ttol(LDAPOBJECT_STRING(pLdapSrcObject));

    RRETURN(hr);
}


HRESULT
LdapTypeToVarTypeSecDes(
    LPWSTR pszServerName,
    CCredentials& Credentials,
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    BOOL fNTDS = TRUE;

    pVarDestObject->vt = VT_DISPATCH;

    hr = ReadServerType(
             pszServerName,
             &Credentials,
             &fNTDS
             );
    BAIL_ON_FAILURE(hr);


    hr = ConvertSecDescriptorToVariant(
                pszServerName,
                Credentials,
                LDAPOBJECT_BERVAL_VAL(pLdapSrcObject),
                pVarDestObject,
                fNTDS
                );

error:

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeLargeInteger(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
   HRESULT hr = S_OK;
   IADsLargeInteger * pLargeInteger = NULL;
   IDispatch * pDispatch = NULL;
   LARGE_INTEGER largeint;

   hr = CoCreateInstance(
            CLSID_LargeInteger,
            NULL,
            CLSCTX_INPROC_SERVER,
            IID_IADsLargeInteger,
            (void **) &pLargeInteger);
   BAIL_ON_FAILURE(hr);

   swscanf (LDAPOBJECT_STRING(pLdapSrcObject), L"%I64d", &largeint);

   hr = pLargeInteger->put_LowPart(largeint.LowPart);
   BAIL_ON_FAILURE(hr);

   hr = pLargeInteger->put_HighPart(largeint.HighPart);
   BAIL_ON_FAILURE(hr);

   hr = pLargeInteger->QueryInterface(
            IID_IDispatch,
            (void **) &pDispatch
            );
   BAIL_ON_FAILURE(hr);

   V_VT(pVarDestObject) = VT_DISPATCH;
   V_DISPATCH(pVarDestObject) =  pDispatch;

error:

   if (pLargeInteger) {
      pLargeInteger->Release();
   }
   RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeDNWithBinary(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    ADSVALUE AdsValue;
    IADsDNWithBinary *pDNWithBinary = NULL;
    IDispatch *pDispatch = NULL;
    SAFEARRAY *aList = NULL;
    SAFEARRAYBOUND aBound;
    CHAR HUGEP *pArray = NULL;
    BSTR bstrTemp = NULL;

    memset(&AdsValue, 0, sizeof(AdsValue));

    hr = CoCreateInstance(
             CLSID_DNWithBinary,
             NULL,
             CLSCTX_INPROC_SERVER,
             IID_IADsDNWithBinary,
             (void **) &pDNWithBinary
             );
    BAIL_ON_FAILURE(hr);


    //
    // Convert the ldapString to an adsvalue and then take it
    // to DNWithBinary object
    //
    hr = LdapTypeToAdsTypeDNWithBinary(
             pLdapSrcObject,
             &AdsValue
             );

    BAIL_ON_FAILURE(hr);

    if (AdsValue.pDNWithBinary->pszDNString) {
        hr = ADsAllocString(AdsValue.pDNWithBinary->pszDNString, &bstrTemp);
        BAIL_ON_FAILURE(hr);

        //
        // Put the value in the object - we can only set BSTR's
        //
        hr = pDNWithBinary->put_DNString(bstrTemp);
        BAIL_ON_FAILURE(hr);
    }

    aBound.lLbound = 0;
    aBound.cElements = AdsValue.pDNWithBinary->dwLength;

    aList = SafeArrayCreate( VT_UI1, 1, &aBound );

    if ( aList == NULL )
    {
        hr = E_OUTOFMEMORY;
        BAIL_ON_FAILURE(hr);
    }

    hr = SafeArrayAccessData( aList, (void HUGEP * FAR *) &pArray );
    BAIL_ON_FAILURE(hr);

    memcpy( pArray, AdsValue.pDNWithBinary->lpBinaryValue, aBound.cElements );

    SafeArrayUnaccessData( aList );

    V_VT(pVarDestObject) = VT_ARRAY | VT_UI1;
    V_ARRAY(pVarDestObject) = aList;

    hr = pDNWithBinary->put_BinaryValue(*pVarDestObject);
    VariantClear(pVarDestObject);
    BAIL_ON_FAILURE(hr);

    hr = pDNWithBinary->QueryInterface(
                            IID_IDispatch,
                            (void **) &pDispatch
                            );
    BAIL_ON_FAILURE(hr);

    V_VT(pVarDestObject) = VT_DISPATCH;
    V_DISPATCH(pVarDestObject) = pDispatch;

error:

    if (pDNWithBinary) {
        pDNWithBinary->Release();
    }

    if (AdsValue.pDNWithBinary) {
        if (AdsValue.pDNWithBinary->lpBinaryValue) {
            FreeADsMem(AdsValue.pDNWithBinary->lpBinaryValue);
        }

        if (AdsValue.pDNWithBinary->pszDNString) {
            FreeADsStr(AdsValue.pDNWithBinary->pszDNString);
        }
        FreeADsMem(AdsValue.pDNWithBinary);
    }

    if (bstrTemp) {
        ADsFreeString(bstrTemp);
    }

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeDNWithString(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    ADSVALUE AdsValue;
    IADsDNWithString *pDNWithString = NULL;
    IDispatch *pDispatch = NULL;
    BSTR bstrStrVal = NULL;
    BSTR bstrDNVal = NULL;

    memset(&AdsValue, 0, sizeof(AdsValue));

    hr = CoCreateInstance(
             CLSID_DNWithString,
             NULL,
             CLSCTX_INPROC_SERVER,
             IID_IADsDNWithString,
             (void **) &pDNWithString
             );
    BAIL_ON_FAILURE(hr);


    //
    // Convert the ldapString to an adsvalue and then take it
    // to DNWithString object
    //
    hr = LdapTypeToAdsTypeDNWithString(
             pLdapSrcObject,
             &AdsValue
             );

    BAIL_ON_FAILURE(hr);

    if (AdsValue.pDNWithString->pszDNString) {
        hr = ADsAllocString(AdsValue.pDNWithString->pszDNString, &bstrDNVal);
        BAIL_ON_FAILURE(hr);

        hr = pDNWithString->put_DNString(bstrDNVal);
        BAIL_ON_FAILURE(hr);
    }

    if (AdsValue.pDNWithString->pszStringValue) {
        hr = ADsAllocString(
                 AdsValue.pDNWithString->pszStringValue,
                 &bstrStrVal
                 );
        BAIL_ON_FAILURE(hr);

        hr = pDNWithString->put_StringValue(bstrStrVal);

        BAIL_ON_FAILURE(hr);
    }

    hr = pDNWithString->QueryInterface(
                            IID_IDispatch,
                            (void **) &pDispatch
                            );
    BAIL_ON_FAILURE(hr);

    V_VT(pVarDestObject) = VT_DISPATCH;
    V_DISPATCH(pVarDestObject) = pDispatch;

error:

    if (pDNWithString) {
        pDNWithString->Release();
    }

    if (AdsValue.pDNWithString) {
        if (AdsValue.pDNWithString->pszStringValue) {
            FreeADsStr(AdsValue.pDNWithString->pszStringValue);
        }

        if (AdsValue.pDNWithString->pszDNString) {
            FreeADsStr(AdsValue.pDNWithString->pszDNString);
        }
        FreeADsMem(AdsValue.pDNWithString);
    }

    if (bstrDNVal) {
        ADsFreeString(bstrDNVal);
    }

    if (bstrStrVal) {
        ADsFreeString(bstrStrVal);
    }

    RRETURN(hr);
}



HRESULT
LdapTypeToVarTypeBinaryData(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    SAFEARRAY *aList = NULL;
    SAFEARRAYBOUND aBound;
    CHAR HUGEP *pArray = NULL;

    aBound.lLbound = 0;
    aBound.cElements = LDAPOBJECT_BERVAL_LEN(pLdapSrcObject);

    aList = SafeArrayCreate( VT_UI1, 1, &aBound );

    if ( aList == NULL )
    {
        hr = E_OUTOFMEMORY;
        BAIL_ON_FAILURE(hr);
    }

    hr = SafeArrayAccessData( aList, (void HUGEP * FAR *) &pArray );
    BAIL_ON_FAILURE(hr);

    memcpy( pArray, LDAPOBJECT_BERVAL_VAL(pLdapSrcObject), aBound.cElements );
    SafeArrayUnaccessData( aList );

    V_VT(pVarDestObject) = VT_ARRAY | VT_UI1;
    V_ARRAY(pVarDestObject) = aList;

    RRETURN(hr);

error:

    if ( aList )
        SafeArrayDestroy( aList );

    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeUTCTime(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    int nSuccess = 0;
    ADSVALUE AdsValue;

    pVarDestObject->vt = VT_DATE;

    //
    // This converts to a SYSTEMTIME.
    //
    hr = LdapTypeToAdsTypeUTCTime(
        pLdapSrcObject,
        &AdsValue);
    BAIL_ON_FAILURE(hr);

    nSuccess = SystemTimeToVariantTime(
                    &AdsValue.UTCTime,
                    &pVarDestObject->date
                    );
    if (!nSuccess) {
        hr =E_ADS_CANT_CONVERT_DATATYPE;
        BAIL_ON_FAILURE(hr);
    }

error:
    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeGeneralizedTime(
    PLDAPOBJECT pLdapSrcObject,
    PVARIANT pVarDestObject
    )
{
    HRESULT hr = S_OK;
    BOOL fSuccess = FALSE;
    ADSVALUE AdsValue;

    pVarDestObject->vt = VT_DATE;

    //
    // This converts to a SYSTEMTIME.
    //
    hr = LdapTypeToAdsTypeGeneralizedTime(
        pLdapSrcObject,
        &AdsValue);
    BAIL_ON_FAILURE(hr);

    fSuccess = SystemTimeToVariantTime(
                   &AdsValue.UTCTime,
                   &pVarDestObject->date);
    if (!fSuccess) {
        BAIL_ON_FAILURE(hr = E_ADS_CANT_CONVERT_DATATYPE);
    }

error:
    RRETURN(hr);
}

HRESULT
LdapTypeToVarTypeCopy(
    LPWSTR pszServerName,
    CCredentials& Credentials,
    PLDAPOBJECT pLdapSrcObject,
    DWORD       dwSyntaxId,
    PVARIANT    pVarDestObject
    )
{
    HRESULT hr = S_OK;

    switch (dwSyntaxId) {

        case LDAPTYPE_BITSTRING:
        case LDAPTYPE_PRINTABLESTRING:
        case LDAPTYPE_DIRECTORYSTRING:
        case LDAPTYPE_COUNTRYSTRING:
        case LDAPTYPE_DN:
        case LDAPTYPE_NUMERICSTRING:
        case LDAPTYPE_IA5STRING:
        case LDAPTYPE_CASEIGNORESTRING:
        case LDAPTYPE_CASEEXACTSTRING:
//      case LDAPTYPE_CASEIGNOREIA5STRING:
        case LDAPTYPE_OID:
        case LDAPTYPE_TELEPHONENUMBER:
        case LDAPTYPE_ATTRIBUTETYPEDESCRIPTION:
        case LDAPTYPE_OBJECTCLASSDESCRIPTION:

        //
        // These types are treatable as strings
        // (see RFCs 2252, 2256)
        //
        case LDAPTYPE_DELIVERYMETHOD:
        case LDAPTYPE_ENHANCEDGUIDE:
        case LDAPTYPE_FACSIMILETELEPHONENUMBER:
        case LDAPTYPE_GUIDE:
        case LDAPTYPE_NAMEANDOPTIONALUID:
        case LDAPTYPE_POSTALADDRESS:
        case LDAPTYPE_PRESENTATIONADDRESS:
        case LDAPTYPE_TELEXNUMBER:
        case LDAPTYPE_DSAQUALITYSYNTAX:
        case LDAPTYPE_DATAQUALITYSYNTAX:
        case LDAPTYPE_MAILPREFERENCE:
        case LDAPTYPE_OTHERMAILBOX:
        case LDAPTYPE_ACCESSPOINTDN:
        case LDAPTYPE_ORNAME:
        case LDAPTYPE_ORADDRESS:

            hr = LdapTypeToVarTypeString(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_BOOLEAN:
            hr = LdapTypeToVarTypeBoolean(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_INTEGER:
            hr = LdapTypeToVarTypeInteger(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;


        case LDAPTYPE_OCTETSTRING:
        case LDAPTYPE_CERTIFICATE:
        case LDAPTYPE_CERTIFICATELIST:
        case LDAPTYPE_CERTIFICATEPAIR:
        case LDAPTYPE_PASSWORD:
        case LDAPTYPE_TELETEXTERMINALIDENTIFIER:
        case LDAPTYPE_AUDIO:
        case LDAPTYPE_JPEG:
        case LDAPTYPE_FAX:
            hr = LdapTypeToVarTypeBinaryData(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_GENERALIZEDTIME:
            hr = LdapTypeToVarTypeGeneralizedTime(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;

        case LDAPTYPE_UTCTIME:
            hr = LdapTypeToVarTypeUTCTime(
                    pLdapSrcObject,
                    pVarDestObject
                    );
            break;


    case LDAPTYPE_SECURITY_DESCRIPTOR:
        hr = LdapTypeToVarTypeSecDes(
                    pszServerName,
                    Credentials,
                    pLdapSrcObject,
                    pVarDestObject
                    );
        break;

    case LDAPTYPE_INTEGER8:
        hr = LdapTypeToVarTypeLargeInteger(
                    pLdapSrcObject,
                    pVarDestObject
                    );
        break;

#if 0
        case LDAPTYPE_CASEEXACTLIST:
        case LDAPTYPE_CASEIGNORELIST:
#endif

        case LDAPTYPE_DNWITHBINARY:
            hr = LdapTypeToVarTypeDNWithBinary(
                     pLdapSrcObject,
                     pVarDestObject
                     );
            break;

        case LDAPTYPE_DNWITHSTRING:
            hr = LdapTypeToVarTypeDNWithString(
                     pLdapSrcObject,
                     pVarDestObject
                     );

            break;

        default:

            //
            // LDAPTYPE_UNKNOWN  (schemaless server property) will be
            // not be converted.
            //

            hr = E_ADS_CANT_CONVERT_DATATYPE;
            break;
    }

    RRETURN(hr);

}


HRESULT
LdapTypeToVarTypeCopyConstruct(
    LPWSTR pszServerName,
    CCredentials& Credentials,
    LDAPOBJECTARRAY ldapSrcObjects,
    DWORD dwSyntaxId,
    PVARIANT pVarDestObjects
    )
{

    long i = 0;
    HRESULT hr = S_OK;

    VariantInit( pVarDestObjects );

    //
    // The following are for handling are multi-value properties
    //

    SAFEARRAY *aList = NULL;
    SAFEARRAYBOUND aBound;

    aBound.lLbound = 0;
    aBound.cElements = ldapSrcObjects.dwCount;

    aList = SafeArrayCreate( VT_VARIANT, 1, &aBound );

    if ( aList == NULL )
    {
        hr = E_OUTOFMEMORY;
        BAIL_ON_FAILURE(hr);
    }

    for ( i = 0; i < (long) ldapSrcObjects.dwCount; i++ )
    {
        VARIANT v;

        VariantInit(&v);
        hr = LdapTypeToVarTypeCopy(
                    pszServerName,
                    Credentials,
                    ldapSrcObjects.pLdapObjects + i,
                    dwSyntaxId,
                    &v
                    );


        BAIL_ON_FAILURE(hr);

        hr = SafeArrayPutElement( aList, &i, &v );
        VariantClear(&v);

        BAIL_ON_FAILURE(hr);
    }

    V_VT(pVarDestObjects) = VT_ARRAY | VT_VARIANT;
    V_ARRAY(pVarDestObjects) = aList;

    RRETURN(S_OK);

error:

    if ( aList )
        SafeArrayDestroy( aList );

    RRETURN(hr);
}


