[VB.NET] Se connecter a l'ACTIVE DIRECTORY

Version imprimable

29/03/2010, 09h52
maxp74

[VB.NET] Se connecter a l'ACTIVE DIRECTORY

Bonjour,

Dans le cadre d'un projet, je désirerais me connecter à l'active directory et lister tous les PC sur lesquels un User choisie se serai connecter 8O8O Je ne sais pas si c'est clair !!
Pouvez vous m'aidez ?? :zoubi::zoubi:
Merci d'avance.
29/03/2010, 11h59
Flamby38

tu peux lire ca pour savoir comment te connecter à l'AD :
http://www.supinfo-projects.com/fr/2...intranet_fr/1/
29/03/2010, 12h25
maxp74

Bonjour,

Je souhaite une code pour du VB.NET hors vous m'avez fourni un site pour de l'asp.net.

Mais merci quand même:ccool::mrgreen:
29/03/2010, 12h47
Flamby38
Certes, mais même si la syntaxe diffère un peu c'est quasiment pareil.
Si tu regardes le début du tutorial il te montre comment se connecter à l'AD :
Code:

1 2 3 4 imports System.DirectoryServices DirectoryEntry Ldap = new DirectoryEntry( "LDAP://nom_du_serveur" , "le login" , "le mot de passe" )
une fois que tu es connecté tu peux utiliser toutes les informations disponibles dans l'active directory en effectuant une recherche, tu trouveras les fonctions dans le tutoriel (la syntaxe des boucles VB.NET est différente mais les fonctions sont les memes).

Ceci étant dit l'active directory ne saura pas te dire sur quels PC un utilisateur s'est connecté. En revanche elle te donnera la liste des PC, ce qui est un bon début.

Une dernière chose, il existe un logiciel qui s'apelle LDAPBrowser de softerra qui t'aidera grandement à savoir quelles infos sont disponibles dans l'AD, le nom des propriétés, etc...
29/03/2010, 14h31
maxp74

re:

Du coup j'ai deux erreur dont je ne voie pas comment les reglé :oops::oops:
Pouvez vous m'aidez ??

Citation:

Error 1 'DirectoryEntry' is a type and cannot be used as an expression. C:\Documents and Settings\thm1bnv\My Documents\Visual Studio 2005\Projects\Projet pour Danielle\Projet pour Danielle\Form1.vb 48

Citation:

Error 2 Name 'Ldap' is not declared. C:\Documents and Settings\thm1bnv\My Documents\Visual Studio 2005\Projects\Projet pour Danielle\Projet pour Danielle\Form1.vb 48

Voilà je sais je suis un neophite:calim2::calim2: mais bon j'apprend :ccool:
29/03/2010, 15h30
Flamby38

poste ton code qu'on puisse voir ce qui ne va pas.
On a tous commencé un jour :aie:

Bonjour,

Voilà mon code source :
Code:

1 2 3 4 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click DirectoryEntry(Ldap = New DirectoryEntry("LDAP://nom_du_serveur", Textbox1.Text, Textbox2.text)) End Sub
Oui il faut commencer un jour mais faut aimer avoir mal a la tête :aie: :ccool:

30/03/2010, 15h35
Flamby38

As tu mis en début du fichier vb le "imports System.DirectoryServices"?
30/03/2010, 16h50
alicia26

Bonjour à tous,
je suis aussi entrain de vouloir connecter mon appli web à active directory en passant par la configuration du web.config.
Lorsque j'arrive sur ma page Login.aspx, il me renvoie cette erreur:

Citation:

Échec de la demande d'autorisation de type 'System.DirectoryServices.DirectoryServicesPermission, System.DirectoryServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'

Merci de votre aide.
30/03/2010, 18h00
Flamby38

probablement que ton serveur ou ton login ou ton mot de passe n'est pas correct alicia.
31/03/2010, 08h08
maxp74

Bonjour,

Oui j'ai bien mis en haut "Imports System.DirectoryServices"
31/03/2010, 09h58
alicia26

bonjour et merci pour ta réponse!

je crois que je suis entrain de me mélanger les pétales.J'ai modifié le web-config et j'ai l'imppressionde ma méthode ne suit aucune logique.
pourrais tu stp m'indiquer la méthode à suivre.
Merci.

Bonjour,

C'est exactement ton code ?
Citation:
Envoyé par maxp74
Voilà mon code source :
Code:

1 2 3 4 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click DirectoryEntry(Ldap = New DirectoryEntry("LDAP://nom_du_serveur", Textbox1.Text, Textbox2.text)) End Sub
Je suppose que tu veux que LDAp soit ton objet de type DirectoryEntry.
En vb.NEt, il faut écrire :

Code:

Dim Ldap As New DirectoryEntry("LDAP://nom_du_serveur", Textbox1.Text, Textbox2.text)

