Discussion :

[poussin_44]

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
        Public Function computerExist(ByVal computerAverifier As String, _
	                          ByVal cheminLdapAexaminer As String, _
	                          ByVal monUsername As String, _
	                          ByVal monPassword As String) As Boolean
 
        Try
            ' Connexion à l'annuaire
            Dim monEntry As New DirectoryEntry(cheminLdapAexaminer, monUsername, _
			                    monPassword, AuthenticationTypes.Secure)
            Dim maRecherche As DirectorySearcher = New DirectorySearcher
 
            ' Paramétrage de la requête
            maRecherche.SearchRoot = monEntry
            maRecherche.Filter = "(&(objectClass=computer) (cn=" + computerAverifier + "))"
 
            ' Récupération du résultat de la requête
            Dim results As SearchResultCollection = maRecherche.FindAll()
            monEntry.Close()
 
            ' Analyse du résultat
            If results.Count = 0 Then
                Return False
            Else
                Return True
            End If
 
        Catch ex As Exception
 
            MessageBox.Show(ex.Message)
 
        End Try
 
    End Function

Mon problème est que la réponse retournée est toujours false alors que le compte ordinateur existe bien.
Et il me génère une erreur "Unspecified error" dans une msgbox lorsque j'appui sur le bouton qui déclanche le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        Dim Verifier As Boolean = computerExist("test", "OU=Test,DC=nantes,DC=fr", "login", "mdpasse")
        If Verifier = True Then
            MsgBox("existe")
        Else
            MsgBox("n'existe pas")
        End If

[LefortLudovic]

Ton code me semble correct es tu sur que ce n'est pas un problème de sécurité. Peux tu te connecter a L'AD et retourner tout les élements (sans recherche particulière) ?

[poussin_44]

Bah oui justement, je peux lister une OU ou déplacer un compte d'une OU à l'autre alors je ne vois pas pourquoi?

[poussin_44]

Bon voilà mon petit souci, j'ai une commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dsquery computer domainroot -o dn -name toto -d masociete.com -u admin -p password

Elle vérifie si un compte d'ordinateur est présent dans Active Directory. Je veux donc savoir si la commande revoie une réponse ou pas.

J'ai fait le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If  CBool(Shell("dsquery computer domainroot -o dn -name toto -d nantes.ares.ssii -u admininstall -p InstallAdmin44")) Then
 
MsgBox("pc present")
 
Else
 
MsgBox("pc pas present")
 
End If

Mais cela me renvoi toujours que le pc est présent car la commande fonctionne toujours sauf qu'elle donne un résultat quand le compte existe et n'en donne pas quand le compte n'existe pas.