I'm in the process of writing a web page to allow teachers to set the Active Directory password of their students. I have a login page for teachers that authenticates the teacher using the following code..
Dim root As DirectoryEntry = New DirectoryEntry( _
adsPath, _
username, _
password, _
AuthenticationTypes.Secure Or AuthenticationTypes.FastBind _
)
Using (root)
Try
'force the bind
Dim tmp As Object = root.NativeObject
Return True
...
Go to the complete details ...