| Вопрос: Проверка связки login/pass с помощью Active DS | Добавлено: 24.12.08 23:35 |
Автор вопроса:  Cooller
|
|
Здраствуйте!
Много постов написано по Active DS, в том числе и по проверки связки login\pass... Скажите, почему код НЕ РАБОТАЕТ? Private Function CheckUser(MyDomain As String, UserName As String, Password As String) As Boolean Dim dso As IADsOpenDSObject Dim obj CheckUser = False Set dso = GetObject("WinNT:") On Error Resume Next Set obj = dso.OpenDSObject("WinNT://" & MyDomain, UserName, Password, ADS_SECURE_AUTHENTICATION) If Err.Number <> 0 Or obj Is Nothing Then Err.Clear Exit Function End If CheckUser = True Set obj = Nothing Set dso = Nothing End Function Вызываю функцию с переменными MyDomain = "Workgroup\MyComp" UserName = "User" Password ="123" Функция всегда возвращает True при любом пароле...Почему? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 25.12.08 19:03 |
| может попробовать НЕ использовать On Error Resume Next? | ||
|
Номер ответа: 2 Автор ответа: Cooller Вопросов: 11 Ответов: 32 |
Профиль | | #2 | Добавлено: 25.12.08 20:37 |
| Сам пробовал? Пишет ошибку: "Был передан недопустимый путь службы каталогов"...Код взят из MSDN | ||
Страница: 1 |