Write to Active Directory

[zoneal]

Hi,

I need to write something to active directory, the structure of the
Active Directory as below:

DC
- Account Group
- xx group
- Distribution Group
- xx
- Test
- member 1 of test
- member 2 of test

I want to add another member to Test under Distribution Group, the code
i am using as below, but it fails when executing the CommitChanges
statement:

Private Sub addToAD()

Dim group As New
DirectoryServic es.DirectoryEnt ry("LDAP://DomainName/OU=Distribution
Groups,DC=xx,DC =xxx")

group.Authentic ationType =
DirectoryServic es.Authenticati onTypes.Delegat ion
group.Username = "domainnameewUs ername"
group.Password = "password"

Dim newdn As String
newdn = "CN=newUsername ,OU=-Test, OU=Distribution
Groups,DC=xx,DC =xxx"
group.Propertie s("member").Add (newdn)
group.CommitCha nges()

End Sub

Thanks