请问在win2000中用ADSI的setpassword函数修改用户密码时，如何使新密码可与旧密码相同？

[xlain]

例如
Dim usr As IADsUser
Set usr = ...
usr.SetPassword newpassword
如果新的密码与旧密码不一样就可修改成功，如果一样就会出错。
执行
usr.RequireUniquePassword = False
usr.SetInfo
又报“The specified directory service attribute or value does not exit”
请问应修改User对象的哪个属性？我用的是win2000中的Active Directory