Sorry! =(
I´m trying to do 2 things
Set the User must change Password next logon and set new password, in both the problem is the same.
Set UserObj = GetObject("LDAP://CN=Nombre de Usuario,OU=NombreOU,OU=Teatros,DC=Midominio,DC=com,DC=mx ")
'UserObj.Setpassword "q12345"
'para la bandera del...