| Вопрос: Аутентификация Active Directory 2003 | Добавлено: 23.11.05 16:42 |
Автор вопроса:  BMalligan
|
|
Господа.
Имеется задача: вход в программу осуществляется через Active Directory. Прога написана на VB6. Был найден код: Public Function CheckUser(UserName As String, Password As String) As Boolean Dim strQuery As String Dim dso As IADsOpenDSObject Dim obj As IADsDomain CheckUser = False Set dso = GetObject("WinNT:") strQuery = "WinNT://Domain" On Error Resume Next Set obj = dso.OpenDSObject(strQuery, UserName, Password, ADS_SECURE_AUTHENTICATION) If Err.Number <> 0 Or obj Is Nothing Then Err.Clear On Error GoTo 0 End If CheckUser = True Exit Function ToExit: Set obj = Nothing Set dso = Nothing End Function Код работает, но только не учитывает пароль, то есть если пользователь в домене есть, то все равно какой пароль указан, а если пользователя нет, то тогда obj Is Nothing. Но необходимо чтобы проверялся именно пароль. Может кто сталкивался с такой проблемой? Заранее спасибо. |
| Ответы | Всего ответов: 0 |
Страница: