Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

Запрос к Active Directory   Найти похожие ветки 

 
Alena   (2005-11-30 16:11) [0]

Здраствуйте!
Помогите, пожалуйста, разобраться в следующем.
Мне нужно вывести, например, почтовый ящик какого-нить юзера. Я кинула на форму ADOconnection, ADOQuery. В поле SQL пишу следующее select...from "LDAP://...where....  Где троеточия, там я не знаю, что писать. Это мне и хотелось бы выяснить. Можно ли использовать эту прогу на клиентской машине, если да, то где писать имя сервака? И еще не знаю как отобразить результат запроса в Memo.


 
just_me   (2005-12-01 19:31) [1]

Вот пример на VB - нетрудно перенести на D7:
Dim Con As New Connection
Dim rs As New Recordset
Dim command As New Command
Dim usr As IADsUser

" Replace department for all users in OU=sales.
Set con = Server.CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"

Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = con

command.CommandText = "SELECT AdsPath, cn FROM "LDAP://OU=Sales,DC=Fabrikam,DC=com" WHERE objectClass = "user""

command.Properties("searchscope") = ADS_SCOPE_ONELEVEL
Set rs = command.Execute
While Not rs.EOF
   Set usr = GetObject(rs.Fields("AdsPath").Value)
   usr.Put "department", "1001"
   usr.SetInfo
   rs.MoveNext
Wend

Можно тут почитать:
http://msdn.microsoft.com/library/en-us/adsi/adsi/accessing_active_directory_using_visual_basic.asp



Страницы: 1 вся ветка

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.031 c
2-1137155643
Dark Lord
2006-01-13 15:34
2006.01.29
Ошибка при коннекте в NMPOP3


9-1124205351
ArtemESC
2005-08-16 19:15
2006.01.29
DirectDraw.pas


6-1129401928
Black-Grin
2005-10-15 22:45
2006.01.29
NMFTP вызов LIST


1-1135175445
w666w
2005-12-21 17:30
2006.01.29
Скопировать компонент в Clipboard


15-1136442827
lookin
2006-01-05 09:33
2006.01.29
Сегодня финал МЧМ по хоккею: Россия - Канада