none
Script VBS para criar uma conta de usuário no AD com uma mailbox RRS feed

  • Pergunta

  • Boa tarde.

    Estive pesquisando no forum e na Web também se eu encontrava algum script em vbs para criar uma conta de usuário no AD com uma Mailbox, porém encontrei alguns scripts mas não funcionou, pois só funcionavam no Exchange Server 2007, e eu estou utilizando o Exchange 2003, e outros eu não consegui compreender mutio bem. Alguém poderia me ajudar? Pois, eu estou precisando urgente de um script que supra essa necessidade.

    Agradeço pela atenção.


    Att,


    Nilson Silva.
    sexta-feira, 4 de setembro de 2009 15:26

Respostas

  • Olá,

    Verifique o exemplo abaixo:


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

    'Nome do Mailbox Store (Exchange)
    MDBName    = "Mailbox Store (SERVEX2003)"

    'Nome do Storage Group
    StorageGroup = "First Storage Group"

    'Nome do Servidor (Exchange)
    Server = "SERVEX2003"

    'Nome do AdminGroup
    AdminGroup = "First Administrative Group"

    'Nome da Empresa
    Organization = "Contoso"

    'Nome do Dominio
    DomainDN = "dc=contoso,dc=local"



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

    strDN =     InputBox("Coloque o caminho da OU onde será criado o usuário" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)

    strUser = InputBox("Coloque o nome do usuário" & _
        vbCrLf & "(Ex.: " & "Manuel" & ")", , "Manuel")

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

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

    Set objUser = objContainer.Create("User", "cn=" & strUser)
    objUser.Put "sAMAccountName", strUser

    objUser.SetInfo


    Set objMailbox = objUser
    objMailbox.CreateMailbox "LDAP://CN=" & MDBName & _
    ",CN=" & StorageGroup & _
    ",CN=InformationStore" & _
    ",CN=" & Server & _
    ",CN=Servers" & _
    ",CN=" & AdminGroup & _
    ",CN=Administrative Groups" & _
    ",CN=" & Organization & _
    ",CN=Microsoft Exchange,CN=Services" & _
    ",CN=Configuration," & DomainDN

    objUser.SetInfo


    A criação de usuário, precisa ser melhorada (incluir email, nome, sobrenome, etc) Mas para você verificar se funciona a criação de mailbox já é suficiente. Fiz os testes e funcionou.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta Nilson Silva sexta-feira, 4 de setembro de 2009 19:07
    sexta-feira, 4 de setembro de 2009 17:32
  • Olá,

    BRSERVER é o nome do seu servidor correto??

    Se você abrir o exchange system manager, abaixo do First Storage Group você tem o nome do mailbox store.

    Se estiver no padrão, você deve configurar assim:


    'Nome do Mailbox Store (Exchange)
    MDBName    = "Mailbox Store (BRSERVER)"

    'Nome do Storage Group
    StorageGroup = "First Storage Group" '-> Aqui não precisa alterar

    'Nome do Servidor (Exchange)
    Server = "BRSERVER"

    'Nome do AdminGroup
    AdminGroup = "First Administrative Group" '-> Aqui também aparentemente não precisa alterar

    'Nome da Empresa
    Organization = "Contoso" ' -> Aqui você coloca o nome da empresa

    'Nome do Dominio
    DomainDN = "dc=vnu,dc=com,dc=br"



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta Nilson Silva sexta-feira, 4 de setembro de 2009 19:08
    sexta-feira, 4 de setembro de 2009 18:27

