Un administrador de red tiene muchas tareas , uno de ellos es el de monitorear la actividad de inicio de sesión y mantener cuentas de usuario. Uso de lenguaje de programación , un administrador de red puede activar o desactivar , o bloqueo , un usuario de 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 , lo que también se conoce como el DSA.msc complemento
< br . > 2

Cree el siguiente script de Visual Basic:

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Set WshArguments = WScript.Arguments

Set objUser = GetObject ( WshArguments ( 0 ) )

Si IsLockedOut ( objUser ) Entonces

objUser.Put " lockoutTime ", " 0 "

objUser.SetInfo

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

demás

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

End If

Función IsLockedOut ( objUser )

On Error Resume Next

Set objLockout = objUser.get ( " lockoutTime " )

si Err.Number = E_ADS_PROPERTY_NOT_FOUND entonces

IsLockedOut = False

Exit Función

End If

On Error GoTo 0

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

IsLockedOut = False

demás

IsLockedOut = True

End If End Function

Guardar este script como " UNLOCK_USER . VBS . " en el sistema del servidor
3

Crear el script de Visual Basic:

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary =" " < br >

Set WshArguments = WScript.Arguments

Set objOU = GetObject ( WshArguments ( 0 ) ) guía

For Each objIADs en objOU

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

Si IsLockedOut ( objIADs ) Entonces

objIADs.Put " lockoutTime ", " 0 "

objIADs.SetInfo

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

End If End If

Siguiente

Si strSummary = "" Then

MsgBox " No hay usuarios bloqueados encontrados "

demás

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

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

End If

Función IsLockedOut ( objUser )

On Error Resume Next

Set objLockout = objUser.get ( " lockoutTime ")
< p > si Err.Number = E_ADS_PROPERTY_NOT_FOUND entonces

IsLockedOut = False

Exit Función

End If

On Error GoTo 0

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

IsLockedOut = False

demás

IsLockedOut = True End If

< p > End Function

Guardar este script como " UNLOCK_USERS_IN_OU.VBS . "
4

Open " adsiedit.msc " y vaya a la ruta CN = user -Display , CN = 409, CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net . Haga clic en el objeto de usuario Pantalla y seleccione " Propiedades". El primer atributo de la lista proporcionada es " adminContextMenu " , haga doble clic en él y añada la línea del guión " 4 , y desbloqueo usuario , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Haga clic en " Add" para añadir la línea.
5

Volver a " Adsiedit.msc " y vaya a la ruta CN = organizationalUnit -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net . Encontrar el objeto organizationalUnit -Display , haga clic sobre él y seleccionar " Propiedades". Encuentra el organizationalUnit -Display y haga doble clic en él. Agregue la siguiente línea al atributo : " 3 , y desbloquear el usuario en OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Haga clic en " Add" para añadir la línea.
6

Cierre " Adsiedit.msc " para terminar el proceso de agregar la secuencia de comandos que desbloquear el usuario.
< Br >