como se el nombre de mi servidor LDAP?
porque tengo este código, pero cacha una excepción y no se como arreglarlo, al parecer el metodo findone no esta funcionando o es la declaración...no lo sé
Código:
Cuando llega a esta línea : Dim result As System.DirectoryServices.SearchResult = search.FindOne() cacha una excepción, creo que talvez no este poniendo bien el path pero no se como declarar el path si alguien pudiera ayudarme se los agradecería....mucha sgracias Dim _path As String = "LDAP://midominio" Dim _filterAttribute As String Public Function Esta(ByVal dominio As String, ByVal usuario As String, ByVal pwd As String) As Boolean Dim domainAndUsername As String = dominio & "\" & usuario Dim entry As System.DirectoryServices.DirectoryEntry = New System.DirectoryServices.DirectoryEntry(_path, domainAndUsername, pwd) Try Dim obj As Object = entry.NativeObject Dim search As System.DirectoryServices.DirectorySearcher= New System.DirectoryServices.DirectorySearcher(entry) search.Filter = "(SAMAccountName=" & usuario & ")" search.PropertiesToLoad.Add("cn") Dim result As System.DirectoryServices.SearchResult = search.FindOne() If (result Is Nothing) Then Return False End If _path = result.Path _filterAttribute = CType(result.Properties("cn")(0), String) Catch ex As Exception Throw New Exception("Error . " & ex.Message) End Try Return True End Function