Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Cambio de contraseñas en windows (https://www.clubdelphi.com/foros/showthread.php?t=41202)

samupe 09-03-2007 15:05:48

Cambio de contraseñas en windows
 
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 19-03-2007 19:22:45

Comparte el codigo
 
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 [email protected] o a [email protected]

Grasias

:D

samupe 20-03-2007 18:20:28

Un pequeño script para cambio de password
 
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>


La franja horaria es GMT +2. Ahora son las 07:34:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi