-
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.