ou

Code:

Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://nom_du_serveur", Textbox1.Text, Textbox2.text)

Pour être plus précise, ci après les étapes de mon code:

primo, le web-config

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<connectionStrings>
  <add name="ADConnectionString" connectionString="LDAP://monserveur"/>
	</connectionStrings>
 
<compilation debug="true" strict="false" explicit="true">
			<assemblies>
			<add assembly="System.DirectoryServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/></assemblies>
</compilation>
 
<membership defaultProvider="ActiveDirectoryProvider">
      <providers>
        <add name="ActiveDirectoryProvider" 
         type="System.Web.Security.ActiveDirectoryMembershipProvider, 
        System.Web, Version=2.0.0.0, Culture=neutral, 
        PublicKeyToken=b03f5f7f11d50a3a" 
         connectionStringName="ADConnectionString" 
         attributeMapUsername="sAMAccountName"/>
      </providers>
</membership>
 
<authentication mode="Forms">
      <forms name=".ADAuthCookie" timeout="43200"></forms>
</authentication>
 
<authorization>
 
      <allow users="*"/>
</authorization>

secundo, ma page Login.aspx

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<asp:Login ID="Login1" runat="server" Height="168px" Width="424px">
        <LayoutTemplate>
         <table style="width: 502px">
            <tr>
                <td style="width: 214px">
                    <asp:Label ID="Label1" runat="server" Font-Bold="True" Font-Names="Verdana" ForeColor="White"
        Text="Compte Utilisateur" Width="139px"></asp:Label></td>
                <td>
                    <asp:TextBox ID="Username" runat="server"></asp:TextBox></td>
            </tr>
            <tr>
                <td style="width: 214px">
    <asp:Label ID="Label2" runat="server" Font-Bold="True" Font-Names="Verdana" ForeColor="White"
        Text="Mot de Passe" ></asp:Label></td>
                <td>
                    &nbsp;<asp:TextBox ID="Password" runat="server" TextMode="Password"></asp:TextBox></td>
            </tr>
            <tr>
                <td style="width: 214px">
                </td>
                <td>
                    <asp:Button ID="btnLogin" runat="server" Text="Se Connecter"  CommandName="Login" Width="149px" /></td>
            </tr>
        </table>
            &nbsp;&nbsp;
        </LayoutTemplate>
    </asp:Login>
 
 <br />
 <asp:Label ID="lblLoginErrorDetails" runat="server"></asp:Label>
    <asp:Label ID="LoginError" runat="server" Text="Label"></asp:Label>

