ADS und VB Programmierung

[Larzarus 10]

: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

 

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

 

THX schon mal

 

Larz :shock:

[zahni 562]

1x posten reicht.

 

-Zahni