Un amministratore di rete ha molti compiti; uno di questi è quello di monitorare l'attività di accesso e gestire gli account utente . Usando un linguaggio di programmazione , un amministratore di rete può attivare o disattivare , o bloccare, un utente di accedere a un account. Se un utente è stato bloccato da un conto , l'amministratore può inserire uno script che sbloccherà un account in modo che l'utente possa tornare in conto e accedere ai dati . Istruzioni
1
Accedere ai "Utenti e computer " sul vostro computer, che fa parte del server più grande , questo è noto anche come il DSA.MSC snap-in
< br . > 2
Creare il seguente script di Visual Basic :
Const E_ADS_PROPERTY_NOT_FOUND = -2147463155
wshArguments = WScript.Arguments
objUser = GetObject ( wshArguments ( 0 ) ) per
Se IsLockedOut ( objUser ) Poi
objUser.Put " lockoutTime " , "0"
objUser.SetInfo
MsgBox " L'utente è stato sbloccato - "& objUser.sAMAccountName
Else
MsgBox" L'account utente non è bloccato - "& objUser.sAMAccountName
End If
Funzione IsLockedOut ( objUser ) per
on Error Resume Next
objLockout = objUser.get ( " lockoutTime " ) per
se Err.Number = E_ADS_PROPERTY_NOT_FOUND poi
IsLockedOut = False
Exit Function End If
On Error GoTo 0
se objLockout.lowpart = 0 E objLockout.highpart = 0 Then
IsLockedOut = False
Else
IsLockedOut = True
End If End Function
Salva questo script come " UNLOCK_USER . VBS " . nel sistema del server
3
Creare lo script di Visual Basic :
Const E_ADS_PROPERTY_NOT_FOUND = -2147463155
strSummary = " " < br
Set> wshArguments = WScript.Arguments
objOU = GetObject ( wshArguments ( 0 ) ) per
For Each objIADs in objOU
LCase ( objIADs.Class ) = "user " Allora
IsLockedOut ( objIADs ) Poi
objIADs.Put " lockoutTime " , "0"
objIADs.SetInfo
strSummary = strSummary & objIADs.Get ( " sAMAccountName " ) & vbNewLine
End If End If
Avanti
strSummary = " " Allora
MsgBox " ! Nessun utente bloccati trovato "
Else
MsgBox " I seguenti utenti sono stati sbloccati : " & vbNewLine _
& " ----- -------------------------------------------- "& vbNewLine & strSummary
End If
Funzione IsLockedOut ( objUser ) per
on Error Resume Next
objLockout = objUser.get ( " lockoutTime " ) per < p > se Err.Number = E_ADS_PROPERTY_NOT_FOUND poi
IsLockedOut = False
Exit Function End If
On Error GoTo 0
se objLockout.lowpart = 0 E objLockout.highpart = 0 Then
IsLockedOut = False
Else
IsLockedOut = True
End If
< p > End Function
Salva questo script come " UNLOCK_USERS_IN_OU.VBS . "
4
Open " adsiedit.msc " e navigare al percorso CN = user -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net . Pulsante destro del mouse sull'oggetto utente -Display e scegliere " Proprietà". Il primo attributo nell'elenco previsto è " adminContextMenu " , fare doppio clic su di esso e aggiungere la riga di script " 4 , & Unlock utente , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Fare clic su " Aggiungi " per aggiungere la linea .
5
Torna " Adsiedit.msc " e vai al percorso CN = organizationalUnit -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Trova l'oggetto organizationalUnit -Display , fare clic destro su di esso e selezionare " Proprietà". Trova il organizationalUnit -Display e fare doppio clic su di esso . Aggiungere la seguente riga per l'attributo : "3, e sblocco utenti in OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Fare clic su "Aggiungi" per aggiungere la riga .
6
Chiudere " Adsiedit.msc " per terminare il processo di aggiunta dello script che verrà sbloccare l'utente .
< Br >
