'Aufgabe Nr. 1 der Klausur. Dieses Programm liest Flugplandaten aus einer
'MySql-Datenbank aus und gibt diese in einer Texdatei aus.

'strPath="LDAP://10.17.171.200/ou=de,ou=eu,dc=Bitwerk,dc=com"
strPath="LDAP://10.17.171.200/cn=MMUELLER,ou=de,ou=eu,dc=Bitwerk,dc=com"
strAdmin="cn=Administrator,cn=Users,dc=Bitwerk,dc=com"
strPWD="bitwerk4ovm"

Set adsNamespace=GetObject("LDAP:")
'Set adsContainer=adsNamespace.openDSObject(strPath,strAdmin,strPWD,0)
Set ngroupe=adsNamespace.openDSObject(strPath,strAdmin,strPWD,0)
'    set ngroupe= adsContainer.create("group", "cn=MMUELLER")
'    ngroupe.setInfo
    
    ngroupe.add("LDAP://10.17.171.200/cn=user1,cn=Users,dc=bitwerk,dc=com")
    ngroupe.add("LDAP://10.17.171.200/cn=user2,cn=Users,dc=bitwerk,dc=com")
    ngroupe.setInfo

text="Liste der Mitglieder:" & vbCr

'FOR EACH obj in adsContainer
'    text=text & obj.name & " " & obj.path & vbCr
'NEXT

msgbox text