I've scoured the net for a VB example that actually works to allow me to set a user password using DirectoryServices.  Nothing works!  Can anyone help?
The C# examples don't work for me.  I've tried over 20 variations.  Help!

Here's some sample code:

    Private Sub PutActiveDirectoryPassword()
        'This subroutine sets the users login password

        'This is coded for a VB Web Form, this is the
        '  Form.aspx.vb file

        Dim ldapUser As DirectoryEntry
        Dim strLdapContainer As String

        strLdapContainer = "LDAP://CN=Username,_
                           OU=OUName,DC=SITE1,_
                           DC=Domain,DC=com"

        ldapUser = New DirectoryEntry_
                  (strLdapContainer ,_
                  "username", "password", _
                  AuthenticationTypes.Secure)

        Try
            ldapUser.Invoke("SetPassword", "password")
                Try
                        ldapUser.CommitChanges()
                Catch
                        Response.Write("Password _
                        COMMIT failed. Error=" + _
                        Err.Description.ToString + ".<br>")
                End Try
        Catch
                Response.Write("Password _
                SET failed. Error=" + _
                Err.Description.ToString + ".<br>")
        End Try

    End Sub

*** Sent via Developersdex http://www.*-*-*.com/ ***
Don't just participate in USENET...get rewarded for it!

Don,

Do we get a clue as to how and where it is failing?

--
Kathleen
(MS-MVP)
Reply in the newsgroup so everyone can benefit
--

Thanks Kathleen.

The error occurs on the Invoke command to set the password.

"Password SET failed. Error=Unknown error (0x80005000)"

FYI - If I pull the commit statement out into a non-embedded Try statement, I don't get an error for that part.

Do you have a code example that performs this using VB.NET?

Thanks again,

Don

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Hi Don,

You may get more information by using an Exception object rather than the
Err object.

eg: replace the Catch blocks you have a t present with something like :

Catch ex As Exception

Console.Write("Password COMMIT(failed.Error = " & ex.ToString & ".<br>")

statement, I don't get an error for that part.