ubiquitour.com

Cómo a Unlock un Script cuenta

Un administrador de red tiene muchas tareas; uno de ellos es controlar la actividad de inicio de sesión y mantener cuentas de usuario. Usando el lenguaje de programación, un administrador de red puede activar o desactivar o bloquear, un usuario de acceder a una cuenta. Si un usuario ha sido bloqueado en una cuenta, el administrador puede incorporar una secuencia de comandos que se abre una cuenta por lo que el usuario puede volver a la cuenta y acceder a los datos.

Instrucciones

1 Acceder a la "Active directorio de usuarios y equipos" en su computadora, que es parte del servidor más grande; Esto también es conocido como el DSA. MSC snap-in.

2 Crear 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

Otra cosa

MsgBox "la cuenta de usuario no está bloqueada -" & objUser.sAMAccountName

End If

Función IsLockedOut(objUser)

error volver siguiente

Set objLockout = objUser.get("lockouttime")

Si Err.Number = E_ADS_PROPERTY_NOT_FOUND entonces

IsLockedOut = False

Función de salida

End If

En Error GoTo 0

Si objLockout.lowpart = 0 y objLockout.highpart = 0 Then

IsLockedOut = False

Otra cosa

IsLockedOut = True

End If

End Function

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

3 Crear este script de Visual Basic:

Const E_ADS_PROPERTY_NOT_FOUND =-2147463155

strSummary = ""

Set wshArguments = WScript.Arguments

Establecer objOU = GetObject(wshArguments(0))

Para cada objIADs en objOU

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

Si IsLockedOut(objIADs) entonces

objIADs.Put "lockouttime", "0"

objIADs.SetInfo

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

End If

End If

Siguiente

Si strSummary = "" entonces

MsgBox "No bloqueados usuarios encontró!"

Otra cosa

MsgBox "se han abierto los siguientes usuarios:" & vbNewLine _

y "---" & vbNewLine & strSummary

End If

Función IsLockedOut(objUser)

error volver siguiente

Set objLockout = objUser.get("lockouttime")

Si Err.Number = E_ADS_PROPERTY_NOT_FOUND entonces

IsLockedOut = False

Función de salida

End If

En Error GoTo 0

Si objLockout.lowpart = 0 y objLockout.highpart = 0 Then

IsLockedOut = False

Otra cosa

IsLockedOut = True

End If

End Function

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

4 Abra "ADSIEdit.MSC" y desplácese hasta la ruta CN = pantalla de usuario, CN = 409, CN = DisplaySpecifiers, CN = Configuration, DC = dpetri, DC = net. Haga clic derecho sobre el objeto de usuario visualización y elija "Propiedades". El primer atributo en la lista es "adminContextMenu"; Haga doble clic en él y agregue la línea de comandos "4 & Unlock User,\zeus\netlogon\unlock_user.vbs". Haga clic en "Agregar" para agregar 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 derecho sobre él y seleccionar "Propiedades". Encontrar el organizationalUnit-Display y haga doble clic en él. Agregue la siguiente línea al atributo: "3 y desbloquear los usuarios en OU,\zeus\netlogon\unlock_users_in_ou.vbs". Haga clic en "Agregar" para agregar la línea.

6 Cierre "ADSIEdit.MSC" para terminar el proceso de agregar el script que se desbloquee el usuario.