microsoft.public.adsi.general
  Home FAQ Contact Sign in
microsoft.public.adsi.general only
 
Advanced search
May 2008
motuwethfrsasuw
   1234 18
567891011 19
12131415161718 20
19202122232425 21
262728293031  22
2008
 Jan   Feb   Mar   Apr 
 May   Jun   Jul   Aug 
 Sep   Oct   Nov   Dec 
2008 2007 2006  
total
microsoft.public.adsi.general Profile…
RELATED GROUPS

POPULAR GROUPS

more...

 Up
  Authenticate with Novell Edirectory with .Net 2.0 DirectoryServices over SSL         


Author: andrewt
Date: May 13, 2008 09:39

I have code (VB.NET, .Net 2.0) that authenticates to Novell Edirectory
over LDAP (below). I need to change it to work over SSL, but I can't
get it to work.

Dim dn As String = "cn=" & username & ",ou=users,o=org"
Dim path As String = "LDAP://sub.domain.com"
Dim entry As DirectoryEntry = New DirectoryEntry(path, dn,
pwd, AuthenticationTypes.FastBind)

I have tried changing the AuthenticationType to SecureSocketsLayer
(which is suggested in this article http://www.codeproject.com/KB/system/arbauthentication.aspx),
but that gives the error: "The server is not operational". I can see
from the netstat that it is using ldaps....
TCP r2d2:1295 sub.domain.com:ldaps TIME_WAIT
TCP r2d2:1297 sub.domain.com:ldaps TIME_WAIT

Another potential issue is that it is a self signed certificate, not
one from a trusted CA. From this thread I suspect that may be the
issue.
http://groups.google.com/group/microsoft.public.adsi.general/browse_thread/threa...#ec3a9651db205107
Show full article (1.37Kb)
3 Comments
  Adding values to user object attribute         


Author: IainM
Date: May 13, 2008 08:27

I am using the code below to add a value to users' "employeeType" attribute,
but the "UserObject.SetInfo()" line always produces the error "A first chance
exception of type 'System.Runtime.InteropServices.COMException' occurred in
app.exe".

Can anyone tell me where I've went wrong?

Thanks,
Iain

Dim UserObject As ActiveDs.IADs
Dim strBuffer As String

Try
UserObject = GetObject(strDN)
strBuffer = ""
UserObject.Put(strBand, "employeeType")
UserObject.SetInfo()
Catch
Msgbox "Error!"
Finally
UserObject = Nothing

End Try
3 Comments