Larzarus

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



Hiermit kann man benutzer& Gruppen anlegen und benutzer gruppen zuordnen.

Ich müsste nur alles mit Kommentaren und erklärt haben wäre wirklich sehr nett vielen Dank schon mal