Jump to content

Recommended Posts

Posted

I only used vb.NET once and after that I didnt really touch it again so I cant really give a decent comparison unfortunatly.

 

I will be taking a look into that LDAP and vb 2005 stuff tommorow though.

Posted

You might find that because you have concentrated on VB6 and haven't gone much into .NET that the jump straight into VB 2005 Express and LDAP interaction will be a huge leap! Then again, the principles are the same.

 

What are you planning on doing with LDAP and VB 2005?

 

Paul

  • 3 months later...
Posted

Anything and everything, maybe you can upload it or email me it or something if thats ok.

 

Most important things would be how to do a logon for users that would compare what they type in for the logon versus there true logon that they use in AD so in effect the users have one logon to remember ie one username and one password.

 

Also how to attain the username so when they are logged in on there session it displays the username and other info.

 

We will be doing an intranet as a project soon so any help you could give us would be much appreicated, obviously !!

 

Thanks

Posted
Most important things would be how to do a logon for users that would compare what they type in for the logon versus there true logon that they use in AD so in effect the users have one logon to remember ie one username and one password.

 

Use windows authenticated logon if its an intranet... saves coding forms based logons and messing with ad integration + IE will automatically pass authentication from its current windows session so they wont even have to log on to the website.

Posted

First of all add a referance to system.directory.services. Once this is done add the following to a form:

Command button

3 text boxs'

 

use this code for the command button:

 

ValidateActiveDirectoryLogin(text3.text, text1.text, text2.text)

 

add this function

 

Dim Success As Boolean = False

Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain, Username, Password)

Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)

Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel

Try

Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne

Success = Not (Results Is Nothing)

Catch

Success = False

End Try

MsgBox(Success)

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...