Delphi. Получение информации из домена :: Прикладное программирование

asadaf

Код:

const
ActiveDSDll = 'activeds.dll';
function ADsOpenObject(lpszPathName:WideString;
lpszUserName:WideString;
lpszPassword:WideString;
dwReserved:DWORD;
const riid:TGUID;
out ppObject): HRESULT; stdcall;
var
hMod : THandle;
FuncProc : function(lpszPathName: WideString; lpszUserName: WideString;
lpszPassword: WideString; dwReserved: DWORD;
const riid : TIID; out obj) : HRESULT; stdcall;
begin
Result := ERROR_GEN_FAILURE;
hMod := LoadLibrary(ActiveDsDll);
if hMod > 0 then
begin
try
@FuncProc := GetProcAddress(hMod, 'ADsOpenObject');
if (@FuncProc <> nil) then
begin
Result := FuncProc(lpszPathName, lpszUserName, lpszPassword, dwReserved, riid, ppObject);
end;
finally
FreeLibrary(hMod);
end;
end;
end;

В таком случае ругается: "Unknown identifier: 'TIID'"
И опять же, в коде далее требуется пароль:

Код:

if not Res.EOF then
begin
OleCheck(ADsOpenObject(Res.Fields[0].Value, ADUsrName, ADUsrPwd,
ADS_SECURE_AUTHENTICATION, IADsUser, ADsUser));
Result := ADsUser.EmailAddress;

а задача стоит - без участия пользователя собрать информацию...

Мдяяя, не все так просто...

Добавлено:
KDPoid, asadaf
Я пошел немного другим путем и просто положил на форму ADOConnection и ADOCommand. В ADOConnection создал Connection String с указанием в качестве поставщика данных "OLE DB Provider for Microsoft Directory Services" и на вкладке "Соединение" - использовать встроенную безопасность Windows NT
ИМХО, по такой настройке пользователь может получить сведения о себе после логина в домен. Если запускать программу в логон-скрипте, то это условие (после логина в домен) будет ведь выполнено?
В таком случае я вызываю Jedi'вскую функцию GetLocalUserName и получаю имя залогиненного пользователя. Кроме того, я могу получить IP-адрес компьютера и его DNS-имя. А вот со всем остальным - засада... И пароль я не могу у него спросить, т.к. это будет нарушением безопасности (да и не должен он давать пароль любой запрашивающей его программе!). И жестко вбить в программу логин/пароль администратора тоже не могу, ведь это во-первых тоже будет нарушением безопасности (логин/пароль можно будет вытянуть из исполняемого файла), а во-вторых при передаче программы другому пользователю, в его сети логин/пароль администратора будет совсем другой.

Могу, кроме того, через ADOQuery выполнить такой запрос:

Код:

SELECT AdsPath, CN, SN, location
FROM 'LDAP://ou=ХХХ,ou=ХХХ,dc=YYY,dc=YYY,dc=YYY,dc=ru'
WHERE
objectClass='user'

При этом в CN я получу Ф.И.О. НО мне нужно каким-то образом получить строку с именем OU, к которому принадлежит учетная запись пользователя, запустившего программу.

Кстати, вопрос: почему при SELECT */SELECT ALL я не получаю ничего?
ORDER BY sn

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки