none
Script de Criação de Usuário no Active Directory RRS feed

  • Pergunta

  • Boa noite pessoal.
    Queria saber se existe um script que quando crie a conta de usuário no AD, também indique o dominio, por exemplo:

    Nilson.Silva@exemploDominio.com

    Pois essa semana, algumas contas criadas com este script:

    Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com")

    Set objUser = objOU.Create("User", "cn=MyerKen")
    objUser.Put "sAMAccountName", "myerken"
    objUser.SetInfo
    Algumas contas apresentaram um  erro de dominio, e só consegui resolver quado entro no Active Directory, e acessando a conta do usuário, na aba Conta, eu indico o dominio.

    Teria como incrementar esse script para que esse dominio já ficasse especificado na criação, sem eu precisar entrar no active directory e ter que fazer isso manualmente?


    Desde já agradeço a atenção de todos.

    Abraços
    domingo, 26 de abril de 2009 02:58

Respostas

  • Olá,

    tente usar esse aqui:

    Option Explicit
    Dim strUser
    Dim objRootLDAP, objContainer, objNewUser
    strUser = "Nilson.Silva"

    Set objRootLDAP = GetObject("LDAP://rootDSE")
    Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootLDAP.Get("defaultNamingContext"))

    Set objNewUser = objContainer.Create("User", "cn=" & strUser)
    objNewUser.Put "sAMAccountName", strUser
    objNewUse.Put "userPrincipalName", strUser & "@ExemploDominio.com"
    objNewUser.SetInfo

    WScript.Quit


    Abraços,

    Marcelo.

    Obs: Se foi útil/respondeu, classifique.


    Marcelo Braga -- Um discipulo de Jesus -- MCT/ MCSA/ MCITP/ MCTS Exchange 2007. http://WindowsServer-AD.blogspot.com
    domingo, 26 de abril de 2009 03:58

Todas as Respostas

  • Olá,

    tente usar esse aqui:

    Option Explicit
    Dim strUser
    Dim objRootLDAP, objContainer, objNewUser
    strUser = "Nilson.Silva"

    Set objRootLDAP = GetObject("LDAP://rootDSE")
    Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootLDAP.Get("defaultNamingContext"))

    Set objNewUser = objContainer.Create("User", "cn=" & strUser)
    objNewUser.Put "sAMAccountName", strUser
    objNewUse.Put "userPrincipalName", strUser & "@ExemploDominio.com"
    objNewUser.SetInfo

    WScript.Quit


    Abraços,

    Marcelo.

    Obs: Se foi útil/respondeu, classifique.


    Marcelo Braga -- Um discipulo de Jesus -- MCT/ MCSA/ MCITP/ MCTS Exchange 2007. http://WindowsServer-AD.blogspot.com
    domingo, 26 de abril de 2009 03:58
  • Boa tarde Marcelo.

    Desculpe, mas ainda sou um pouco leigo quanto a Scripts. Um dos caminhos no qual eu tenho que criar os usuários no domínio seria esse: "LDAP://INET.NAC.COM.BR/OU=users,OU=softway,OU=partners,OU=NAC Linhas Aereas,OU=NAC,DC=inet,DC=NAC,DC=com,DC=br". Como eu faço para inserir esse caminho por exemplo nesse código? Onde eu insiro ele?

    Agradeço a atenção.


    Abraços.


    Nilson Silva
    domingo, 26 de abril de 2009 20:14
  • Olá,

    tente usar esse aqui:

    Option Explicit
    Dim strUser
    Dim objRootLDAP, objContainer, objNewUser
    strUser = "Nilson.Silva"

    Set objRootLDAP = GetObject("LDAP://rootDSE")
    Set objContainer = GetObject("LDAP://cn=Users," & _
    objRootLDAP.Get("defaultNamingContext"))

    Set objNewUser = objContainer.Create("User", "cn=" & strUser)
    objNewUser.Put "sAMAccountName", strUser
    objNewUse.Put "userPrincipalName", strUser & "@ExemploDominio.com"
    objNewUser.SetInfo

    WScript.Quit


    Abraços,

    Marcelo.

    Obs: Se foi útil/respondeu, classifique.


    Marcelo Braga -- Um discipulo de Jesus -- MCT/ MCSA/ MCITP/ MCTS Exchange 2007. http://WindowsServer-AD.blogspot.com

    Marcelo, já consegui adaptar o código, muito obrigado pela luz, resolveu meu problema.

    Abraços.

    Deus te abençoe.



    Nilson Silva.
    segunda-feira, 27 de abril de 2009 02:01
  • Blz Nilson. É issoaí!

    Então marque aí a resposta pra fecchar a thread.

    Abraços,

    Marcelo.
    Marcelo Braga -- Um discipulo de Jesus -- MCT/ MCSA/ MCITP/ MCTS Exchange 2007. http://WindowsServer-AD.blogspot.com
    segunda-feira, 27 de abril de 2009 03:38
  • Blz Nilson. É issoaí!

    Então marque aí a resposta pra fecchar a thread.

    Abraços,

    Marcelo.
    Marcelo Braga -- Um discipulo de Jesus -- MCT/ MCSA/ MCITP/ MCTS Exchange 2007. http://WindowsServer-AD.blogspot.com
    segunda-feira, 27 de abril de 2009 03:38
  • Olá Marcelo,

    Classifiquei sua resposta.

    Até mais,

    Jesiel
    segunda-feira, 27 de abril de 2009 20:45
  • Olá Marcelo,

    Classifiquei sua resposta.

    Até mais,

    Jesiel
    segunda-feira, 27 de abril de 2009 20:45