![]() ![]() ' MsgBox("Error is " & e.Message) Return RetArrayĪs a basic, when we are writing applications that are related with LDAP, we need to take reference to the System.DirectoryServices namespace. ![]() OResult.GetDirectoryEntry().Properties( " cn").Value) RetArray.Add( oResult.GetDirectoryEntry().Properties( " uid").Value, _ If Not oResult.GetDirectoryEntry().Properties( " cn").Value = " " Then ' To retrieve list of all LDAP users ' This function returns HashTableĭim sServerName As String = " mail" Dim oRoot As DirectoryEntry = New DirectoryEntry( " LDAP://" & ldapServerName & _ĭim oSearcher As DirectorySearcher = New DirectorySearcher(oRoot) ![]() Copy Code Public Function GetAllUsers( ByVal ldapServerName As String) As Hashtable ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |