473,320 Members | 1,872 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Using Novell (via LDAP?) to authenicate

Tim
Hello,

I'm trying very (too) hard to log uses LDAP (via ADSI) to autheniticate
users in an A2k2 application. We have AD and I have that working
slick. We are in a tranistion from NDS to AD and I would like to get
the NDS side working during the transition. I know the concept of what
required

Microsoft's information is very sparse and incomplete if not wrong.

1) What would the provider be (and how do we know if I/others have it)
2) What's require in the commandtext (some say LDAP://.. other say
NDS://.. neither work)
3) I'm assuming the context in required with user name but in what
format?
4) What is the ASDI flag?

Keep in mind this code only works on the AD side (txtService = "AD").

This code (with a blank txtService) gives me a "Table does not exist"
error. What table?

__________________________________________
private sub testlogin
Dim con As New Connection, rs As New Recordset, txtService As String

Dim adVariant
Dim i, j 'Used for counter
Dim Com As New Command
Dim strDomain, strPassword, strAttributeList, txtCommandText As String

'On Error GoTo Err_ThisSub

' Open a Connection object.
con.Provider = "ADsDSOObject"
con.Properties("ADSI Flag") = 1
txtService = ""
If txtService = "AD" Then
strAttributeList =
"sAMAccountname,displayName,distinguishedname,memb erOf"
con.Properties("User ID") = "ad\" & Me.txtUserName
con.Properties("Password") = Me.txtPassword
con.Open "Active Directory Provider"
txtCommandText = "<LDAP://servername/OU=Metro District,OU=District
Operations
Division,DC=ad,DC=dot,DC=state,DC=mn,DC=us>;(sAMAc countname=" &
Me.txtUserName & ");" & strAttributeList & ";subtree"
Else
strAttributeList =
"dn,cn,fullname,givenname,groupmembership,employee number,mail"
con.Properties("User ID") =
"cn=marc1tim,ou=User,ou=MET,ou=RSV,ou=MSP,o=DO T"
con.Properties("Password") = Me.txtPassword
con.Open "NDS Provider"
txtCommandText =
"<LDAP://dot-nds3.dot.state.mn.us/cn=marc1tim,ou=User,ou=MET,ou=RSV,ou=MSP,o=DOT>;(c n=marc1tim);"
& strAttributeList & ";subtree"
End If

' Create a command object on this connection.
Set Com.ActiveConnection = con
Com.CommandText = txtCommandText

' Set search preferences.
Com.Properties("Page Size") = 1000
Com.Properties("Timeout") = 30 'seconds

' Execute the query.
Set rs = Com.Execute

' Navigate the record set.
rs.MoveFirst
Me.txtOutput = Null
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Type = vbVariant And Not
(IsNull(rs.Fields(i).Value)) Then
For j = LBound(rs.Fields(i).Value) To
UBound(rs.Fields(i).Value)
Me.txtOutput = Me.txtOutput & rs.Fields(i).Name & " : "
& CStr(rs.Fields(i).Value(j)) & vbCr & vbLf
Next j
Else
Me.txtOutput = Me.txtOutput & rs.Fields(i).Name & " : " &
rs.Fields(i).Value & vbCr & vbLf
End If
Next i
rs.MoveNext
Wend

rs.MoveLast

rs.Close
Set rs = Nothing

Exit_ThisSub:
Exit Sub

Err_ThisSub:
MsgBox Err.Number & ": " & Err.Description, , "Login Error"
Resume Exit_ThisSub
End Sub

Nov 13 '05 #1
0 1610

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

4
by: John | last post by:
"Networking software maker Novell on Monday boosted its Linux portfolio with the acquisition of Linux software maker Ximian for an undisclosed sum. The purchase of Ximian's desktop Linux software...
0
by: aiKeith | last post by:
Hello, Here is my situation. I have developed several apps that require authentication to access. For authentication, I have the users enter thier user/pass and click login, which is then sent...
3
by: Stanley Sinclair | last post by:
Client has Novell network which has worked without failure for years in file, print sharing, and a flat database. Also has a fax server on it and Novell Groupware for messaging. He does not want...
0
by: Neal | last post by:
Hi To begin with, I am referencing a Novell LDAP dll, from within a WebService. There are a bunch of other related dll's which must be and are installed on my machine. Problem is: I can...
2
by: 1388-2/HB | last post by:
On a W2K3 box running IIS 6 I have a web app that implements Forms Authentication mixed with AD (the login page autheticates users against AD & impersonates them with each page request). This...
3
by: Robert Iver | last post by:
Hello, I am developing an application in C# using VS .NET 2005 that will be accessing and updating Active Directory via LDAP. So, far I have written the main portions, but now I am stuck on the...
2
by: Sean | last post by:
I was thinking about making an application that would both interface with an older Sybase database (ASA 9.0) and LDAP to do some grunt work. My plan is that the Sybase DB holds all the user...
1
by: apedosmil8 | last post by:
Hello, I am really stuck on how to get a LDAP connection with my college. http://www.niu.edu/its/www/sharedlib/utilities/ldap/usagedoc/usingldaplogincommandline.html First of all I'm trying to...
1
by: zmunoz | last post by:
I am working on a script using ADSI via COM in PHP. The script works for the most part when I query a user using the following function: function passwordExpires($userDN) { $comLDAP = new...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.