¡ Por favor active Javascript! / Please turn on Javascript!
Otras versiones Servidor de Windows no clasificadas: NT 4.0 ...
Avatar de Usuario
Cazador
Colaborador
Mensajes: 1833
Registrado: 16 Abril 2015, 19:16
C. Prof.: Analista de Sistemas
Contactar:

Script para desbloquear usuario bloqueado de directorio activo

Mensajepor Cazador » 27 Septiembre 2016, 15:34

Script que se encarga de desbloquear el usuario de Directorio Activo de forma continua. Utilizado para aquellas cuentas que se bloquean de forma continua por la configuración de alguna maquina. Su uso no es recomendable, pero por alguna circunstancia puede que sea necesario lanzar el script hasta que se solventa el problema o localiza el equipo que esta produciendo el bloqueo de la cuenta.

Código: Seleccionar todo

i=0
Set FicheroLogs = CreateObject("Scripting.FileSystemObject")

Set Logs = FicheroLogs.OpenTextFile("c:\Bloqueos_iue1340.txt", 8, TRUE)

do While i=0
set objUser = GetObject ("LDAP://CN=USUARIO, OU=usuarios, DC=elsate, DC=com")
   if objUser.IsAccountLocked = TRUE then
        objUser.IsAccountLocked = FALSE
      objUser.SetInfo
        Logs.WriteLine("Cuenta Bloqueada, se desbloquea" &  "-" & Time() & "-" & Date())
   else
         Logs.WriteLine("Cuenta Ok" &  "-" & Time() & "-" & Date())
   end if
WScript.sleep 2000
i=0
loop
Redactor de ELSATE.com. Aficionado de la Tecnología, los Videojuegos, la Música Electrónica y el Deporte.





Volver a “Otros”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados