Cambio de contraseñas en windows

[samupe]

Hola:

Mi pregunta es la siguiente: De que forma podría cambiar mediante Delphi 6 ó 7, las password de los usuarios de un equipo que tiene montado windows XP, si existe algo conocido, por supuesto, esto sería ejecutando la aplicación en modo administrador.
Tambien algún método para poder hacerlo en un Directorio Activo de un windows 2003 server, en javascript si he podido hacerlo.

Gracias,

[fide]

Necesito, si puede comparta el codigo que has checho en javascript para cambiar el password en windows 2003 server o me lo envie a alguna de estas direcciones de correo agustin@ipigto.rimed.cu o a agustinh8081@yahoo.com.cu

Grasias

[samupe]

Hola Fide:

Podrías utilizar este pequeño script de ejemplo:


///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Este script nos podría valer para cambiar la password a un usuario
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
<job id="Cambio de Password">
<script language = "JScript">
var cadena;
//Primero, ponemos en enable las cuentas que vamos a activar

cadena = "LDAP://cn=usuario22,ou=usuarios,dc=dominio,dc=com";

objUser = GetObject (cadena);
if (objUser.AccountDisabled == true) { //Si la cuenta esta desactivada, la activamos
objUser.AccountDisabled = false;
objUser.SetInfo();
}

//Segundo, asignamos contraseña
cadena = "LDAP://cn=usuario22,ou=usuarios,dc=dominio,dc=com";
objUser.SetPassword("Pa$$w0rd");

</script>

</job>