Please help me!
Is there anyone who has an usable idea about it? (In VB.)
I need to connect to a Netscape LDAP server from Win2000 and ASP...
--------------------------------------------------------
I've already written an ActiveX dll. It has a function:
check_member(host str, ceredentials str, password str, authentication type int)
It returns with a string, the error code or "ok".
When I call this dll from a container exe, it works! Says OK, when I bring the correct parameters.
The asp contains the almost same lines, but the dll from asp says:
The authentication mechanism is unknown.
---------------------------------------------------------
I've tried some things:
- When I bring other auth method parameters it returns various error codes.
- I've "wired" the authentication method parameter into the dll. The error was the same.
---------------------------------------------------------
So I don't understand. The exe works, the asp not. Same parameters.
---------------------------------------------------------
Thank you!
---------------------------------------------------------
ldap_check.cls
---------------------------------------------------------
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "ldap_check"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Function check_member(ByVal strLDAPHost As String, ByVal strLDAPCred As String, ByVal strLDAPPassw As String, ByVal intLDAPParam As Integer) As String
'strLDAPHost : LDAP szerver, utana a portszammal. IP cim megadasa is lehetseges
'strLDAPHost = "LDAP://wombat.webigen.com:389"
'strLDAPCred : az LDAP credentials, a nem anonymus belepeshez
'strLDAPCred = "cn=tasm, ou=Members, o=Exchange"
On Error GoTo ErrorHandle
Dim objLDAP As IADs
Dim objIADsContainer As IADsContainer
Set objLDAP = GetObject("LDAP:")
Set objIADsContainer = objLDAP.OpenDSObject(strLDAPHost, strLDAPCred, strLDAPPassw, intLDAPParam)
ErrorHandle:
If Err = 0 Then
check_member = "ok"
Else
check_member = Err.Description
End If
End Function
[Edited by tasm_ on 01-12-2001 at 03:23 AM]
