Een netwerkbeheerder heeft vele taken , een van deze is om login -activiteit monitoren en gebruikersaccounts te behouden . Met behulp van programmeertaal , kan een netwerkbeheerder of uit te schakelen , of sluis , een gebruiker toegang tot een rekening . Als een gebruiker werd buitengesloten van een rekening , kan de beheerder een script dat een rekening zal openen , zodat de gebruiker kan weer in de account en toegang tot de gegevens op te nemen . Instructies
1 Toegang tot de " Active Directory: gebruikers en computers ' op uw computer , die deel uitmaakt van de grotere server , dit is ook bekend als de dsa.msc snap-in
< br . > 2 Maak de volgende Visual Basic Script : Const
E_ADS_PROPERTY_NOT_FOUND = -2147463155 Set
wshArguments = WScript.Arguments Set
objUser = GetObject ( wshArguments ( 0 ) ) op Als IsLockedOut ( objUser ) dan objUser.Put " lockOutTime "
, " 0 " objUser.SetInfo MsgBox
" De gebruiker is geweest ontgrendeld - " & objUser.sAMAccountName
Else MsgBox
" De gebruikersaccount is niet vergrendeld - " & objUser.sAMAccountName End
Als Functie IsLockedOut
( objUser ) op op Fout hervat volgende Set objLockout
= objUser.get ( " lockOutTime " ) op Twitter als Err.Number = E_ADS_PROPERTY_NOT_FOUND IsLockedOut dan
= False Exit Function End
Als
On Error GoTo 0
als objLockout.lowpart = 0 En objLockout.highpart = 0 dan
IsLockedOut = False
Else IsLockedOut
= True End
als End Function
Bespaar dit script als " UNLOCK_USER . VBS . " in het systeem van de server
3 Maak dit Visual Basic script : Const E_ADS_PROPERTY_NOT_FOUND = -2147463155 strSummary
= " " < br Set > wshArguments = WScript.Arguments
Stel objOU = GetObject ( wshArguments ( 0 ) ) op voor Elke objIADs in objOU
Als LCase ( objIADs.Class ) = " user " dan
Als IsLockedOut ( objIADs ) dan objIADs.Put " lockOutTime "
, " 0 " objIADs.SetInfo strSummary
= strSummary & objIADs.Get ( " samaccountname " ) & vbNewLine End
Als End
Als Volgende
Als strSummary = " " dan
MsgBox " ! Geen opgesloten gebruikers gevonden "
Else MsgBox
" De volgende gebruikers zijn ontgrendeld : " & vbNewLine _
& " ----- -------------------------------------------- " & vbNewLine & strSummary < br End > Als Functie IsLockedOut
( objUser ) op op Fout hervat volgende
Stel objLockout = objUser.get ( " lockOutTime " ) op Twitter Als Err.Number = E_ADS_PROPERTY_NOT_FOUND IsLockedOut dan
= False Exit Function End
Als
On Error GoTo 0
indien objLockout.lowpart = 0 En objLockout.highpart = False
Else IsLockedOut
= True Eind
Als
IsLockedOut dan
> End Function
Bewaar dit script als " UNLOCK_USERS_IN_OU.VBS . "
Open " adsiedit.msc " 4 en navigeer naar het pad CN = user - display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = netto . Klik met de rechtermuisknop op de gebruiker - display object en kies 'Eigenschappen'. De eerste attribuut in de lijst die is " adminContextMenu " , dubbelklik erop en voeg de lijn van script " 4 , en Unlock gebruiker , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Klik op "Add " om de regel toe te voegen .
5 Ga terug naar " adsiedit.msc " en ga naar het pad CN = organizationalUnit - display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = netto . Vind de organizationalUnit - display object , klik met de rechtermuisknop op en kies 'Eigenschappen'. Vind de organizationalUnit - display en dubbelklik erop. Voeg de volgende regel toe aan het attribuut : " 3 , en ontgrendelen Gebruikers in OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Klik op "Add" om de regel toe te voegen .
Sluiten " adsiedit.msc " 6 om het proces van het toevoegen van het script dat de gebruiker zal deblokkeren afmaken .
< Br >
|
