En netværksadministrator har mange opgaver , den ene af disse er at overvåge login aktivitet og vedligeholde brugerkonti. Brug programmeringssprog, kan en netværksadministrator aktivere eller deaktivere eller lås, en bruger i at få adgang en konto. Hvis en bruger er blevet låst ude af en konto, kan administratoren inkorporere et script, der vil låse en konto , så brugeren kan komme tilbage på den konto , og få adgang til data . Instruktioner
1

adgang til " Active Directory-brugere og-computere " på din computer, som er en del af den større server, dette er også kendt som den dsa.msc snap-in
< br . > 2.

Lav følgende Visual Basic Script : Hej

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Set wshArguments = WScript.Arguments

Set objUser = GetObject ( wshArguments (0) )

Hvis IsLockedOut ( objUser ) Så

objUser.Put " lockOutTime ", " 0 "

objUser.SetInfo

MsgBox "Brugeren er blevet ulåst - "& objUser.sAMAccountName

Else

MsgBox" brugerkonto er ikke låst - "& objUser.sAMAccountName

End If

Function IsLockedOut ( objUser )

ved fejl genoptage næste

Set objLockout = objUser.get ( " lockOutTime " )

hvis Err.Number = E_ADS_PROPERTY_NOT_FOUND derefter

IsLockedOut = False

Exit Function

End If

Fejl GoTo 0

hvis objLockout.lowpart = 0 og objLockout.highpart = 0 Then

IsLockedOut = False

Else

IsLockedOut = Sand

End If

End Function

Gem dette script som " UNLOCK_USER . VBS . " i serverens systemet
3

Opret denne Visual Basic script : Hej

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary =" " < br >

Set wshArguments = WScript.Arguments

Set objOU = GetObject ( wshArguments (0) )

For hver objIADs i objOU
p Hvis LCase ( objIADs.Class ) = "bruger" Så
p Hvis IsLockedOut ( objIADs ) Så

objIADs.Put " lockOutTime ", " 0 "

objIADs.SetInfo

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

End If

End If

Næste
p Hvis strSummary = "" Så

MsgBox " ! Ingen låste brugere fundet "

Else

MsgBox "Følgende brugere er blevet låst op : " & vbNewLine _

& " ----- -------------------------------------------- "& vbNewLine & strSummary < br >

End If

Function IsLockedOut ( objUser )

ved fejl genoptage næste

Set objLockout = objUser.get ( " lockOutTime " )
< p > Hvis Err.Number = E_ADS_PROPERTY_NOT_FOUND derefter

IsLockedOut = False

Exit Function

End If

Fejl GoTo 0

hvis objLockout.lowpart = 0 og objLockout.highpart = 0 Then

IsLockedOut = False

Else

IsLockedOut = Sand

End If
< p > End Function

Gem dette script som " UNLOCK_USERS_IN_OU.VBS ".
4

Åbn " adsiedit.msc " og navigere til stien CN = ​​bruger -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Højreklik på bruger- Display objektet og vælg " Egenskaber". Den første attribut i den viste liste er " adminContextMenu " dobbeltklik på den og tilføje den linje af scriptet " 4 & Unlock Bruger , \\ \\ zeus \\ Netlogon \\ unlock_user.vbs . " Klik på "Tilføj " for at tilføje linjen.
5.

Gå tilbage til " adsiedit.msc " og gå til stien CN = ​​organizationalUnit -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration DC = dpetri , DC = net . Find organizationalUnit -Display objekt , skal du højreklikke på den og vælg " Egenskaber". Find organizationalUnit -Display og dobbeltklik på den. Tilføj følgende linie til attribut: "3 , & låse brugere i OU , \\ \\ zeus \\ Netlogon \\ unlock_users_in_ou.vbs . " Klik på " Add " for at tilføje linjen.
6

Close " adsiedit.msc " for at afslutte processen med at tilføje script, der vil fjerne blokeringen af ​​brugeren.
< Br >