AccueilCodesTutorielsForumsEmploiLivresConnexion

  • ASP / ASP.NET CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 04 00:44:09
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : partage de documents sur un réseau local en utilisant l'active directory du domaine [ Base de données / MySQL ] (batbouta86)

lundi 14 juillet 2008 à 12:56:51 | partage de documents sur un réseau local en utilisant l'active directory du domaine

batbouta86
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

mardi 15 juillet 2008 à 15:01:42 | Re : partage de documents sur un réseau local en utilisant l'active directory du domaine

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

Dim user AsString

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

Dim RecupUser() AsString
RecupUser = user.Split("\")
user = RecupUser(RecupUser.Length - 1)

Dim objPersonne AsNew clsActiveDirectory
Call objPersonne.CherchePersonne(user)


' Fonction dans ma class clsActiveDirectory

PublicSub CherchePersonne(ByVal LeLogin AsString)

' Cherche les Informations Sur le Compte suivant le Login Transmis

Dim searcher AsNew DirectorySearcher(rootEntry)

' Mettre ici les valeurs des différents attributs

searcher.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 SearchResultCollection

results = searcher.FindAll()

If results.Count > 0 Then

Dim result As SearchResult

ForEach result In results

LoginRecherche =

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

CheminPersonneRecherche =

CStr(result.Path)

Try

Dim i AsInteger

For i = 0 To 20

ReDimPreserve proxyAddressesRecherche(i)

proxyAddressesRecherche(i) = Trim(

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

Next

Catch ex As Exception

EndTry

Try

NomRecherche = Trim(

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

Catch ex As Exception

NomRecherche =

""

EndTry

Try

PrenomRecherche = Trim(

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

Catch ex As Exception

PrenomRecherche =

""

EndTry

Try

TelephoneRecherche = Trim(

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

Catch ex As Exception

TelephoneRecherche =

""

EndTry

Try

EmailRecherche = Trim(

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

Catch ex As Exception

EmailRecherche =

""

EndTry

Try

BureauRecherche = Trim(

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

Catch ex As Exception

BureauRecherche =

""

EndTry

Try

InitialsRecherche = Trim(

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

Catch ex As Exception

InitialsRecherche =

""

EndTry

Try

DescriptionRecherche = Trim(

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

Catch ex As Exception

DescriptionRecherche =

""

EndTry

Try

EntrepriseRecherche = Trim(

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

Catch ex As Exception

EntrepriseRecherche =

""

EndTry

Try

ServiceRecherche = Trim(

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

Catch ex As Exception

ServiceRecherche =

""

EndTry

Try

TitreRecherche = Trim(

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

Catch ex As Exception

TitreRecherche =

""

EndTry

Try

StatutRecherche = Trim(

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

Catch ex As Exception

StatutRecherche =

""

EndTry

Try

NumEmployeRecherche = Trim(

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

Catch ex As Exception

NumEmployeRecherche =

""

EndTry

Try

DateNaissanceRecherche = Trim(

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

Catch ex As Exception

DateNaissanceRecherche =

""

EndTry

Try

ParkingRecherche = Trim(

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

Catch ex As Exception

ParkingRecherche =

""

EndTry

Try

TelephonePersoRecherche = Trim(

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

Catch ex As Exception

TelephonePersoRecherche =

""

EndTry

Try

PortablePersoRecherche = Trim(

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

Catch ex As Exception

PortablePersoRecherche =

""

EndTry

Try

BadgeRecherche = Trim(

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

Catch ex As Exception

BadgeRecherche =

""

EndTry

Try

CommentaireRecherche = Trim(

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

Catch ex As Exception

CommentaireRecherche =

""

EndTry

Try

ParcoursProfessionnelRecherche = Trim(

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

Catch ex As Exception

ParcoursProfessionnelRecherche =

""

EndTry

Try

AdressePersoRecherche = Trim(

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

Catch ex As Exception

AdressePersoRecherche =

""

EndTry

Try

IdRecherche = Trim(

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

Catch ex As Exception

IdRecherche =

""

EndTry

Next

EndIf

EndSub



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


Cette discussion est classé dans : local, réseau, partage, active, documents

Répondre à ce message

Sujets en rapport avec ce message

Serveur web local avec IIS [ par Troopers ] Salut!Je débute avec IIS!J'ai créé un serveur web local sur ma machine de dev qui est sur un réseau LAN dans mon entreprise. Jusque là ça fonctionne.. ASP et accès à un partage réseau [ par guidal ] Je souhaite, par une page ASP, accéder à un partage réseau et afficher (par exemple) les répertoires et/ou les fichiers.J'ai essayé d'y accéder par un Impossible d'accéder a partir d’un autre micro en réseau local [ par salimdz2004 ] bonjour Impossible d'accéder a partir d’un autre micro en réseau local J’ai un problème pour accéder à mon site local a partir d’un autre micro dans Pb pour se connecter à une base de donnée située sur le réseau local (mais sur un autre poste) [ par 6miK ] Bonjour, j'essai de me connecter à une base de donnée sur un PC situé sur le même réseau local.Je connais son IP, le nom de la base de donnée et il n' Lien en local pour imprimante [ par Nodoka ] Bonjour, Je travaille sur un projet qui consiste a avoir accès au serveur de partage d'imprimante pour installé celles-ci sur le pc du l'utilisateur. aide réseau sans fil [aspfr --> bar] [ par DeathGuard ] Bonjour.Ayant créé un réseau sans fil il y a quelques jours je trouve que mon ordinateur rame énormément lors du chargement d'une page internet. Je vo Formulaire htlm vers excel en local [ par danidevito ] Bonjour a tous Je me permet de venir auprès de vous déja parce que je suis novice en informatique ou en programation.pour ma part , j'ai crée un formu Affichage de plusieurs documents word dans une page web asp/vb.net [ par Princesse ] Bonjour,Voilà, je souhaiterais savoir comment afficher plusieurs documents word dans une page web en asp/vb.net.Actuellement je sais le faire pour un Sélection d'un fichier réseau et récupération de son chemin complet [ par jocelyn_laurin ] Bonjour à toutes et tous !Je voudrais tout d'abord remercier les concepteurs de ce site très bien fait et qui m'aide tous les jours dans mes développe


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,218 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.