Partage de documents sur un réseau local en utilisant l'active directory du doma

Signaler
Messages postés
4
Date d'inscription
vendredi 11 juillet 2008
Statut
Membre
Dernière intervention
15 juillet 2008
-
Messages postés
79
Date d'inscription
lundi 28 octobre 2002
Statut
Membre
Dernière intervention
21 octobre 2008
-
bonjour
je veux faire une application qui permet de réaliser le partage de documents word, excel , access.... présents sur un réseau local entre les différents utilisateurs  de ce réseau.
chaque utilisateur qui va se connecter doit introduire un login et un mot de passe.ces données doivent apartenir a l'active directory ou une bd.
chaque utilisateur a un type d'acces spécifique soit il a seulement acces pour la consultation des documents etant donné qu'il peut envoyer ou recevoir n'importe quel document, soit il a un acces pour la consultation et/ou la mise a jour des documents tel que ajout, suppression,modification ...
svp jai fait une bd sur sql server et jé fé dé webforms sur visual studio2008.Mais j'ai pa pu avancer
Auriez  vous svp un code qui peut m'aider ou un projet pareil
j'ai vraiment besoin de votre aide
merci inifiniement

1 réponse

Messages postés
79
Date d'inscription
lundi 28 octobre 2002
Statut
Membre
Dernière intervention
21 octobre 2008

Si tu utilise la LDAP en réseaux local, tu n'as pas besoin de login et de mot de passe :

Dim user
As
String

' Authentification Digest sur iis
user = Request.ServerVariables(
"REMOTE_USER")

Dim RecupUser()
As
String
RecupUser = user.Split(
"")
user = RecupUser(RecupUser.Length - 1)

Dim objPersonne
As
New clsActiveDirectory

Call objPersonne.CherchePersonne(user)

' Fonction dans ma class clsActiveDirectory

Public
Sub CherchePersonne(
ByVal LeLogin
As
String)

' Cherche les Informations Sur le Compte suivant le Login Transmis

Dim searcher
As
New DirectorySearcher(rootEntry)

' Mettre ici les valeurs des différents attributssearcher.PropertiesToLoad.Add(

"cn")searcher.PropertiesToLoad.Add(

"givenname")searcher.PropertiesToLoad.Add(

"sn")searcher.PropertiesToLoad.Add(

"telephoneNumber")searcher.PropertiesToLoad.Add(

"mail")searcher.PropertiesToLoad.Add(

"physicalDeliveryOfficeName")searcher.PropertiesToLoad.Add(

"Initials")searcher.PropertiesToLoad.Add(

"Description")searcher.PropertiesToLoad.Add(

"department")searcher.PropertiesToLoad.Add(

"Company")searcher.PropertiesToLoad.Add(

"Title")searcher.PropertiesToLoad.Add(

"employeeType")searcher.PropertiesToLoad.Add(

"employeeNumber")searcher.PropertiesToLoad.Add(

"pager")searcher.PropertiesToLoad.Add(

"carLicense")searcher.PropertiesToLoad.Add(

"homePhone")searcher.PropertiesToLoad.Add(

"otherHomePhone")searcher.PropertiesToLoad.Add(

"homePostalAddress")searcher.PropertiesToLoad.Add(

"roomNumber")searcher.PropertiesToLoad.Add(

"comment")searcher.PropertiesToLoad.Add(

"employeeID")searcher.PropertiesToLoad.Add(

"manager")searcher.PropertiesToLoad.Add(

"proxyAddresses")searcher.Filter =

"(&(anr=" & LeLogin &
")(objectCategory=person))"

Dim results
As SearchResultCollectionresults = searcher.FindAll()

If results.Count > 0
Then

Dim result
As SearchResult

For
Each result
In resultsLoginRecherche =

CStr(result.Properties(
"cn")(0)).ToUpperCheminPersonneRecherche =

CStr(result.Path)

Try

Dim i
As
Integer

For i = 0
To 20

