|
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 " )
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
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
|
