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