Come sbloccare un Script account

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

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_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 .

• Come caricare stream socket Flash in VB.NET 
• Come scrivere codice per una tangente in VB.NET