Is there a general dialog for selecting Active Directory users?

Question

Select Windows User, Service Accounts, or Groups Dialog Box:

accessible via third party API?

Is there a common dialogue "Common browser"?

Answer 1

Selecting a catalog object

Pseudo-code example:

String SelectUsers(HWND hwndParent, IList<String> usersLdapPaths) { IDsObjectPicker objPicker; IDataObject objData; PDSOP_INIT_INFO pInfo; LPWSTR[0..2] attr; HRESULT hr; /* Returns the LDAP path to the selected user, eg: LDAP://stackoverflow.com/CN=Ian Boyd,OU=Stack Users,DC=stackoverflow,DC=com usersLdapPaths can be null. If not null then the user can mutli-select users, and the selected user LDAP paths will be returned in usersLdapPaths (with the function result containing just the first user) If the user cancels the dialog, then the result (and usersLdapPaths ) will be empty */ Result := ''; objPicker = CreateComObject(CLSID_DsObjectPicker) as IDsObjectPicker; System.New(pInfo); try { ZeroMemory(pInfo, SizeOf(DSOP_INIT_INFO)); pInfo.cbSize = SizeOf(DSOP_INIT_INFO); pInfo.pwzTargetComputer = nil; //local computer pInfo.cDsScopeInfos := 1; System.New(pInfo.aDsScopeInfos); try { ZeroMemory(pInfo.aDsScopeInfos, SizeOf(DSOP_SCOPE_INIT_INFO)); pInfo.aDsScopeInfos.cbSize = SizeOf(pInfo.aDsScopeInfos); pInfo.aDsScopeInfos.flType = DSOP_SCOPE_TYPE_UPLEVEL_JOINED_DOMAIN; //or DSOP_SCOPE_TYPE_TARGET_COMPUTER; pInfo.aDsScopeInfos.flScope = DSOP_SCOPE_FLAG_WANT_PROVIDER_LDAP; pInfo.aDsScopeInfos.FilterFlags.Uplevel.flBothModes = DSOP_FILTER_USERS; pInfo.aDsScopeInfos.FilterFlags.flDownlevel = DSOP_DOWNLEVEL_FILTER_USERS; if (UsersLdapPaths != null) pInfo.flOptions = DSOP_FLAG_MULTISELECT; pInfo.cAttributesToFetch := 3; attr[0] = "description"; attr[1] = "name"; attr[2] = "fullName"; pInfo.apwzAttributeNames = @attr; hr = objPicker.Initialize(pInfo); OleCheck(hr); hr = objPicker.InvokeDialog(hwndParent, objData); OleCheck(hr); //the result is false if the user cancelled the dialog if hr = S_FALSE then return ''; return ReadAttributes(objData, UsersLdapPaths); } finally { System.Dispose(pInfo.aDsScopeInfos); } } finally { Dispose(pInfo); } } 

And an auxiliary function (that I will not try to transcode from one pseudo-code language to another pseudo-code language):

 function TActiveDirectory.ReadAttributes(ADataObject: IDataObject; AValues: TStrings): string; var fmtIn: TFormatEtc; stgOut: TStgMedium; pSelList: PDS_SELECTION_LIST; i: Integer; path: string; // x: LongWord; // pVar: POleVariant; items: PDsSelectionArray; begin Result := ''; if Assigned(AValues) then AValues.Clear; if not Assigned(ADataObject) then Exit; stgOut.tymed := TYMED_HGLOBAL; fmtIn.tymed := TYMED_HGLOBAL; fmtIn.cfFormat := RegisterClipboardFormat(CFSTR_DSOP_DS_SELECTION_LIST); fmtIn.dwAspect := DVASPECT_CONTENT; fmtIn.lindex := -1; if (ADataObject.GetData(fmtIn, stgOut) <> S_OK) then Exit; pSelList := GlobalLock(stgOut.hGlobal); try if pSelList.cItems > 0 then items := PDsSelectionArray(@pSellist.aDsSelection) else items := nil; for i := 0 to pSelList^.cItems-1 do begin // path := TDsSelectionArray(pSellist.aDsSelection)[i].pwzADsPath; path := items[i].pwzADsPath; if Assigned(AValues) then AValues.Add(path); if Result = '' then Result := path; { Result := pSelList^.aDsSelection[i].pwzName+' ('+pSelList.aDsSelection[i].pwzADsPath+')'; AValues.Add(Result); AValues.Add(' Class: '+pSelList^.aDsSelection[i].pwzClass); //"user" AValues.Add(' UPN: '+pSelList^.aDsSelection[i].pwzUPN ); //eg " [e-mail] " pVar := pSelList^.aDsSelection[i].pvarFetchedAttributes; for x := 0 to pSelList^.cFetchedAttributes-1 do begin AValues.Add(' '+VarToStr(pVar^)); if x < pSelList^.cFetchedAttributes then Inc(pVar); end;} end; finally GlobalUnlock(stgOut.hGlobal); end; end; 

Answer 2

If you are looking for a .NET Solution, we have created NuGet, available at https://github.com/Tulpep/Active-Directory-Object-Picker .

It is based on this project https://adui.codeplex.com/ , but updated for x64 computers.

Answer 3

For .NET and C #:

• . NET wrapper for Director object manager in Codeplex

• Project for creating an AD object in CodeProject