Script - Kann mir das jemand beschreiben und erklären

[Larzarus 10]

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

[zahni 562]

Och, Du hast doch ein fertiges Script das funktioniert. Du verstehst es am Besten, wenn Du dir die entsprechendes VBS-Dokus suchst und dann selber erarbeitest.

 

-Zahni