Permiso a Carpetas a Traves de LDAP (Active Direct
Publicado por haf (178 intervenciones) el 18/10/2010 11:39:39
Hola amigos del foro, necesito su ayuda ya que es muy importante que resuelva este asunto en la empresa en la que trabajo ya que no he podido lograrlo y ya la cosa se pone incomoda.
Tengo Una aplicación hecha en vb.net 2008 la cual se autentifica en el active directory atraves del LDAP. Hasta ahí todo bien.
Ahora necesito que el usuario pueda acceder a ciertas carpetas según los permisos otorgados en el Active directory (derechos de Carpeta).
Para autenticarme tengo la siguiente función que trabaja perfecto, pero no se como hacer para acceder a las carpetas según permisos de las mismas (como les he mencionado )
Ayudenme por favor.
Try
Dim strDominio As String = Variables.DominioLDAP
Dim strArray() As String
Dim i As Integer
strArray = Split(DominioLDAP, ".")
strDominio = "LDAP://DC=" & strArray(LBound(strArray))
For i = LBound(strArray) + 1 To UBound(strArray)
strDominio = strDominio & ",DC=" & strArray(i)
Next
Dim objUser As DirectoryEntry
Dim objDirectoryEntry As New DirectoryEntry("", Variables.UsuarioLDAP, Variables.PasswordLDAP, AuthenticationTypes.Secure)
objDirectoryEntry.Path = "LDAP://" + Variables.DominioLDAP
Dim objDirectorySearcher As New DirectorySearcher(objDirectoryEntry)
Dim objSearchResult As SearchResult
objDirectorySearcher.Filter = "(SAMAccountName=" & Variables.UsuarioLDAP & ")"
objSearchResult = objDirectorySearcher.FindOne()
objUser = objSearchResult.GetDirectoryEntry()
Return True
Catch ex As System.Exception
MessageBox.Show(ex.Message)
Return False
End Try
Tengo Una aplicación hecha en vb.net 2008 la cual se autentifica en el active directory atraves del LDAP. Hasta ahí todo bien.
Ahora necesito que el usuario pueda acceder a ciertas carpetas según los permisos otorgados en el Active directory (derechos de Carpeta).
Para autenticarme tengo la siguiente función que trabaja perfecto, pero no se como hacer para acceder a las carpetas según permisos de las mismas (como les he mencionado )
Ayudenme por favor.
Try
Dim strDominio As String = Variables.DominioLDAP
Dim strArray() As String
Dim i As Integer
strArray = Split(DominioLDAP, ".")
strDominio = "LDAP://DC=" & strArray(LBound(strArray))
For i = LBound(strArray) + 1 To UBound(strArray)
strDominio = strDominio & ",DC=" & strArray(i)
Next
Dim objUser As DirectoryEntry
Dim objDirectoryEntry As New DirectoryEntry("", Variables.UsuarioLDAP, Variables.PasswordLDAP, AuthenticationTypes.Secure)
objDirectoryEntry.Path = "LDAP://" + Variables.DominioLDAP
Dim objDirectorySearcher As New DirectorySearcher(objDirectoryEntry)
Dim objSearchResult As SearchResult
objDirectorySearcher.Filter = "(SAMAccountName=" & Variables.UsuarioLDAP & ")"
objSearchResult = objDirectorySearcher.FindOne()
objUser = objSearchResult.GetDirectoryEntry()
Return True
Catch ex As System.Exception
MessageBox.Show(ex.Message)
Return False
End Try
Valora esta pregunta


0