Tecnología

Inicio

Cómo desbloquear una secuencia de comandos de cuentas

Un administrador de red tiene muchas tareas; una de ellas es la de supervisar la actividad de inicio de sesión y mantener las cuentas de usuario. El uso de lenguaje de programación, un administrador de red puede activar o desactivar, o de bloqueo, un usuario pueda acceder a una cuenta. Si un usuario ha sido bloqueada de una cuenta, el administrador puede incorporar una secuencia de comandos que abrirá una cuenta para que el usuario pueda volver a la cuenta y acceder a los datos.

Instrucciones

1 Acceder a los "Usuarios y equipos de Active Directory" en su computadora, que es parte del servidor más grande; Esto también se conoce como el DSA.msc complemento.

2 Cree el siguiente Visual Basic Script:

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Establecer WshArguments = WScript.Arguments

Establecer objUser = GetObject (WshArguments (0))

Si IsLockedOut (objUser) A continuación,

objUser.Put "lockoutTime", "0"

objUser.SetInfo

MsgBox "El usuario ha sido desbloqueado -" & objUser.sAMAccountName

Más

MsgBox "La cuenta de usuario no está bloqueado -" & objUser.sAMAccountName

Terminara si

Función IsLockedOut (objUser)

el curriculum vitae errores de la próxima

Establecer objLockout = objUser.get ( "lockoutTime")

si Err.Number = E_ADS_PROPERTY_NOT_FOUND continuación,

IsLockedOut = False

Función de salida

Terminara si

On Error GoTo 0

si objLockout.lowpart = 0 Y = 0 Entonces objLockout.highpart

IsLockedOut = False

Más

IsLockedOut = True

Terminara si

End Function

Guardar esta secuencia de comandos como "UNLOCK_USER.VBS" en el sistema del servidor.

3 Cree este script de Visual Basic:

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary = ""

Establecer WshArguments = WScript.Arguments

Conjunto objOU = GetObject (WshArguments (0))

Para Cada objIADs en objOU

Si LCase (objIADs.Class) = "usuario" Entonces

Si IsLockedOut (objIADs) A continuación,

objIADs.Put "lockoutTime", "0"

objIADs.SetInfo

strSummary = strSummary y objIADs.Get ( "samaccountname") y vbNewLine

Terminara si

Terminara si

Siguiente

Si strSummary = "" Entonces

MsgBox "No hay usuarios bloqueados encontrado!"

Más

MsgBox "Los siguientes usuarios han sido desbloqueado:" & _ vbNewLine

& "------------------------------------------------ - "y vbNewLine y strSummary

Terminara si

Función IsLockedOut (objUser)

el curriculum vitae errores de la próxima

Establecer objLockout = objUser.get ( "lockoutTime")

si Err.Number = E_ADS_PROPERTY_NOT_FOUND continuación,

IsLockedOut = False

Función de salida

Terminara si

On Error GoTo 0

si objLockout.lowpart = 0 Y = 0 Entonces objLockout.highpart

IsLockedOut = False

Más

IsLockedOut = True

Terminara si

End Function

Guardar esta secuencia de comandos como "UNLOCK_USERS_IN_OU.VBS."

4 Abrir "AdsiEdit.msc" y vaya a la ruta CN = user-Display, CN = 409, CN = DisplaySpecifiers, CN = Configuración, DC = dpetri, DC = net. Haga clic en el objeto de usuario Pantalla y seleccione "Propiedades". El primer atributo en la lista proporcionada es "adminContextMenu"; Haga doble clic en él y añadir la línea de guión "4, y desbloquear el usuario, \ Zeus \ netlogon \ unlock_user.vbs." Haga clic en "Añadir" para añadir la línea.

5 Volver a "AdsiEdit.msc" e ir a la ruta CN = organizationalUnit-Display, CN = 409, CN = DisplaySpecifiers, CN = Configuración, DC = dpetri, DC = net. Encontrar el objeto organizationalUnit-Display, haga clic sobre él y seleccione "Propiedades". Encuentra la organizationalUnit-Display y haga doble clic en él. Agregue la línea siguiente al atributo: "3, y desbloquear el usuario en la unidad organizativa, \ Zeus \ netlogon \ unlock_users_in_ou.vbs." Haga clic en "Añadir" para añadir la línea.

6 Cerrar "AdsiEdit.msc" para terminar el proceso de agregar el script que va a desbloquear el usuario.