| 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 |
Parent Directory
| 
Revision Log
