Discussion :

[DeWaRs]

Bonjour a tous,

Je cherche désespérément à récuperer la liste des tous les "physicalDeliveryOfficeName" dans l'active directory de la société pour laquelle je travail, mais en vain. J'essaie avec le code suivant mais "results " contient toujours 0 résultat.

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
Dim LDAP As New DirectoryEntry("LDAP://maldap")
            Dim searcher As DirectorySearcher = New DirectorySearcher(LDAP)
            searcher.PropertiesToLoad.Add("physicalDeliveryOfficeName")
 
            searcher.Filter = "(objectClass=physicalDeliveryOfficeName)"
 
            Dim results As System.DirectoryServices.SearchResultCollection
 
            Try
                results = searcher.FindAll()
            Catch ex As Exception
                Exit Sub
            End Try
 
            Dim result As System.DirectoryServices.SearchResult
 
            For Each result In results
                '   MsgBox(Trim(CStr(result.Properties("physicalDeliveryOfficeName")
 
            Next

Quelqu'un pourrait-il m'éclairer ?

Cordialement.

DeWaRs

[shayw]

Salut
peut etre ici
http://www.daniweb.com/software-deve...-get-user-info

[DeWaRs]

Hello,

Voila une fonction qui marche.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Public Shared Function GetUserInfobyDomain(ByVal inSAM As String, ByVal inType As String) As String
        Using HostingEnvironment.Impersonate()
 
            Try
 
                Dim LDAP As DirectoryEntry
                    LDAP = New DirectoryEntry("LDAP://MyDomain/CN=Users,DC=My,DC=Domain", "Domain\User", "Password")
 
 
                Dim SamAccount As String = Right(inSAM, Len(inSAM) - InStr(inSAM, "\"))
 
                LDAP.AuthenticationType = AuthenticationTypes.ServerBind
                Dim mySearcher As New DirectorySearcher(LDAP)
                Dim mySearchResultColl As SearchResultCollection
                Dim mySearchResult As SearchResult
                Dim myResultPropColl As ResultPropertyCollection
                Dim myResultPropValueColl As ResultPropertyValueCollection
                'Build LDAP query
                mySearcher.Filter = ("(&(objectClass=user)(samaccountname=" & SamAccount & "))")
                mySearchResultColl = mySearcher.FindAll()
                'I expect only one user from search result
                Select Case mySearchResultColl.Count
                    Case 0
                        Return "Null"
                        Exit Function
                    Case Is > 1
                        Return "Null"
                        Exit Function
                End Select
 
                'Get the search result from the collection
                mySearchResult = mySearchResultColl.Item(0)
 
                'Get the Properites, they contain the usefull info
                myResultPropColl = mySearchResult.Properties
 
                'displayname, mail
                'Retrieve from the properties collection the display name and email of the user
                myResultPropValueColl = myResultPropColl.Item(inType)
                Return CStr(myResultPropValueColl.Item(0))
 
            Catch ex As System.Exception
                Return "" 'ex.ToString
                'do some error return here.
            End Try
End function

Pour ma question, cela donne

Code :

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

GetUserInfobyDomain("NomDuUser", "physicalDeliveryOfficeName")

En espérant que cela aide quelqu'un un jour...

Cordialement

DeWaRs