Script - Kann mir das jemand beschreiben und erklären
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
|