ReDim
Preserve proxyAddressesRecherche(i)proxyAddressesRecherche(i) = Trim(

CStr(result.Properties(
"proxyAddresses")(i)))

Next

Catch ex
As Exception

End
Try

TryNomRecherche = Trim(

CStr(result.Properties(
"sn")(0))).ToUpper

Catch ex
As ExceptionNomRecherche =

""

End
Try

TryPrenomRecherche = Trim(

CStr(result.Properties(
"givenname")(0)))

Catch ex
As ExceptionPrenomRecherche =

""

End
Try

TryTelephoneRecherche = Trim(

CStr(result.Properties(
"telephoneNumber")(0)))

Catch ex
As ExceptionTelephoneRecherche =

""

End
Try

TryEmailRecherche = Trim(

CStr(result.Properties(
"mail")(0)))

Catch ex
As ExceptionEmailRecherche =

""

End
Try

TryBureauRecherche = Trim(

CStr(result.Properties(
"physicalDeliveryOfficeName")(0)))

Catch ex
As ExceptionBureauRecherche =

""

End
Try

TryInitialsRecherche = Trim(

CStr(result.Properties(
"Initials")(0)))

Catch ex
As ExceptionInitialsRecherche =

""

End
Try

TryDescriptionRecherche = Trim(

CStr(result.Properties(
"Description")(0)))

Catch ex
As ExceptionDescriptionRecherche =

""

End
Try

TryEntrepriseRecherche = Trim(

CStr(result.Properties(
"Company")(0)))

Catch ex
As ExceptionEntrepriseRecherche =

""

End
Try

TryServiceRecherche = Trim(

CStr(result.Properties(
"department")(0)))

Catch ex
As ExceptionServiceRecherche =

""

End
Try

TryTitreRecherche = Trim(

CStr(result.Properties(
"Title")(0)))

Catch ex
As ExceptionTitreRecherche =

""

End
Try

TryStatutRecherche = Trim(

CStr(result.Properties(
"employeeType")(0)))

Catch ex
As ExceptionStatutRecherche =

""

End
Try

TryNumEmployeRecherche = Trim(

CStr(result.Properties(
"employeeNumber")(0)))

Catch ex
As ExceptionNumEmployeRecherche =

""

End
Try

TryDateNaissanceRecherche = Trim(

CStr(result.Properties(
"pager")(0)))

Catch ex
As ExceptionDateNaissanceRecherche =

""

End
Try

TryParkingRecherche = Trim(

CStr(result.Properties(
"carLicense")(0)))

Catch ex
As ExceptionParkingRecherche =

""

End
Try

TryTelephonePersoRecherche = Trim(

CStr(result.Properties(
"homePhone")(0)))

Catch ex
As ExceptionTelephonePersoRecherche =

""

End
Try

TryPortablePersoRecherche = Trim(

CStr(result.Properties(
"otherHomePhone")(0)))

Catch ex
As ExceptionPortablePersoRecherche =

""

End
Try

TryBadgeRecherche = Trim(

CStr(result.Properties(
"roomNumber")(0)))

Catch ex
As ExceptionBadgeRecherche =

""

End
Try

TryCommentaireRecherche = Trim(

CStr(result.Properties(
"comment")(0)))

Catch ex
As ExceptionCommentaireRecherche =

""

End
Try

TryParcoursProfessionnelRecherche = Trim(

CStr(result.Properties(
"Description")(0)))

Catch ex
As ExceptionParcoursProfessionnelRecherche =

""

End
Try

TryAdressePersoRecherche = Trim(

CStr(result.Properties(
"homePostalAddress")(0)))

Catch ex
As ExceptionAdressePersoRecherche =

""

End
Try

TryIdRecherche = Trim(

CStr(result.Properties(
"employeeID")(0)))

Catch ex
As ExceptionIdRecherche =

""

End
Try

Next

End
If

End
Sub

Pour les droits, il suffit ensuite de créer des groupes dans ta LDAP et tu verifies à quel groupe appartient la personne connectée.