Πώς να ξεκλειδώσετε ένα λογαριασμό Script

Ένας διαχειριστής δικτύου έχει πολλά καθήκοντα ? Ένα από αυτά είναι να παρακολουθεί την είσοδο δραστηριότητα και να διατηρήσει τους λογαριασμούς χρηστών . Χρησιμοποιώντας τη γλώσσα προγραμματισμού , ο διαχειριστής του δικτύου μπορεί να ενεργοποιήσετε ή να απενεργοποιήσετε , ή κλειδαριά , την πρόσβαση ενός χρήστη λογαριασμού . Εάν ένας χρήστης έχει κλειδωθεί από έναν λογαριασμό , ο διαχειριστής μπορεί να ενσωματώσει ένα σενάριο που θα ξεκλειδώσετε ένα λογαριασμό, ώστε να μπορεί ο χρήστης να πάρει πίσω στο λογαριασμό και την πρόσβαση στα δεδομένα . Οδηγίες
Η 1

Δείτε το " Active Directory Users and Computers " στον υπολογιστή σας , το οποίο είναι μέρος του μεγαλύτερου server? Αυτό είναι επίσης γνωστό ως το Dsa.msc snap -in

2

Δημιουργήστε το ακόλουθο Visual Basic Script :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Set wshArguments = WScript.Arguments

Set objUser = GetObject ( wshArguments ( 0 ) )

Αν IsLockedOut ( objUser ) Στη συνέχεια

objUser.Put " lockOutTime " , " 0 "

objUser.SetInfo

MsgBox " Ο χρήστης έχει ξεκλείδωτη - " & objUser.sAMAccountName

Else

MsgBox" Ο λογαριασμός χρήστη δεν είναι κλειδωμένη - " & objUser.sAMAccountName

End If

IsLockedOut Λειτουργία ( objUser )

στο βιογραφικό Σφάλμα επόμενη

Set objLockout = objUser.get ( " lockOutTime " )

αν Err.Number = E_ADS_PROPERTY_NOT_FOUND τότε

IsLockedOut = False

Exit Function

End If

On Error GoTo 0

αν objLockout.lowpart = 0 και objLockout.highpart = 0 τότε

IsLockedOut = False

Else

IsLockedOut = True

End If End

Λειτουργία

Αποθηκεύστε αυτό το σενάριο ως " UNLOCK_USER . VBS " . στο σύστημα του διακομιστή εικόνων
3

Δημιουργήστε αυτό Visual Basic script :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary = " "

Set wshArguments = WScript.Arguments

Set objOU = GetObject ( wshArguments ( 0 ) )

για κάθε objIADs σε objOU

Αν LCase ( objIADs.Class ) = " χρήστης " Τότε

Εάν IsLockedOut ( objIADs ) Στη συνέχεια

objIADs.Put " lockOutTime " , " 0 "

objIADs.SetInfo

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

End If

End If

Επόμενο

Εάν strSummary = " " τότε

MsgBox " ! Δεν κλειδωμένο χρήστες που βρέθηκαν "

Else

MsgBox " Οι ακόλουθοι χρήστες έχουν ξεκλειδωθεί : " & _ vbNewLine

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

End If

IsLockedOut Λειτουργία ( objUser )

στο βιογραφικό Σφάλμα επόμενη

Set objLockout = objUser.get ( " lockOutTime " )

αν Err.Number = E_ADS_PROPERTY_NOT_FOUND τότε

IsLockedOut = False

Exit Function

End If

On Error GoTo 0

αν objLockout.lowpart = 0 και objLockout.highpart = 0 τότε

IsLockedOut = False

Else

IsLockedOut = True

End If

End Function

Αποθηκεύστε αυτό το σενάριο ως « UNLOCK_USERS_IN_OU.VBS . "
Η 4

Open " adsiedit.msc " και να περιηγηθείτε στο μονοπάτι CN = user -Display , CN = 409 , CN = DisplaySpecifiers , CN = Ρύθμιση παραμέτρων, DC = dpetri , DC = καθαρή . Κάντε δεξί κλικ στο αντικείμενο χρήστη -Display και επιλέξτε "Ιδιότητες". Το πρώτο χαρακτηριστικό στον κατάλογο που είναι " adminContextMenu "? Κάντε διπλό κλικ πάνω του και προσθέστε τη γραμμή του σεναρίου " 4 , & Ξεκλείδωμα χρήστη , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Κάντε κλικ στην επιλογή " Προσθήκη " για να προσθέσετε τη γραμμή .
5

Επιστροφή στην " Adsiedit.msc » και συνεχίστε προς την οδό CN = ​​organizationalUnit -Display , CN = 409 , CN = DisplaySpecifiers , CN = Ρύθμιση παραμέτρων , DC = dpetri , DC = καθαρή . Βρείτε το αντικείμενο organizationalUnit -Display , κάντε δεξί κλικ πάνω της και επιλέξτε "Ιδιότητες". Βρείτε το organizationalUnit -Display και κάντε διπλό κλικ πάνω του . Προσθέστε την ακόλουθη γραμμή στο χαρακτηριστικό : " 3 & Ξεκλείδωμα χρήστες σε OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Κάντε κλικ στην επιλογή " Προσθήκη " για να προσθέσετε τη γραμμή .
Η 6

Κλείσιμο " adsiedit.msc " για να ολοκληρώσετε τη διαδικασία προσθήκης με το σενάριο που θα ξεμπλοκάρει τον χρήστη .
Εικόνων