Help resetting user account password in active directory

[teejayem]

Hi.

I have searched the groups and have been unable to find an answer to
my question.

I am trying to reset the password of a user account in active
directory.

I have been trying to do this using the following code:-

Private Sub ResetPassword(B yVal User As String, ByVal NewPassword
As String)
Dim objUser As DirectoryServic es.DirectoryEnt ry
Dim strDomain As String

strDomain = GetDomainName()

objUser = New DirectoryServic es.DirectoryEnt ry("WinNT://" &
strDomain & "/" & User & ",User")

Dim objPassword As Object() = {NewPassword}

objUser.Invoke( "SetPasswor d", objPassword)

objUser.CommitC hanges()

objUser.Close()

objUser.Dispose ()

End Sub

Private Function GetDomainName() As String
Return System.Environm ent.UserDomainN ame
End Function

I do not get any errors but it doesn't work.
Can anyone see where i am going wrong?
The computer i am running the application on is a member of a server
2003 active directory domain and is a member of the Administrators
group.

Any help is much appreciated.

Cheers,

Tom.