Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como desbloquear um Script Conta
Um administrador de rede tem muitas tarefas , uma delas é para monitorar a atividade de login e manter contas de usuário . Usando linguagem de programação, um administrador de rede pode ativar ou desativar , ou o bloqueio , o usuário de acessar uma conta . Se um utilizador tiver sido bloqueado de uma conta , o administrador pode incorporar um script que vai desbloquear uma conta para que o usuário pode obter de volta para a conta e acessar os dados. Instruções
1

Acesse os " Usuários e Computadores do Active Directory " no seu computador , que faz parte do servidor maior , o que também é conhecido como o Dsa.msc snap-in
< br. > 2

Crie o seguinte Visual Basic Script :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Definir wshArguments = WScript.Arguments

Definir objUser = GetObject ( wshArguments (0) )

Se IsLockedOut ( objUser ) Então

objUser.Put " lockoutTime ", " 0 "

objUser.SetInfo

MsgBox " O usuário foi desbloqueado - "& objUser.sAMAccountName

Else

MsgBox" A conta de usuário não está bloqueado - "& objUser.sAMAccountName

End If

IsLockedOut Função ( objUser )

on Error Resume Next

Definir objLockout = objUser.get ( " lockoutTime " )

se Err.Number = E_ADS_PROPERTY_NOT_FOUND então

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


Salve esse script como " UNLOCK_USER . VBS " . no sistema do servidor
3

Criar o script de Visual Basic :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary =" " < br > Definir

wshArguments = WScript.Arguments

Definir objOU = GetObject ( wshArguments (0) )

Para Cada objIADs em objOU

Se LCase ( objIADs.Class ) = " usuário" Então

Se IsLockedOut ( objIADs ) Então

objIADs.Put " lockoutTime ", " 0 "

objIADs.SetInfo

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

End If End If


Próxima

Se strSummary = "" Then

MsgBox " ! Nenhum usuário bloqueado encontrado"

Else

MsgBox " Os seguintes usuários foram desbloqueados :" & _ vbNewLine

& " ----- -------------------------------------------- "& vbNewLine & strSummary

End If

IsLockedOut Função ( objUser )

on Error Resume Next

Definir objLockout = objUser.get ( " lockoutTime " )

Se Err.Number = E_ADS_PROPERTY_NOT_FOUND então

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


Função End of

Salve esse script como " UNLOCK_USERS_IN_OU.VBS ".
4

Open " adsiEdit.msc " e navegue até o caminho CN = ​​user- display, CN = ​​409, CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net. Botão direito do mouse no objeto de usuário -Display e escolha " Propriedades". O primeiro atributo na lista fornecida é " adminContextMenu "; clique duas vezes sobre ele e adicionar a linha de script "4 , e desbloquear usuário , \\ \\ zeus \\ netlogon \\ unlock_user.vbs ". Clique em "Adicionar " para adicionar a linha.
5

Volte para " AdsiEdit.msc " e vá para o caminho CN = ​​organizationalUnit -Display , CN = 409 , CN = ​​DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net. Encontre o objeto organizationalUnit -Display , clique com o botão direito sobre ele e selecione " Propriedades". Encontre o organizationalUnit -Display e clique duas vezes sobre ele. Adicione a seguinte linha para o atributo : "3 , e desbloquear usuários na OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs ". Clique em "Adicionar " para adicionar a linha.
6

Close " AdsiEdit.msc " para finalizar o processo de adicionar o script que irá desbloquear o usuário.
< Br >

Anterior :

Próximo : No
  Os artigos relacionados
·Como depurar VBScript 
·Como usar o LAME em Visual Basic 
·Como isolar o nível para uma conexão 
·Visual Basic 6 não vai deixar você guardar como um ar…
·Como gerar Sub Reports em VB NET 
·Código VB para o Centro de texto em uma caixa de mensa…
·Como usar Task em VBA 
·Visual Basic 2010 Web Browser Progress Bar Tutorial 
·Como usar múltiplas desigualdades em Visual Basic 
·Como fazer um botão Google em Visual Basic 
  Artigos em destaque
·Como ler cookies Com Python 
·Como usar Strict em um script Perl 
·Como usar Sessões na Revolução MODx 
·MySQL DBA Tutorial 
·Como controlar margens em um JavaScript 
·Como formatar casas decimais em Java 
·Como ler entrada de texto do DOSBox Com Perl 
·Como usar cordas como a entrada do teclado em arrays bi…
·Java Erro PID: 236 
·Como escrever um programa Java que solicita um usuário…
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados