| Directory Services |
The following C++ code example shows how to obtain the distinguished name of the Partitions container by searching the configuration container for the crossRefContainer object.
[C++]
/***************************************************************************
GetPartitionsDNSearch()
Description: Gets the distinguished name of the Partitions container in
the current enterprise.
Parameters:
ppwszPartitionsDN - Pointer to an LPWSTR that receives the distinguished
name string. The caller must free this memory with
FreeADsMem when it is no longer required.
***************************************************************************/
HRESULT GetPartitionsDNSearch(LPWSTR *ppwszPartitionsDN)
{
if(IsBadWritePtr(ppwszPartitionsDN, sizeof(LPWSTR)))
{
return E_POINTER;
}
*ppwszPartitionsDN = NULL;
HRESULT hr;
IADs *padsRootDSE;
// Bind to the RootDSE to get the configurationNamingContext property.
hr = ADsOpenObject( L"LDAP://RootDSE",
NULL,
NULL,
ADS_SECURE_AUTHENTICATION,
IID_IADs,
(LPVOID*)&padsRootDSE);
if(SUCCEEDED(hr))
{
CComVariant svar;
// Get the configurationNamingContext property.
hr = padsRootDSE->Get(CComBSTR("configurationNamingContext"), &svar);
if(SUCCEEDED(hr))
{
IDirectorySearch *pConfigSearch;
// Bind to the Configuration container.
CComBSTR sbstrPath = "LDAP://";
sbstrPath += svar.bstrVal;
hr = ADsOpenObject( sbstrPath,
NULL,
NULL,
ADS_SECURE_AUTHENTICATION,
IID_IDirectorySearch,
(LPVOID*)&pConfigSearch);
if(SUCCEEDED(hr))
{
// Search for an object that is of type crossRefContainer.
ADS_SEARCHPREF_INFO SearchPref[1];
// Set the scope of the search.
SearchPref[0].dwSearchPref = ADS_SEARCHPREF_SEARCH_SCOPE;
SearchPref[0].vValue.dwType = ADSTYPE_INTEGER;
SearchPref[0].vValue.Integer = ADS_SCOPE_ONELEVEL;
hr = pConfigSearch->SetSearchPreference(SearchPref, sizeof(SearchPref)/sizeof(ADS_SEARCHPREF_INFO));
if(SUCCEEDED(hr))
{
ADS_SEARCH_HANDLE hSearch = NULL;
LPWSTR pwszAttributes[1] = {L"distinguishedName"};
LPWSTR pwszSearchFilter = L"(&(objectClass=crossRefContainer))";
// Execute the search.
hr = pConfigSearch->ExecuteSearch(pwszSearchFilter,
pwszAttributes,
sizeof(pwszAttributes)/sizeof(LPWSTR),
&hSearch);
if(SUCCEEDED(hr))
{
// Get the first result row. There should never be more than one match.
hr = pConfigSearch->GetFirstRow(hSearch);
if(S_OK == hr)
{
ADS_SEARCH_COLUMN col;
// Get the search result. The distinguishedName attribute will be a string.
hr = pConfigSearch->GetColumn(hSearch, pwszAttributes[0], &col);
if(SUCCEEDED(hr))
{
// col.pADsValues[0].DNString;
DWORD dwChars = lstrlenW(col.pADsValues[0].DNString) + 1;
*ppwszPartitionsDN = (LPWSTR)AllocADsMem(dwChars * sizeof(WCHAR));
if(*ppwszPartitionsDN)
{
lstrcpynW(*ppwszPartitionsDN, col.pADsValues[0].DNString, dwChars);
}
else
{
hr = E_OUTOFMEMORY;
}
pConfigSearch->FreeColumn(&col);
}
}
else
{
hr = HRESULT_FROM_WIN32(ERROR_NOT_FOUND);
}
// Close the search handle to cleanup.
pConfigSearch->CloseSearchHandle(hSearch);
}
}
pConfigSearch->Release();
}
}
padsRootDSE->Release();
}
return hr;
}
The following Visual Basic code example shows how to obtain the distinguished name of the Partitions container by searching the configuration container for the crossRefContainer object.
[VBScript]
Const ADS_SECURE_AUTHENTICATION = 1
'
' GetPartitionsDNSearch
'
' Description: Gets the distinguished name of the Partitions container in
' the current enterprise.
'
Function GetPartitionsDNSearch()
' Bind to RootDSE.
Set oRootDSE = GetObject("LDAP://RootDSE")
Set oConn = CreateObject("ADODB.Connection")
Set oComm = CreateObject("ADODB.Command")
oConn.Provider = "ADsDSOObject"
' Set the binding options for the search.
oConn.Properties("ADSI Flag") = ADS_SECURE_AUTHENTICATION
oConn.Open
oComm.ActiveConnection = oConn
oComm.CommandText = "<LDAP://" + oRootDSE.Get("configurationNamingContext") + ">;(&(objectClass=crossRefContainer));distinguishedName;onelevel"
'WScript.Echo oComm.CommandText
' Execute the query.
Set oResults = oComm.Execute
' Get the first result. This should be the only result.
Set oField = oResults(0)
GetPartitionsDNSearch = oField.Value
End Function
The following C++ code example shows how to obtain the distinguished name of the Partitions container by building the distinguished name manually.
[C++]
/***************************************************************************
GetPartitionsDNManual()
Description: Gets the distinguished name of the Partitions container in
the current enterprise forest.
Parameters:
ppwszPartitionsDN - Pointer to an LPWSTR that receives the distinguished
name string. The caller must free this memory with
FreeADsMem when it is no longer required.
***************************************************************************/
HRESULT GetPartitionsDNManual(LPWSTR *ppwszPartitionsDN)
{
if(IsBadWritePtr(ppwszPartitionsDN, sizeof(LPWSTR)))
{
return E_POINTER;
}
*ppwszPartitionsDN = NULL;
HRESULT hr;
IADs *padsRootDSE;
// Bind to the RootDSE to get the configurationNamingContext property.
hr = ADsOpenObject( L"LDAP://RootDSE",
NULL,
NULL,
ADS_SECURE_AUTHENTICATION,
IID_IADs,
(LPVOID*)&padsRootDSE);
if(SUCCEEDED(hr))
{
CComVariant svar;
// Get the configurationNamingContext property.
hr = padsRootDSE->Get(CComBSTR("configurationNamingContext"), &svar);
if(SUCCEEDED(hr))
{
CComBSTR sbstrDN = "CN=Partitions,";
sbstrDN += svar.bstrVal;
DWORD dwChars = sbstrDN.Length() + 1;
*ppwszPartitionsDN = (LPWSTR)AllocADsMem(dwChars * sizeof(WCHAR));
if(*ppwszPartitionsDN)
{
lstrcpynW(*ppwszPartitionsDN, sbstrDN.m_str, dwChars);
}
else
{
hr = E_OUTOFMEMORY;
}
}
padsRootDSE->Release();
}
return hr;
}
The following Visual Basic code example shows how to obtain the distinguished name of the Partitions container by building the distinguished name manually.
[VBScript]
'
' GetPartitionsDNManual
'
' Description: Gets the distinguished name of the Partitions container in
' the current enterprise forest.
'
Function GetPartitionsDNManual()
' Bind to RootDSE.
Set oRootDSE = GetObject("LDAP://RootDSE")
' Get the configurationNamingContext property.
GetPartitionsDNManual = "CN=Partitions," + oRootDSE.Get("configurationNamingContext")
End Function
The following code example shows how to get the distinguished name of the Partitions container by searching the configuration container for the crossRefContainer object. This example uses C# with System.DirectorySevices.
[C#]
/***************************************************************************
GetPartitionsDN()
Description: Gets the distinguished name of the Partitions container in
the current enterprise forest.
***************************************************************************/
static string GetPartitionsDN()
{
// Bind to the RootDSE to get the configurationNamingContext property.
DirectoryEntry RootDSE = new DirectoryEntry("LDAP://RootDSE");
DirectoryEntry ConfigContainer = new DirectoryEntry("LDAP://" +
RootDSE.Properties["configurationNamingContext"].Value);
// Search for an object that is of type crossRefContainer.
DirectorySearcher ConfigSearcher = new DirectorySearcher(ConfigContainer);
ConfigSearcher.Filter = "(&(objectClass=crossRefContainer))";
ConfigSearcher.PropertiesToLoad.Add("distinguishedName");
ConfigSearcher.SearchScope = SearchScope.OneLevel;
SearchResult result = ConfigSearcher.FindOne();
return result.Properties["distinguishedName"][0].ToString();
}
The following code example shows how to obtain the distinguished name of the Partitions container by searching the configuration container for the crossRefContainer object. This example uses Visual Basic .NET with System.DirectorySevices.
[Visual Basic .NET]
'**************************************************************************
'
' GetPartitionsDN()
'
'
' Description: Gets the distinguished name of the Partitions container in
' the current enterprise forest.
'
'**************************************************************************
Function GetPartitionsDN() As String
' Bind to the RootDSE to get the configurationNamingContext property.
Dim RootDSE As New DirectoryEntry("LDAP://RootDSE")
' Bind to the Configuraiton container.
Dim Path As String = "LDAP://" + RootDSE.Properties("configurationNamingContext").Value
Dim ConfigContainer As New DirectoryEntry(Path)
' Search for an object that is of type crossRefContainer.
Dim ConfigSearcher As New DirectorySearcher(ConfigContainer)
ConfigSearcher.Filter = "(&(objectClass=crossRefContainer))"
ConfigSearcher.SearchScope = SearchScope.OneLevel
Dim result As SearchResult = ConfigSearcher.FindOne()
Return result.Properties("distinguishedName")(0).ToString()
End Function