En nätverksadministratör har många uppgifter , en av dessa är att övervaka inloggning aktivitet och administrera användarkonton . Använda programmeringsspråk , kan en nätverksadministratör aktivera eller inaktivera , eller lås , en användare från att komma åt ett konto . Om en användare har blivit spärrat av ett konto , kan administratören införliva ett skript som kommer att låsa upp ett konto , så att användaren kan komma tillbaka in på kontot och komma åt data . Instruktioner
1
Öppna " Active Directory Användare och datorer " på din dator , som är en del av det större server , det är också känd som den dsa.msc snap - in
2
Skapa följande Visual Basic Script :
Const E_ADS_PROPERTY_NOT_FOUND = -2147463155
Set wshArguments = WScript.Arguments
Set objUser = GetObject ( wshArguments ( 0 ) ) katalog
Om IsLockedOut ( objUser ) Sen
objUser.Put " lockouttime " , " 0 "
objUser.SetInfo
MsgBox " användaren har olåst - " & objUser.sAMAccountName
Else
MsgBox " användarkontot är inte låst - " & objUser.sAMAccountName
End If
Funktion IsLockedOut ( objUser ) katalog
On Error Resume Next
objLockout
Set = objUser.get ( " lockouttime " ) katalog p Om Err.Number = E_ADS_PROPERTY_NOT_FOUND sedan
IsLockedOut = False
Exit Function
End If
On Error GoTo 0
om objLockout.lowpart = 0 och objLockout.highpart = 0 Then
IsLockedOut = False
Else
IsLockedOut = Sant
End If
End Function
Spara skriptet som " UNLOCK_USER . VBS " . in serverns systemet
3
Skapa denna Visual Basic script :
Const E_ADS_PROPERTY_NOT_FOUND = -2147463155
strSummary = " "
Set wshArguments = WScript.Arguments
Set objOU = GetObject ( wshArguments ( 0 ) ) katalog
för varje objIADs i objOU
p Om LCase ( objIADs.Class ) = " user " Då
p Om IsLockedOut ( objIADs ) Sen
objIADs.Put " lockouttime " , " 0 "
objIADs.SetInfo
strSummary = strSummary & objIADs.Get ( " sAMAccountName " ) & vbNewLine
End If
End If
Nästa
p Om strSummary = " " Då
MsgBox " Inga låsta hittades användare "
Else
MsgBox " har följande användare låsts upp : " & vbNewLine _
& " ----- -------------------------------------------- " & vbNewLine & strSummary
End If
Funktion IsLockedOut ( objUser ) katalog
On Error Resume Next
Set objLockout = objUser.get ( " lockouttime " ) katalog
Om Err.Number = E_ADS_PROPERTY_NOT_FOUND sedan
IsLockedOut = False
Exit Function
End If
On Error GoTo 0
om objLockout.lowpart = 0 och objLockout.highpart = 0 Then
IsLockedOut = False
Else
IsLockedOut = Sant
End If
End Function
Spara skriptet som " UNLOCK_USERS_IN_OU.VBS . "
4
Open " adsiedit.msc " och navigera till sökvägen CN = user - Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Högerklicka på användaren - Display objektet och välj " Egenskaper . " Det första attributet i listan som är " adminContextMenu " , dubbelklicka på den och lägg till raden av manus " 4 , och låsa upp användare , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Klicka på " Lägg till " för att lägga till raden .
5
Gå tillbaka till " adsiedit.msc " och gå till sökvägen CN = organizationalUnit - Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Hitta organizationalUnit - Display objektet , högerklicka på den och välj " Egenskaper . " Hitta organizationalUnit - Display och dubbelklicka på den . Lägg till följande rad till attribut : " 3 , och låsa upp användare i OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Klicka på " Add " för att lägga till raden .
6
Close " adsiedit.msc " för att avsluta processen att lägga till skript som kommer att låsa användaren . Addera
