为什么你们不看msdn呢,这是上面关于操作ad用户密码的文章。Example Code for Setting User PasswordsThe following Visual Basic® code example shows how to set a user password, assuming the caller has the permission to set the password.Dim oADsSysInfo as New ADSystemInfo
Dim sPass as String
Dim ADsPath as String' Retrieve the ADsPath for the current user
ADsPath = oADsSysInfo.UserName' Use some method of securely getting and verifying 
' the new password from the user.
SetPassword (ADsPath, sPass)Exit SubSub SetPassword(sADsPath as String, sPassword as String)
    Set usr = GetObject(sADsPath)    
    oObject.SetPassword sPassword
End Sub