none
Script para usuário desligado (Desabilitar, mover, apagar campos) RRS feed

  • Pergunta

  • Pessoal bom dia!

    Como não entendo nada de Scripts preciso de uma ajuda, quando desligamos um usuario aqui na empresa temos algumas coisas que preciso fazer,
    gostaria de fazer um script com uma tela onde eu digite o login de usuário e ele faça as seguintes açoes
                          Açao                                       Aba do AD

    Desabilitar a conta

    Account

    Mover para OU Desligados

    Object

    Marcar Hide From Exchange address List

    Exchange Advanced

    Mover para Storage Group - Desligados

    Exchange General

    Limpar Name , Manager

    Organization


    Seria possivel um script  com tudo isso?
    Obrigado
    Rodrigo Gomes MCP - 70-291/290/270
    segunda-feira, 27 de julho de 2009 13:34

Respostas

  • Olá,


    Verifique o script abaixo:


    strDN =     InputBox("Digite o  distinguished namedo usuário" & _
        vbCrLf & "(Exemplo: " & strDefaultDN & ")", , strDefaultDN)

    If strDN = "" Then WScript.Quit(1)        'user clicked Cancel

    Set objUser = GetObject("LDAP://" & strDN)
    'objUser.HideFromAddressBook = True

    'objUser.SetInfo

    intUAC = objUser.Get("userAccountControl")
    objUser.Put "userAccountControl", intUAC OR "2"
    objUser.PutEx 1, "manager", vbNullString

    objUser.SetInfo

    objOU.MoveHere "LDAP://" & strDN, vbNullString



    Só faltou o Hide do Address List e mover o mailbox store.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    quarta-feira, 29 de julho de 2009 14:59

Todas as Respostas

  • A 1ª, 2ª, 3ª e 5ª é facil.. mas a 4ª eu nunca vi...

    Aqui fazemos o seguinte, quando um usuario é desabilitado, ele marca como oculto, move para outra OU, mida a description para a data que ele foi desabilitado (mais facil para consulta e limpeza do ad) e desabilita a conta.. mas mover de SG eu nunca vi meeeesmo..

    Voce ja fez algum script? ja deu uma pesquisada neste site?
    http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

    Fiz o script que mencionei pelo site aee.. beixei também um "vbsedit" que me ajudou muito..  fazer no notepad estava complicado hehe

    abraço.

    Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003
    terça-feira, 28 de julho de 2009 16:11
  • Ola Eduardo!

    Obrigado pelo retorno!

    entao para mim todos eles sao dificeis, ja tentei fazer varios nunca consegui...

    vou dar uma olhada no site que vc mandou, legal a parte da data do desligamento, vou add isso é muito util.

    vou tentar obrigado
    Rodrigo Gomes MCP - 70-291/290/270
    terça-feira, 28 de julho de 2009 16:14
  • Eduardo procurei nesse site ai que vc me passou,

    achei esse script
    Const ADS_PROPERTY_CLEAR = 1 
     
    Set objUser = GetObject _
       ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com") 
     
    objUser.PutEx ADS_PROPERTY_CLEAR, "initials", 0
    objUser.PutEx ADS_PROPERTY_CLEAR, "otherTelephone", 0
    objUser.SetInfo
    Fiz um assim,
    ___________________________________________________________________________________
    Const ADS_PROPERTY_CLEAR = 1
     
    Set objUser = GetObject _
       ("LDAP://"CN=adm-rodrigo,OU=Usuarios,OU=Datacenter,DC=Dominio,DC=local"")
     
    objUser.PutEx ADS_PROPERTY_CLEAR, "initials", 0
    objUser.SetInfo
    ____________________________________________________________________________________
    Ele retorna mensagem de erro
    linha 4
    carater 14
    Error Expected ')'

    Consegue me ajudar?
    isso que eh so o promeiro que estou fazendo, e estou fazendo ele limpar o campo initials para teste, porque o que preciso mesmo é o name de manager dentro de organization...




    Rodrigo Gomes MCP - 70-291/290/270
    terça-feira, 28 de julho de 2009 18:06
  • antes de CN nao tem aspas.. hehe

    daqui a pouco eu faço um pra voce... só estou meio enrrolado aqui..  com aquilo que me pediu.. menos mover de SG .. :-D

    abs

    Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003
    terça-feira, 28 de julho de 2009 18:10
  • legal !

    valeu Eduardo!!
    Rodrigo Gomes MCP - 70-291/290/270
    terça-feira, 28 de julho de 2009 19:24
  • Olá,


    Verifique o script abaixo:


    strDN =     InputBox("Digite o  distinguished namedo usuário" & _
        vbCrLf & "(Exemplo: " & strDefaultDN & ")", , strDefaultDN)

    If strDN = "" Then WScript.Quit(1)        'user clicked Cancel

    Set objUser = GetObject("LDAP://" & strDN)
    'objUser.HideFromAddressBook = True

    'objUser.SetInfo

    intUAC = objUser.Get("userAccountControl")
    objUser.Put "userAccountControl", intUAC OR "2"
    objUser.PutEx 1, "manager", vbNullString

    objUser.SetInfo

    objOU.MoveHere "LDAP://" & strDN, vbNullString



    Só faltou o Hide do Address List e mover o mailbox store.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    quarta-feira, 29 de julho de 2009 14:59
  • Obrigado Jesiel, muito obrigado pelo retorno, vou testar e posto as duvidas..rsrrs


    valeu
    Rodrigo Gomes MCP - 70-291/290/270
    quarta-feira, 29 de julho de 2009 16:54
  • Ola Rodrigo,
    esse script realmente funciona, mais se eu tiver mais de 800 usuarios para limpar o campo "otherTelephone" como posso fazer?

    abraços
    sexta-feira, 30 de outubro de 2009 18:55