Usuário com melhor resposta
Script VBS para criar uma conta de usuário no AD com uma mailbox

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.
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
-
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
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
-
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. -
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
-