none
Add usuário em grupo do AD RRS feed

  • Pergunta

  • Ba galera, estou com o script abaixo tche que executa a função de colocar usuários em grupo do AD tche, porem eu queria eliminar a dependência das variáveis de definição das OUs, como eu poderia fazer isso pois a OU aonde esta o grupo é fixa tche porem dos usuários são aleatórias.

    Ou seja, eu gostaria de passar pra ele a conta do usuário e ele achar aonde ele esta no AD e adicionar no grupo.

    Obrigado 

    script.

    Option Explicit 
    Dim strOU, strGroup, strUser, strDNSDomain, strou2
    Dim objRootLDAP, objGroup, objUser
    
    '  Check these objects referenced by strOU, strGroup exist in strOU
    strOU = "OU=grupos,ou=TI,"
    strou2 = "OU=users,ou=vendas,"
    strUser = "CN=FSilva,"
    strGroup = "CN=GB_Imp,"
    
    '  Bind to Active Directory and get LDAP name
    Set objRootLDAP = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootLDAP.Get("DefaultNamingContext")
    
    '  Add (str)User to (str)Group
    Set objUser = GetObject("LDAP://"& strUser & strOU2 & strDNSDomain)
    Set objGroup = GetObject("LDAP://"& strGroup & strOU & strDNSDomain)
    objGroup.add(objUser.ADsPath)
    
    Wscript.Quit

    quinta-feira, 20 de agosto de 2015 20:42

Respostas

Todas as Respostas

  • Easy by using PoSh!

    Get-ADGroup Administrators | Add-ADGroupMember -Members Alvin.Holder

    quinta-feira, 20 de agosto de 2015 21:34
  • Ba Anderson,

    Obrigado pela ajuda tche, porem você sabe como realizar esse processo via vbs tche pois o codigo será parte de outro codigo.

    sexta-feira, 21 de agosto de 2015 01:48
  • Marcelo Bom dia.

    Acesse o link abaixo e de uma estudada no código, creio que com o mesmo você chegara no seu objetivo, caso tenha alguma dificuldade post para que a comunidade possa lhe ajudar.

    http://www.rlmueller.net/Programs/AddToGroup1.txt


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI sexta-feira, 21 de agosto de 2015 14:12
    sexta-feira, 21 de agosto de 2015 09:50
  • Ba Leandro bom dia tche, vou verificar e retorno.
    sexta-feira, 21 de agosto de 2015 12:24
  • Minha primeira recomendação é que você comece a aprender PowerShell. Perceba que com apenas uma linha o seu problema foi resolvido e com VBScript você vai precisar de pelo menos 60 linhas somente para fazer uma pesquisa e retornar o DN do usuário para utilizar no comando que deve incluir o usuário no grupo.

    No link abaixo você encontra um código que permite a busca de um usuário usando o sAMAccountName e retorna as informações que você precisa para executar o comando de inclusão no grupo. Leia, entenda e faça as adaptações que precisa para o seu código.

    Find AD user location in VBScript by samAccountName

    sexta-feira, 21 de agosto de 2015 12:46
  • Obrigado pela ajuda Leandro, consegui montar aqui tche.
    sexta-feira, 21 de agosto de 2015 14:12
  • Caso te ajude

    https://social.technet.microsoft.com/Forums/pt-BR/40c94dda-4a5b-42c8-ab38-37b98ff559f0/scripts-para-definir-grupos-e-acesso-a-pastas-de-rede?forum=winsrv2008pt#e91ea763-87ba-4ed7-a842-79645cfeb4a8

    sexta-feira, 21 de agosto de 2015 15:07