58 lines
1.6 KiB
C
58 lines
1.6 KiB
C
/* Benjamin DELPY `gentilkiwi`
|
|
http://blog.gentilkiwi.com
|
|
benjamin@gentilkiwi.com
|
|
Licence : https://creativecommons.org/licenses/by/4.0/
|
|
*/
|
|
#include "kull_m_ldap.h"
|
|
|
|
BOOL kull_m_ldap_getLdapAndRootDN(PCWCHAR system, PCWCHAR nc, PLDAP *ld, PWCHAR *rootDn)
|
|
{
|
|
BOOL status = FALSE;
|
|
DWORD dwErr;
|
|
|
|
if(*ld = ldap_init((PWCHAR) system, LDAP_PORT))
|
|
{
|
|
if(*rootDn = kull_m_ldap_getRootDomainNamingContext(nc, *ld))
|
|
{
|
|
dwErr = ldap_bind_s(*ld, NULL, NULL, LDAP_AUTH_NEGOTIATE);
|
|
status = (dwErr == LDAP_SUCCESS);
|
|
if(!status)
|
|
{
|
|
PRINT_ERROR(L"ldap_bind_s 0x%x (%u)\n", dwErr, dwErr);
|
|
*rootDn = (PWCHAR) LocalFree(*rootDn);
|
|
}
|
|
}
|
|
if(!status)
|
|
ldap_unbind(*ld);
|
|
}
|
|
else PRINT_ERROR(L"ldap_init\n");
|
|
return status;
|
|
}
|
|
|
|
PWCHAR kull_m_ldap_getRootDomainNamingContext(PCWCHAR nc, LDAP *ld)
|
|
{
|
|
DWORD dwErr;
|
|
PWCHAR rootAttr[] = {nc ? (PWCHAR) nc : L"rootDomainNamingContext", NULL}, ret = NULL;
|
|
PLDAPMessage pMessage = NULL;
|
|
PBERVAL *pBerVal;
|
|
|
|
dwErr = ldap_search_s(ld, NULL, LDAP_SCOPE_BASE, L"(dn=RootDSE)", rootAttr, FALSE, &pMessage);
|
|
if(dwErr == LDAP_SUCCESS)
|
|
{
|
|
if(ldap_count_entries(ld, pMessage) == 1)
|
|
{
|
|
if(pBerVal = ldap_get_values_len(ld, pMessage, rootAttr[0]))
|
|
{
|
|
if(ldap_count_values_len(pBerVal) == 1)
|
|
ret = kull_m_string_qad_ansi_c_to_unicode(pBerVal[0]->bv_val, pBerVal[0]->bv_len);
|
|
else PRINT_ERROR(L"ldap_get_values_len is NOT 1\n");
|
|
ldap_value_free_len(pBerVal);
|
|
}
|
|
}
|
|
else PRINT_ERROR(L"ldap_count_entries is NOT 1\n");
|
|
}
|
|
else PRINT_ERROR(L"ldap_search_s 0x%x (%u)\n", dwErr, dwErr);
|
|
if(pMessage)
|
|
ldap_msgfree(pMessage);
|
|
return ret;
|
|
} |