Script para desbloquear usuario bloqueado de directorio activo

Publicado: 27 Septiembre 2016, 15:34
por Cazador
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:

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

Publicidad