vb/04-AdsContainerExample/ADsMain.bas

Attribute VB_Name = "ADsMain"
Option Explicit

Public Function OpenObject(adsPath As String) As Object

    Dim CredentialsObject As IADsOpenDSObject
    
    Set CredentialsObject = GetObject("LDAP:")
    
    'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "Administrator@nt5dom.msft.com", "", 0)
    'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=root,o=Tunemedia,c=de", "martha", 0)
    Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=admin,o=netfrag.org,c=de", "ldap", 0)

End Function


Sub Enumerate(strPath As String)
Dim MyContainer As IADsContainer
Dim MySubContainer As IADsContainer
Dim Object As IADs

On Error Resume Next

'Bind to container object
Set MyContainer = OpenObject(strPath)

'Enumerate child objects
For Each Object In MyContainer
    Err.Clear
    Debug.Print Object.adsPath
    If Err <> 0 Then Exit For
    Set MyContainer = GetObject(Object.adsPath)
    If Object.iscontainer Then Enumerate (Object.adsPath)
Next Object
End Sub
1	joko	1.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
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26