Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Внизконвертация ad path...? Найти похожие ветки
← →
guest (2012-06-12 12:00) [0]есть функция выбора пользователей windows, которая возвращает путь к юзеру в формате AD:
в случае раб.группы возвращает:
WinNT://WORKGROUP/XPVIRTUAL/VMAdmin
в случае домена возвращает:
GC://mydomain.ru:3268/CN=Andrew Popov,CN=Users,DC=mydomain,DC=ru
при том, что данный юзер вообще состоит в домене corpmsk и его логин apopov
т.е. нам нужен короткий путь вида domain\user для доменов либо computer\user для рабочих групп
код обработчика работы диалога выбора пользователей:
function ProcessSelectedObjects(DatObj: IDataObject): HRESULT;
var
StgMed: TStgMedium;
FmtEtc: TFormatEtc;
SelLst: PDSSelectionList;
Index: ULONG;
Text: string;
begin
if nil = DatObj then
Result := E_INVALIDARG
else
begin
with FmtEtc do
begin
cfFormat := RegisterClipboardFormat(CFSTR_DSOP_DS_SELECTION_LIST);
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := -1;
tymed := TYMED_HGLOBAL;
end;
Result := DatObj.GetData(FmtEtc, StgMed);
if Succeeded(Result) then
begin
SelLst := PDsSelectionList(GlobalLock(StgMed.hGlobal));
if SelLst <> nil then
try
Text := "";
for Index := 0 to SelLst.cItems - 1 do
begin
Text := Text + Format(
"Object : %u"#13#10 +
" Name : %s"#13#10 +
" Class: %s"#13#10 +
" Path : %s"#13#10 +
" UPN : %s"#13#10, [
Index,
WideCharToString(SelLst.aDsSelection[Index].pwzName),
WideCharToString(SelLst.aDsSelection[Index].pwzClass),
WideCharToString(SelLst.aDsSelection[Index].pwzADsPath),
WideCharToString(SelLst.aDsSelection[Index].pwzUPN)]);
end;
ShowMessage(Text);
finally
GlobalUnlock(StgMed.hGlobal);
end
else
Result := E_POINTER;
ReleaseStgMedium(StgMed);
end;
end;
end;
как же правильно вытащить из объекта пользователя короткий путь?
← →
guest (2012-06-12 12:10) [1]покурил мсдн...
в общем, надо User Principal Name конвертить в Down-Level Logon Name (NT Name)...
← →
guest (2012-06-12 12:34) [2]нашел такую штуку как ActiveDs_TLB для конвертации адшных имен.. а для раб. групп просто парсить строку... - это оптимальный путь?
← →
guest (2012-06-12 15:34) [3]с IADsNameTranslate всё получилось, всем спасибо)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.067 c