1 |
Attribute VB_Name = "ADsMain" |
2 |
Option Explicit |
3 |
|
4 |
Public Function OpenObject(adsPath As String) As Object |
5 |
|
6 |
Dim CredentialsObject As IADsOpenDSObject |
7 |
|
8 |
Set CredentialsObject = GetObject("LDAP:") |
9 |
|
10 |
'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "Administrator@nt5dom.msft.com", "", 0) |
11 |
'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=root,o=Tunemedia,c=de", "martha", 0) |
12 |
Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=admin,o=netfrag.org,c=de", "ldap", 0) |
13 |
|
14 |
End Function |
15 |
|
16 |
|
17 |
Sub Enumerate(strPath As String) |
18 |
Dim MyContainer As IADsContainer |
19 |
Dim MySubContainer As IADsContainer |
20 |
Dim Object As IADs |
21 |
|
22 |
On Error Resume Next |
23 |
|
24 |
'Bind to container object |
25 |
Set MyContainer = OpenObject(strPath) |
26 |
|
27 |
'Enumerate child objects |
28 |
For Each Object In MyContainer |
29 |
Err.Clear |
30 |
Debug.Print Object.adsPath |
31 |
If Err <> 0 Then Exit For |
32 |
Set MyContainer = GetObject(Object.adsPath) |
33 |
If Object.iscontainer Then Enumerate (Object.adsPath) |
34 |
Next Object |
35 |
End Sub |