none
Criação de contatos RRS feed

  • Pergunta

  • Boa tarde pessoal !

     

    Surgiu uma necessidade aqui na empresa e gostaria de saber se alguém pode me ajudar.

     

    Preciso criar no AD 2.800 contatos com nome e SMTP pois vou criar um grupo de distribuição no AD para todos esses contatos.

     

    Alguém poderia me ajudar com isso ?

     

    Abraço e obrigado.

    terça-feira, 9 de outubro de 2007 18:36

Respostas

  • Alexandre já existe um post referente a este assunto aqui no Forum dê uma olhada para maiores detalhes.

     

    http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=2228209&SiteID=29

     

    O script ficaria assim:

     

    Code Block

    Dim objRootLDAP, objContainer, objUser, objShell
    Dim strUser, strName, strContainer
    Dim arrStr, login, arquivo, fs, objTextFile
    strContainer = "OU=vbs ,"
    Const ForReading = 1
     
    arquivo ="C:\arquivos.csv"  
     
    Set fs=CreateObject("Scripting.FileSystemObject")
    Set objTextFile = fs.OpenTextFile(arquivo, ForReading)  
     
    objTextFile.SkipLine
     
    Do While Not objTextFile.AtEndOfStream
     
    arrStr = Split(objTextFile.ReadLine,",")
     strName = arrstr(0)
     strUser = arrstr(1)
     
    Set objRootLDAP = GetObject(LDAP://rootDSE)
    Set objContainer = GetObject("LDAP://" & strContainer & objRootLDAP.Get("defaultNamingContext"))
     
    Set objUser = objContainer.Create("contact", "cn=" & strUser)
    objUser.Put "sAMAccountName", strUser
    objUser.Put "givenName", strName
    objUser.SetInfo
     
    Loop
     
    objTextFile.Close
     
    WScript.Quit

     

     

    quarta-feira, 10 de outubro de 2007 03:25

Todas as Respostas

  • Alexandre já existe um post referente a este assunto aqui no Forum dê uma olhada para maiores detalhes.

     

    http://forums.microsoft.com/Technet-BR/ShowPost.aspx?PostID=2228209&SiteID=29

     

    O script ficaria assim:

     

    Code Block

    Dim objRootLDAP, objContainer, objUser, objShell
    Dim strUser, strName, strContainer
    Dim arrStr, login, arquivo, fs, objTextFile
    strContainer = "OU=vbs ,"
    Const ForReading = 1
     
    arquivo ="C:\arquivos.csv"  
     
    Set fs=CreateObject("Scripting.FileSystemObject")
    Set objTextFile = fs.OpenTextFile(arquivo, ForReading)  
     
    objTextFile.SkipLine
     
    Do While Not objTextFile.AtEndOfStream
     
    arrStr = Split(objTextFile.ReadLine,",")
     strName = arrstr(0)
     strUser = arrstr(1)
     
    Set objRootLDAP = GetObject(LDAP://rootDSE)
    Set objContainer = GetObject("LDAP://" & strContainer & objRootLDAP.Get("defaultNamingContext"))
     
    Set objUser = objContainer.Create("contact", "cn=" & strUser)
    objUser.Put "sAMAccountName", strUser
    objUser.Put "givenName", strName
    objUser.SetInfo
     
    Loop
     
    objTextFile.Close
     
    WScript.Quit

     

     

    quarta-feira, 10 de outubro de 2007 03:25
  • Obrigado.

     

    quinta-feira, 11 de outubro de 2007 14:59
  • Bom dia !

     

    Pessoal, eu consegui criar os contatos, porém nas propriedades do contato, ele não cria a aba email adresses, e não coloca o enderelo de e-mail como SMTP.

     

    Com isso, eu não consigo selecionar o contato no catalogo de endereços do outlook.

     

    Alguém sabe como corrigir isso ?

     

    terça-feira, 16 de outubro de 2007 12:50