Запрос к Active Directory [D7]
Alena © (2005-11-30 16:11:00)
Здраствуйте!
Помогите, пожалуйста, разобраться в следующем.
Мне нужно вывести, например, почтовый ящик какого-нить юзера.
Я кинула на форму ADOconnection, ADOQuery. В поле SQL пишу
следующее select...from 'LDAP://...where.... Где троеточия,
там я не знаю, что писать. Это мне и хотелось бы выяснить. Можно ли
использовать эту прогу на клиентской машине, если да, то где писать
имя сервака? И еще не знаю как отобразить результат запроса в
Memo.
just_me (2005-12-01 19:31:00) [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
Наверх 
ЧАТ |
Орешник |
|
