directoryservices

[Troy]

hello,

I'm trying to write code using the directoryservices namespace that'll
update some AD attributes however the code seems to be failing. I'm hoping
somebody can have a look at it and offer feedback or probably post sample
code:

It's failing at the update attribute level.
Sub ModifyUser(ByRef temp() As String)
' CN=mjtest,OU=SL Users,DC=softlanding,DC=local
Dim AccountDN As String = "CN=" + temp(0) + ",OU=SL
Users,DC=domain,DC=local"
Console.WriteLine(AccountDN)
Try
Dim ent As New DirectoryEntry("LDAP://" + AccountDN)
ent.Properties("otherTelephone").Add( Add("[phone]")
Console.WriteLine(ent.Properties("sAMAccountName") )

'ent.Properties("title").Value = "Test Title"
ent.CommitChanges()
Catch Ex As Exception
Console.WriteLine(Ex.Message)
End Try


End Sub

End Module

Any help is appreciated.

thanks