validate active directory login information
Posted on 2004-08-22
I'm going to write an server application that shall check the login information (Windows 2000 domain) given by a client.
How can I realize that issue? Because I've some code that shall do that, but it throws an error. There is a limitation in Windows, so a user can only be logged on once. The outcome of these is, that the logged on user could be authorized but any other user/password combination not.
Here is the code:
Private Function IsAuthenticated(ByVal strUserName As String, ByVal strPassword As String) As Boolean
On Error Resume Next
Dim strADsPath As String
Dim iFlags As String
Dim strADsNamespace As String
Dim oADsObject As Object
Dim oADsNamespace As Object
strADsPath = "WinNT://" & m_strDomain
iFlags = "0"
' bind to the ADSI object and authenticate Username and password
Set oADsObject = GetObject(strADsPath)
strADsNamespace = left(strADsPath, InStr(strADsPath, ":"))
Set oADsNamespace = GetObject(strADsNamespace)
Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, m_strDomain & "\" & strUserName, strPassword, 0)
' we're only bound if err.number = 0
IsAuthenticated = (Err.Number = 0)
I read that it could be done with LDAP, but how to use it in VB6?
Or is there a way around the mentured login limitation?