En nettverksadministrator har mange oppgaver , en av disse er å overvåke login aktivitet og vedlikeholde brukerkontoer . Ved hjelp av programmeringsspråk, kan en nettverksadministrator aktivere eller deaktivere, eller lås, en bruker fra å aksessere en konto . Hvis en bruker har blitt låst ute av en konto, kan administratoren innlemme et skript som vil låse opp en konto , slik at brukeren kan få tilbake til kontoen og tilgang til data . Instruksjoner
en
Tilgang til " Active Directory Users and Computers " på datamaskinen , som er en del av den større server , og dette er også kjent som den dsa.msc snap -in
2
Opprett følgende Visual Basic Script : en
Konst E_ADS_PROPERTY_NOT_FOUND = -2147463155
Set wshArguments = WScript.Arguments
Set objUser = GetObject ( wshArguments ( 0 ) )
p Hvis IsLockedOut ( objUser ) Så
objUser.Put " lockouttime ", " 0 "
objUser.SetInfo
MsgBox " brukeren har vært ulåst - "& objUser.sAMAccountName
Else
MsgBox" brukerkontoen er ikke låst - "& objUser.sAMAccountName
End If
Funksjon IsLockedOut ( objUser )
på feil fortsette neste
Set objLockout = objUser.Get ( " lockouttime ")
hvis err.number = E_ADS_PROPERTY_NOT_FOUND deretter
IsLockedOut = False
Exit Function
End If
On Error GoTo 0
hvis objLockout.lowpart = 0 Og objLockout.highpart = 0 Then
IsLockedOut = False
Else
IsLockedOut = sant
End If
End Function
Lagre dette skriptet som " UNLOCK_USER . VBS " . i serverens system
3
Lag denne Visual Basic script : en
Konst E_ADS_PROPERTY_NOT_FOUND = -2147463155
strSummary =" "
Set wshArguments = WScript.Arguments
Sett objOU = GetObject ( wshArguments ( 0 ) )
for hver objIADs i objOU
p Hvis LCase ( objIADs.Class ) = "bruker " Da
p Hvis IsLockedOut ( objIADs ) Så
objIADs.Put " lockouttime ", " 0 "
objIADs.SetInfo
strSummary = strSummary & objIADs.Get ( " sAMAccountName ") & vbNewLine
End If
End If
Neste
p Hvis strSummary = "" Then
MsgBox " ! Ingen låste brukere funnet "
Else
MsgBox " følgende brukere har blitt låst opp :" & vbNewLine _
& " ----- -------------------------------------------- "& vbNewLine & strSummary
End If
Funksjon IsLockedOut ( objUser )
på feil fortsette neste
Sett objLockout = objUser.Get ( " lockouttime ")
< p > hvis err.number = E_ADS_PROPERTY_NOT_FOUND deretter
IsLockedOut = False
Exit Function
End If
On Error GoTo 0
hvis objLockout.lowpart = 0 Og objLockout.highpart = 0 Then
IsLockedOut = False
Else
IsLockedOut = sant
End If
< p > End Function
Lagre dette skriptet som " UNLOCK_USERS_IN_OU.VBS . "
4
Åpne " ADSIEdit.MSC " og naviger til banen CN = user -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = netto . Høyreklikk på brukeren -Display objekt og velg " Properties". Den første attributt i listen som er " adminContextMenu "; dobbeltklikk på den og legge linjen i skriptet " 4 , og lås opp bruker , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Klikk på "Add " for å legge linjen .
5
Gå tilbake til " ADSIEdit.MSC " og gå til banen CN = OrganizationalUnit -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = netto . Finn OrganizationalUnit -Display objekt , høyreklikk på den og velg "Properties". Finn OrganizationalUnit -Display og dobbeltklikk på den. Legg til følgende linje til attributt : " 3 , og låse brukere i OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Klikk på " Add" for å legge linjen .
6
Close " ADSIEdit.MSC " for å fullføre prosessen med å legge til skript som vil oppheve blokkeringen av brukeren .
