none
Modificando contas no AD RRS feed

  • Pergunta

  •  Olá pessoal,

    estou querendo alterar várias contas de usuários no meu AD mas não sei como fazer para pegar todas as contas de usuário do dominio ou de uma determinada OU.

    Alguém poderia me ajudar ?

    Muito Obrigado!

    Abraço a todos.
    Gustavo Santos
    segunda-feira, 9 de fevereiro de 2009 22:46

Respostas

  • Olá,

    Oque você precisa mudar????

    Coloque os campos para tentarmos te ajudar.

    Até mais,

    Jesiel
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    terça-feira, 10 de fevereiro de 2009 02:01
  • Oi Jesiel, tudo tranquilo????

    Bom na verdade eu tenho que mudar a aba envoironment, eu ja tenho o nome de outros campos que preciso alterar.
    Estava executando scripts para 1 usuário apenas, e não sei como executar para vários usuários.

    Se puder ajudar!!!


    Muito Obrigado !


    Gustavo Santos
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    terça-feira, 10 de fevereiro de 2009 14:21
  • Olá Gustavo,

    Segue o script abaixo:

    Option Explicit

    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,objUser

    Set objDSE = GetObject("LDAP://rootDSE")
    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")

    strDN =     InputBox("Coloque o distinguished name do container" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)

    If strDN = "" Then WScript.Quit(1)       

    Set objContainer = GetObject("LDAP://" & strDN)

    objContainer.Filter = Array("user")

    For Each objChild In objContainer
        set objUser = GetObject("LDAP://" & objChild.Name & "," & strDN)
            objUser.ConnectClientDrivesAtLogon = "0"
            objUser.ConnectClientPrintersAtLogon = "0"
            objUser.DefaultToMainPrinter = "0"
            objUser.TerminalServicesInitialProgram = ""
            objUser.TerminalServicesWorkDirectory = ""
            objUser.SetInfo
    Next


    Faça um teste e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    terça-feira, 10 de fevereiro de 2009 16:25
  • Olá,

    Gustavo Funcionou???

    Até mais,

    Jesiel
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    quarta-feira, 11 de fevereiro de 2009 12:04

Todas as Respostas

  • Olá,

    Oque você precisa mudar????

    Coloque os campos para tentarmos te ajudar.

    Até mais,

    Jesiel
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    terça-feira, 10 de fevereiro de 2009 02:01
  • Oi Jesiel, tudo tranquilo????

    Bom na verdade eu tenho que mudar a aba envoironment, eu ja tenho o nome de outros campos que preciso alterar.
    Estava executando scripts para 1 usuário apenas, e não sei como executar para vários usuários.

    Se puder ajudar!!!


    Muito Obrigado !


    Gustavo Santos
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    terça-feira, 10 de fevereiro de 2009 14:21
  • Olá Gustavo,

    Segue o script abaixo:

    Option Explicit

    Dim objDSE, strDefaultDN, strDN, objContainer, objChild,objUser

    Set objDSE = GetObject("LDAP://rootDSE")
    strDefaultDN = "CN=Users," & objDSE.Get("defaultNamingContext")

    strDN =     InputBox("Coloque o distinguished name do container" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)

    If strDN = "" Then WScript.Quit(1)       

    Set objContainer = GetObject("LDAP://" & strDN)

    objContainer.Filter = Array("user")

    For Each objChild In objContainer
        set objUser = GetObject("LDAP://" & objChild.Name & "," & strDN)
            objUser.ConnectClientDrivesAtLogon = "0"
            objUser.ConnectClientPrintersAtLogon = "0"
            objUser.DefaultToMainPrinter = "0"
            objUser.TerminalServicesInitialProgram = ""
            objUser.TerminalServicesWorkDirectory = ""
            objUser.SetInfo
    Next


    Faça um teste e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    terça-feira, 10 de fevereiro de 2009 16:25
  • Olá,

    Gustavo Funcionou???

    Até mais,

    Jesiel
    • Marcado como Resposta Gustavo Santos sexta-feira, 13 de fevereiro de 2009 19:01
    quarta-feira, 11 de fevereiro de 2009 12:04
  • Jesiel,

    desculpe a minha ignorancia na parte de scripts mas esclareça uma coisa, 

    strDN =     InputBox("Coloque o distinguished name do container" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)


    Não entendi quais as alterações que devem ser feitas nessa parte!


    Abraços !

    Gustavo Santos
    sexta-feira, 13 de fevereiro de 2009 18:44
  • Olá Gustavo,

    Desculpe não comentar o código.

    Na verdade você tem que alterar somente no For, conforme abaixo:
    Depois salve com a extensão .vbs e execute. Quando for pedido o destinguished name, insira o endereço da OU (LDAP) exemplo: ou=usuarios,ou=saopaulo,dc=dominio,dc=local

    For Each objChild In objContainer
        set objUser = GetObject("LDAP://" & objChild.Name & "," & strDN)

        'AQUI COLOQUE 1 PARA HABILITAR E 0 PARA DESABILITAR
            objUser.ConnectClientDrivesAtLogon = "1"
            objUser.ConnectClientPrintersAtLogon = "1"
            objUser.DefaultToMainPrinter = "1"

        'AQUI COLOQUE O PROGRAMA INICIAL ENTRE AS ASPAS
            objUser.TerminalServicesInitialProgram = ""

        'AQUI COLOQUE O DIRETORIO DE TRABALHO ENTRE AS ASPAS
            objUser.TerminalServicesWorkDirectory = ""
            objUser.SetInfo
    Next


    Teste e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 13 de fevereiro de 2009 20:55
  •  Fala ai Jesiel,

    tudo bom ???

    cara funcionou suave o script ...

    valeu messsssmo ....

    se der passa umas dicas de estudo ai ... vai me ajudar muitooo..

    Abraço e MUITO OBRIGADO !
    Gustavo Santos
    segunda-feira, 16 de fevereiro de 2009 23:52
  • Olá Gustavo....

    Bacana que resolveu...

    Bom... segue abaixo os links que irão te ajudar com certeza:

    Script Center -> Muito bom...
    http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

    Explicação como trabalhar com array no vbs
    http://www.criarweb.com/artigos/777.php

    Funções em VBS -> Bacana também
    http://www.w3schools.com/VBscript/vbscript_ref_functions.asp

    Qualquer dúvida em alguma função... Só postar...

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 17 de fevereiro de 2009 11:47