FreemanRU
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Session("User") = GetDNByName(Name)
Public Function GetDNByName(ByVal Name As String) As System.DirectoryServices.DirectoryEntry
'Dim entry As New DirectoryServices.DirectoryEntry("LDAP://Path")
Dim mySearcher As New System.DirectoryServices.DirectorySearcher
'Dim result As System.DirectoryServices.SearchResult
Dim result As System.DirectoryServices.SearchResultCollection
mySearcher.Filter = ("(anr=" & Name & ")")
result = mySearcher.FindAll()
If result.Count <> 1 Then
Return result.Item(0).GetDirectoryEntry()
Else
Return result.Item(0).GetDirectoryEntry()
End If
End Function
Код:
В Session("User") мы сохраняем ссылку на объект AD
|
Всего записей: 3796 | Зарегистр. 16-07-2004 | Отправлено: 12:51 08-09-2005 | Исправлено: FreemanRU, 12:56 08-09-2005 |
|
