Un administrateur réseau a de nombreuses tâches , l'une d'entre elles est de surveiller l'activité de connexion et de gérer les comptes utilisateur . En utilisant un langage de programmation , un administrateur réseau peut activer ou désactiver ou de verrouillage, un utilisateur d'accéder à un compte . Si un utilisateur a été bloqué sur un compte , l'administrateur peut intégrer un script qui va débloquer un compte afin que l'utilisateur peut revenir dans le compte et accéder aux données. Instructions
1

Accédez aux "Utilisateurs et ordinateurs Active Directory » sur votre ordinateur, qui fait partie du plus grand serveur , ce qui est également connu comme le DSA.MSC snap-in
< br . > 2

Créer le script Visual Basic suivant :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Set wshArguments = WScript.Arguments

Set objUser = GetObject ( wshArguments (0) )

Si IsLockedOut ( objUser ) Puis

objUser.Put " lockoutTime ", " 0"

objUser.SetInfo

MsgBox " L'utilisateur a été déverrouillé - "& objUser.sAMAccountName

Else

MsgBox" Le compte d'utilisateur n'est pas verrouillé - "& objUser.sAMAccountName

End If

Fonction IsLockedOut ( objUser )

On Error Resume Next

Set objLockout = objUser.get ( " lockoutTime " )

si Err.Number = E_ADS_PROPERTY_NOT_FOUND puis

IsLockedOut = False

Exit Function End If

On Error GoTo 0

si objLockout.lowpart = 0 et objLockout.highpart = 0 Then

IsLockedOut = False

Else

IsLockedOut = True

End If End Function

enregistrez ce script comme " UNLOCK_USER . VBS " . dans le système du serveur
3

créer ce script Visual Basic :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary =" " < br >

Set wshArguments = WScript.Arguments

Set objOU = GetObject ( wshArguments (0))

For Each objIADs dans objOU

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

Si IsLockedOut ( objIADs ) Puis

objIADs.Put " lockoutTime ", " 0"

objIADs.SetInfo

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

End If End If

Suivant

Si strSummary = "" Then

MsgBox " ! Aucun utilisateur verrouillés trouvé"

Else

MsgBox " Les utilisateurs suivants ont été débloqués :" & _ vbNewLine

et "----- -------------------------------------------- "& vbNewLine & strSummary

End If

Fonction IsLockedOut ( objUser )

On Error Resume Next

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

IsLockedOut = False

Exit Function End If

On Error GoTo 0

si objLockout.lowpart = 0 et objLockout.highpart = 0 Then

IsLockedOut = False

Else

IsLockedOut = True

End If
< p > Fin de Fonction:

enregistrez ce script comme " UNLOCK_USERS_IN_OU.VBS . "
4

Open " adsiEdit.msc " et naviguez vers le chemin CN = user -Display, CN = ​​409, CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net. Faites un clic droit sur ​​l'objet utilisateur Affichage et choisissez "Propriétés". Le premier attribut de la liste fournie est " adminContextMenu " , double-cliquez dessus et ajoutez la ligne de script " 4, et Unlock User \\ \\ \\ Netlogon \\ zeus unlock_user.vbs . " Cliquez sur " Ajouter " pour ajouter la ligne.
5

Retour à " AdsiEdit.msc " et aller vers le chemin CN = ​​organizationalUnit -Display, CN = ​​409, CN = ​​DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net. Trouvez l'objet organizationalUnit -Display , cliquez-droit dessus et sélectionnez "Propriétés". Trouvez le organizationalUnit -Display et double- cliquez dessus. Ajoutez la ligne suivante à l'attribut : " 3, et Déverrouiller utilisateurs dans UO , \\ \\ \\ Netlogon \\ zeus unlock_users_in_ou.vbs . " Cliquez sur " Ajouter" pour ajouter la ligne.
6

Close " AdsiEdit.msc " pour terminer le processus d'ajout du script qui va débloquer l'utilisateur.
< Br > Photos