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 >
