| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment débloquer un script Compte
    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

    Previous :

    next :
      articles connexes
    ·Comment télécharger une page web avec VBScript 
    ·Comment emballer un fichier OCX avec Visual Basic 6.0 e…
    ·Comment faire un navigateur Web avec Visual Basic 
    ·Comment écrire un programme en Visual Basic qui Voix d…
    ·Comment créer un DataSet à partir GridView 
    ·Comment faire pour modifier le curseur à un curseur pe…
    ·Caractères ANSI en Visual Basic 
    ·Programmation Serial Ports aide de Visual Basic 6 
    ·Comment utiliser VBA pour basculer Contexte de la coule…
    ·Comment supprimer un événement de feuille de calcul d…
      articles en vedette
    ·Comment faire pour créer un programme d'installation p…
    ·Comment faire pour supprimer les doublons de tableau Pe…
    ·Comment ouvrir un fichier depuis argument d'entrée en …
    ·Comment convertir une liste à un tableau en Python 
    ·Comment créer un lien symbolique avec PHP 
    ·Comment savoir Fortran sur un Mac 
    ·Comment faire pour exécuter des scripts PowerShell par…
    ·Comment créer un script de connexion sécurisé PHP 
    ·Comment faire pour convertir la requête pour JSON PHP 
    ·Comment utiliser des pointeurs dans Vb 
    Copyright © Connaissances Informatiques http://fr.wingwit.com