|
Code:
|
Const ADS_SECURE_AUTHENTICATION = 1
Function IsAuthenticated(Provider, Domain, Username, Password)
On Error Resume Next
Dim authNamespace, authObject
Set authNamespace = GetObject(Provider & ":")
Select Case Provider
Case "WinNT"
Set authObject = authNamespace.OpenDSObject(Provider & "://" & Domain, Domain & "\" & strUsername, strPassword, ADS_SECURE_AUTHENTICATION)
Case "LDAP"
Set authObject = authNamespace.OpenDSObject(Provider & "://dc=" & Domain & ",dc=yoursite,dc=com", "cn=" & Username & ",cn=Users,dc=" & Domain & ",dc=yoursite,dc=com", strPassword, ADS_SECURE_AUTHENTICATION)
End Select
If Err.Number <> 0 Then
IsAuthenticated = False
Else
IsAuthenticated = True
End If
Set authNamespace = Nothing
Set authObject = Nothing
End Function
|