:cool:

Option Explicit

Private Sub cmdAlleBenutzerauflisten_Click()

Dim c As IADsContainer

Dim u As IADsUser

Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local")

c.Filter = Array("User")

For Each u In c

lstallebenutzer.AddItem u.Get("samaccountname")

Next

End Sub

Private Sub cmdallegruppenauflisten_Click()

Dim z As IADsContainer

Dim x As IADsGroup

Set z = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local")

z.Filter = Array("Group")

For Each x In z

lstallegruppen.AddItem x.Get("samaccountname")

Next

End Sub

Private Sub cmdbeenden_Click()

End

End Sub

Private Sub cmdbenutzer_Click()

Dim g As IADsGroup

Dim benutzer As String

Dim gruppe As String

benutzer = txtBenutzer.Text

gruppe = txtgruppe.Text

Set g = GetObject("LDAP://cn=" & gruppe & ",ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local")

g.Add "LDAP://cn=" & benutzer & ", ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local"

MsgBox "Benutzer zur Gruppe hinzugefügt!"

End Sub

'Private Sub cmdBenutzerauflisten_Click()

'Dim gruppe As String

'gruppe = Ai3a02JOE

'Dim obj As ActiveDs.IADs

'Const LDAP = "LDAP://cn=" & gruppe & ",ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local"

'Set oGroup = GetObject(LDAP)

'For Each obj In oGroup.Members

'MsgBox obj.Name

Private Sub cmdeinfuegen_Click()

'Anlegen einer neuen Gruppe

Dim g As IADsGroup

Dim c 'As IADsContainer

'Dim g As IADsContainer

Dim gruppe As String

gruppe = txteingabe.Text

'Bindung an Container

Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local")

'Erzeugung einer neuen Gruppe

Set g = c.Create("group", "cn=AI3A02-" & gruppe)

'Attribute setzen

g.Put "samAccountName", CStr("ai3a02-" & gruppe)

g.SetInfo

MsgBox "Gruppe wurde angelegt"

'Set ADSIADS_createGroup = g

lstallegruppen.Clear

cmdallegruppenauflisten_Click

End Sub

Private Sub cmdeinfuegen2_Click()

'Anlegen eines neuen Benutzers im Active Directory

Dim c As IADsContainer

Dim u As IADsUser

Dim benutzer As String

benutzer = txteingabe2.Text

'Bindung an Container

Set c = GetObject("LDAP://ou=AG02,ou=AGs,ou=AI3A,ou=Kurse,dc=training,dc=local")

'Erzeugung neuer Benutzers

Set u = c.Create("User", "cn=AI3A02-" & benutzer)

u.Put "samAccountName", CStr("ai3a02-" & benutzer)

'Konto aktivieren

u.SetInfo

u.AccountDisabled = False

u.SetInfo

MsgBox "Benutzer wurde angelegt"

lstallebenutzer.Clear

cmdAlleBenutzerauflisten_Click

End Sub

Ich müsste das hier alles genau erklärt haben mit kommentaren wäre super :confused:

ich habs zwar programmiert verstehe auch ein wenig davon aber will es halt ganz genau wissen

THX schon mal

Larz :cry: :cry: :cry: :shock:

der code ist doch teilweise eh schon kommentiert (wenn auch nicht durchgängig) und zumeist selbsterklärend. was willst du konkret erklärt haben oder verstehst du nicht? hast du bei deinen quellen keine erklärungen dazu gefunden?

der "selbstprogrammierte" code, der zum teil aus dem internet stammt (zumindest finde ich haufenweise übereinstimmungen mit google) müsste z.b. auch in der MSDN ausführlich behandelt werden.

s'Amstel