et enfin ma page Login.aspx.vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
Imports System
Imports System.DirectoryServices.ActiveDirectory
 
 
Partial Class Login
    Inherits System.Web.UI.Page
 
 
    Sub Login1_LoginError(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoginError
        Dim Ldap As DirectoryServices.DirectoryEntry = New DirectoryServices.DirectoryEntry("LDAP://monserveur", Login1.UserName.ToString, Login1.Password.ToString)
 
 
        If Login1.UserName = String.Empty And Login1.Password = String.Empty Then
            lblLoginErrorDetails.Text = "Veuillez saisir votre nom d'usager et mot de passe!"
        ElseIf Login1.UserName = String.Empty Then
            lblLoginErrorDetails.Text = "Veuillez saisir votre nom d'usager!"
        ElseIf Login1.Password = String.Empty Then
            lblLoginErrorDetails.Text = "Veuillez saisir votre mot de passe!"
        Else
            Dim userInfo As MembershipUser = Membership.GetUser(Login1.UserName)
            LoginError.Visible = "True"
            If userInfo Is Nothing Then
                lblLoginErrorDetails.Text = "Aucun usager nommé: " & Login1.UserName & ". Réessayer!"
            Else
                If Not userInfo.IsApproved Then
                    lblLoginErrorDetails.Text = "Votre compte, n'a pas été approuvé. Réessayer!"
                ElseIf userInfo.IsLockedOut Then
                    lblLoginErrorDetails.Text = "Nombre de tentative maximum atteinte, votre compte a été désactivé. Contacter l'adminisatrateur!"
                Else
                    lblLoginErrorDetails.Text = "Mot de passe incorrecte!"
                End If
            End If
        End If
    End Sub
 
End Class

En attendant vos posts, j'ai modifié mes codes, j'ai tout enlevé dans le web-config et recodé ma page Login.aspx.vb comme ci dessous

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Imports System.IO
Imports System
Imports System.DirectoryServices
 
Sub Login1_LoginError(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoginError
        'Dim Ldap As Directory = New DirectoryServices.DirectoryEntry("LDAP://srv-mails2:389/DC=moov,DC=ga", Login1.UserName.ToString, Login1.Password.ToString)
 
        Dim Ldap As New DirectoryEntry("LDAP://srv-mails2:389/DC=mondomaine,DC=com", UserName.Text, Password.text)
 
        If Login1.UserName = String.Empty And Login1.Password = String.Empty Then
            lblLoginErrorDetails.Text = "Veuillez saisir votre nom d'usager et mot de passe!"
        ElseIf Login1.UserName = String.Empty Then
            lblLoginErrorDetails.Text = "Veuillez saisir votre nom d'usager!"
        ElseIf Login1.Password = String.Empty Then
            lblLoginErrorDetails.Text = "Veuillez saisir votre mot de passe!"
        Else
            Dim userInfo As MembershipUser = Membership.GetUser(Login1.UserName)
            LoginError.Visible = "True"
            If userInfo Is Nothing Then
                lblLoginErrorDetails.Text = "Aucun usager nommé: " & Login1.UserName & ". Réessayer!"
            Else
                If Not userInfo.IsApproved Then
                    lblLoginErrorDetails.Text = "Votre compte, n'a pas été approuvé. Réessayer!"
                ElseIf userInfo.IsLockedOut Then
                    lblLoginErrorDetails.Text = "Nombre de tentative maximum atteinte, votre compte a été désactivé. Contacter l'adminisatrateur!"
                Else
                    lblLoginErrorDetails.Text = "Mot de passe incorrecte!"
                End If
            End If
        End If
    End Sub
 
End Class

et j'ai cette erreur:

Citation:

Message d'erreur du compilateur: BC30002: Type 'DirectoryEntry' non défini.

Erreur source:

Ligne 11 : 'Dim Ldap As Directory = New DirectoryServices.DirectoryEntry("LDAP://srv-mails2:389/DC=moov,DC=ga", Login1.UserName.ToString, Login1.Password.ToString)
Ligne 12 :
Ligne 13 : Dim Ldap As New DirectoryEntry("LDAP://srv-mails2:389/DC=mondomaine,DC=com", UserName.Text, Password.text)Ligne 14 :
Ligne 15 : If Login1.UserName = String.Empty And Login1.Password = String.Empty Then

31/03/2010, 12h34
alicia26

c'est bon,j'ai ajouté physiquement le fichier System.DirectoryServices.dll dans mon répertoire bin et l'erreur est passé.
Je continue à chercher.
31/03/2010, 14h56
alicia26

j'ai revu tout mon code, les syntaxes sont correctes sauf qu'il m'affiche la même erreur

Citation:

Échec de la demande d'autorisation de type 'System.DirectoryServices.DirectoryServicesPermission, System.DirectoryServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'

est que le lien de ma connexion LDAP est correcte?

Code:

Dim Ldap As New DirectoryEntry("LDAP://192.168.100.4:389", DropDownList2.SelectedValue.ToString, passwd.Text)

Merci de m'éclairer
31/03/2010, 14h59
maxp74
RE:

Bon désoler je vais etre chiant mais sa marche toujours pas lol
Code:

1 2 Dim Ldap As New DirectoryEntry DirectoryEntry("LDAP://nom_du_serveur", TextBox1.Text, TextBox2.Text)
Citation:

Error 1 'DirectoryEntry' is a type and cannot be used as an expression. C:\Documents and Settings\thm1bnv\My Documents\Visual Studio 2005\Projects\Projet pour Danielle\Projet pour Danielle\Form2.vb 29

Et ou puis je trouver mon nom de serveur pour l'AD merci ?? :mrgreen::mrgreen::aie::aie::ccool::ccool:
31/03/2010, 15h13
alicia26

as tu la librairie System.DirectoryServices.dll quelque part dans le répertoire de ton projet?
31/03/2010, 15h23
cougarg

alicia26 :

Citation:

c'est bon,j'ai ajouté physiquement le fichier System.DirectoryServices.dll dans mon répertoire bin et l'erreur est passé.

Tu n'es pas obligée d'ajouter la librairie manuellement. D'ailleurs ce n'est peut-être pas la bonne version.
Si tu utilises Visual, il faut que tu ajoute la référence à ton projet. Pour cela, Clic droit sur ton projet, ajouter une référence. Dans l'onglet .NET, tu dois avoir System.DirectoryServices que tu ajoutes. Au moins, tu es sûr que ta DLL est de la même version que ton environnement.

maxp74 :
Pourquoi tu marque sur une autre ligne ?

Citation:

DirectoryEntry("LDAP://nom_du_serveur", TextBox1.Text, TextBox2.Text)

Ce sont les paramètres de ton new.
Ce serait valable si DirectoryEntry était une fonction.
31/03/2010, 15h36
alicia26

Merci cougarg,
c'est exactement ce que j'ai fait, mais au lieu de le mettre dans mon projet, je l'ai ajouté dans le repertoire bin de mon projet.
31/03/2010, 16h36
cougarg

alicia :
C'est peut être un problème de config.
J'espère que cette ancienne discussion pourra t'aider :http://www.developpez.net/forums/d42...was-unhandled/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System
Imports System.Net
Imports System.DirectoryServices
 
Module Module1
    Sub Main(ByVal args() As String)
 
        Dim entry As DirectoryEntry = New DirectoryEntry("LDAP://mydomain.com", "username", "password")
        Dim searcher As DirectorySearcher = New DirectorySearcher("(&(mailnickname=*)(objectCategory=person))")
 
        searcher.SearchRoot = entry
        searcher.SearchScope = SearchScope.Subtree
 
        For Each result As System.DirectoryServices.SearchResult In searcher.FindAll()
            Dim properties As ResultPropertyCollection = result.Properties
 
            Dim name As ResultPropertyValueCollection = properties("name")
            Dim proxyAddresses As ResultPropertyValueCollection = properties("proxyAddresses")
            Dim legacyExchangeDN As ResultPropertyValueCollection = properties("legacyExchangeDN")
 
            Dim i As Integer
            For i = 0 To proxyAddresses.Count - 1
                Dim address As String = proxyAddresses(i).ToString()
 
                If (address.StartsWith("SMTP:")) Then
                    Console.WriteLine("Username = " + name(0))
                    Console.WriteLine("Email = " + address)
                    Console.WriteLine("LegacyExchangeDN = " + legacyExchangeDN(0))
                End If
            Next
        Next
 
        Console.Read()
 
    End Sub
End Module

01/04/2010, 09h24
maxp74

Bonjour Charouel,

Tout d'abbord merci pour ton aide j'avance bien grace a sa seulement j'ai un petit souci

Code:

Dim properties As ResultPropertyCollection = Result.Properties

Il me dit que Result n'est pas déclarer que dois je faire
01/04/2010, 11h51
charouel

tu doit ajouter le framework .net System.DirectoryServices
Add Reference --> .NET --> System.DirectoryServices
01/04/2010, 12h25
maxp74

Re,

Bas c'est a le probleme:zoubi: c'est que je l'ai déja importer.
Pffff sa me soule sa fait 2 semaine que je bloque au même endroit:cry::cry:
J'ai trouver :ccool::ccool: je suis sur que si je jette le PC par la fenetre hop sa marche top:aie::ccool:

Merci ++
01/04/2010, 12h38
charouel

ca marche pour moi mais il faut etre sur que tu n'as pas un conflit de bibliothèque
01/04/2010, 13h34
maxp74

Comment le savoir ??
01/04/2010, 13h39
charouel

tu reçois une erreur de conflit
System.DirectoryServices est un framework .NET et pas une interface COM
01/04/2010, 14h06
maxp74

non j'ai sa comme erreur :

Citation:

Error 1 Name 'Result' is not declared. C:\Documents and Settings\thm1bnv\My Documents\Visual Studio 2005\Projects\Projet pour Danielle\Projet pour Danielle\Form2.vb 36
01/04/2010, 15h34
charouel

voir ça elle doit marcher
http://morpheus.developpez.com/addotnet/ADVBNET/http://morpheus.developpez.com/addotnet/ADVBNET/
01/04/2010, 15h41
maxp74

:calim2::calim2: J'ai déja éssayé et ca ne marche pas :bug::bug:
01/04/2010, 15h51
charouel

vous avez:
- un problème avec ton Visual Studio
- ou le compte tapper n'est pas admin
- ou le nom de serveur est faux
:aie:
01/04/2010, 15h52
maxp74

c'est ca le souci parce que je ne sais pas ou trouver le nom de domaine de l'AD
06/04/2010, 10h02
alicia26

bonjour et merci à tous!

cougarg,
j'ai déjà lu ce lien mais j'ai un petit souci avec l'anglais. Et altavista me produit une traduction :calim2:

merci à tous de m'aider pour la traduction!!

Citation:

To work around this, just open up your .NET 2.0 security:

Start the .NET Framework 2.0 Configuration tool (from Administrative Tools).
Expand Runtime Security Policy.
Expand User - Code Groups and right-click on All_Code and select Properties.
On the Membership Condition tab make sure All Code is selected in the dropdownlist.
On the Permission Set tab make sure FullTrust is selected in the dropdownlist.
Click OK
Under Runtime Security Policy, expand Machine - Code Groups and right-click on All_Code and select Properties.
Perform steps 4 - 6.
06/04/2010, 15h31
charouel

tu dois modifier ton fichier. NET 2.0 de sécurité. Mais avant tout tu travailles avec quelle version de framework .net?
07/04/2010, 09h04
alicia26

Bonjour,
j'utilise le framework .net v2.0.
07/04/2010, 11h19
charouel

je ne sais pas si cette version répond au besoin car moi j'utilise le 3.0 et ca marche correctement!!