Todas as Respostas

  • Olá,

    Verifique o exemplo abaixo:


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

    'Nome do Mailbox Store (Exchange)
    MDBName    = "Mailbox Store (SERVEX2003)"

    'Nome do Storage Group
    StorageGroup = "First Storage Group"

    'Nome do Servidor (Exchange)
    Server = "SERVEX2003"

    'Nome do AdminGroup
    AdminGroup = "First Administrative Group"

    'Nome da Empresa
    Organization = "Contoso"

    'Nome do Dominio
    DomainDN = "dc=contoso,dc=local"



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

    strDN =     InputBox("Coloque o caminho da OU onde será criado o usuário" & _
        vbCrLf & "(Ex.: " & strDefaultDN & ")", , strDefaultDN)

    strUser = InputBox("Coloque o nome do usuário" & _
        vbCrLf & "(Ex.: " & "Manuel" & ")", , "Manuel")

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

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

    Set objUser = objContainer.Create("User", "cn=" & strUser)
    objUser.Put "sAMAccountName", strUser

    objUser.SetInfo


    Set objMailbox = objUser
    objMailbox.CreateMailbox "LDAP://CN=" & MDBName & _
    ",CN=" & StorageGroup & _
    ",CN=InformationStore" & _
    ",CN=" & Server & _
    ",CN=Servers" & _
    ",CN=" & AdminGroup & _
    ",CN=Administrative Groups" & _
    ",CN=" & Organization & _
    ",CN=Microsoft Exchange,CN=Services" & _
    ",CN=Configuration," & DomainDN

    objUser.SetInfo


    A criação de usuário, precisa ser melhorada (incluir email, nome, sobrenome, etc) Mas para você verificar se funciona a criação de mailbox já é suficiente. Fiz os testes e funcionou.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta Nilson Silva sexta-feira, 4 de setembro de 2009 19:07
    sexta-feira, 4 de setembro de 2009 17:32
  • Jesiel,

    Eu testei o script acima, e ele cria o usuário, porém ele da um erro em relação aos dados do servidor exchange q eu passei, poderia me ajudar nesse parte? Segue abaixo os dados:

    Tem dois dominios no AD, o dominio inet.vnu.com.br e o dominio vnu.com.br, porém, quando criamos o e-mail pelo Exchange Task, ele cria automaticamente @vnu.com.br. E no Exchange Task, existe dois servidores, com algumas Mailbox Store pra selecionar. Segue a lista abaixo:

    Server Exchange e Mailbox Store
    ---------------

    Server:
    VNU/First Administrative Group/BRSERVER 128

    Mailbox Store

        - First Storage Group/BR128-SG1-MBX1-Q50
        - First Storage Group/BR128-SG1-MBX2-Q50
        - Quarter Storage Group/BR128-SG4-MBX1-Q50
        - Quarter Storage Group/BR128-SG4-MBX2-Q50
        - Second Storage Group/BR128-SG2-MBX1-Q50
        - Second Storage Group/BR128-SG2-MBX2-Q50
        - Third Storage Group/BR128-SG3-MBX1-Q50
        - Third Storage Group/BR128-SG3-MBX2-Q50
        - Third Storage Group/BR128-SG3-MBX3-DISABLED

    Server:
    VNU/First Administrative Group/BRSERVER 129

    Mailbox Store

        - First Storage Group/BR129-SG1-MBX1-Q50
        - First Storage Group/BR129-SG1-MBX2-Q50
        - Quarter Storage Group/BR129-SG4-MBX1-Q50
        - Quarter Storage Group/BR129-SG4-MBX2-Q50
        - Second Storage Group/BR129-SG2-MBX1-Q50
        - Second Storage Group/BR129-SG2-MBX2-Q50
        - Third Storage Group/BR129-SG3-MBX1-Q50
        - Third Storage Group/BR129-SG3-MBX2-Q50
        - Third Storage Group/BR129-SG3-MBX3-DISABLED


    Quais são os dados que eu devo subistituir??



    Obrigado pela atenção.


    Att,


    Nilson Silva.
    sexta-feira, 4 de setembro de 2009 18:09
  • Olá,

    BRSERVER é o nome do seu servidor correto??

    Se você abrir o exchange system manager, abaixo do First Storage Group você tem o nome do mailbox store.

    Se estiver no padrão, você deve configurar assim:


    'Nome do Mailbox Store (Exchange)
    MDBName    = "Mailbox Store (BRSERVER)"

    'Nome do Storage Group
    StorageGroup = "First Storage Group" '-> Aqui não precisa alterar

    'Nome do Servidor (Exchange)
    Server = "BRSERVER"

    'Nome do AdminGroup
    AdminGroup = "First Administrative Group" '-> Aqui também aparentemente não precisa alterar

    'Nome da Empresa
    Organization = "Contoso" ' -> Aqui você coloca o nome da empresa

    'Nome do Dominio
    DomainDN = "dc=vnu,dc=com,dc=br"



    Até mais,

    Jesiel

    Obs.: Se útil, classifique



    • Marcado como Resposta Nilson Silva sexta-feira, 4 de setembro de 2009 19:08
    sexta-feira, 4 de setembro de 2009 18:27
  • Jesiel,

    Problema resolvido. Muito obrigado mais uma vez;


    Att,


    Nilson Silva.
    sexta-feira, 4 de setembro de 2009 19:07