none
Cadastramento de usuarios. RRS feed

  • Pergunta

  • Prezados,

    Estou precisando de um script para fazer o cadastramento de usuarios no meu DC, e que ele me envie o nome e a senha por e-mail.


    Leandro Borges
    terça-feira, 31 de março de 2009 13:54

Respostas

  • Boa Tarde,

    Segue.
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open ("D:\Scripts\NewUsers.xls")
     
    intRow = 2
     
    Do Until objExcel.Cells(intRow,1).Value = ""
        
        Can= objExcel.Cells(intRow, 1).Value
        sAMAccountName2= objExcel.Cells(intRow, 2).Value
        Nome= objExcel.Cells(intRow, 3).Value
        Nome2 = objExcel.Cells(intRow, 4).Value
        
           
     
     
    Set objOU = GetObject("LDAP://OU=Location,OU=Sao Paulo,dc=nwtraders,dc=msft")
     
    Set objUser = objOU.Create("User", "cn="&can)
    objUser.Put "sAMAccountName", Samaccountname2
    objuser.put "givenName",nome
    objuser.put "sn", nome2
    objuser.setinfo
     
    
    intRow = intRow + 1
    Loop
    objExcel.Quit
    
     
     
     
    '**********************
     
     
     
    Basta criar um xls no caminho D:\script com o nome de NewUsers.xls, o XLS deve ter a seguinte estrutura:
     
     
     
    Primeira Coluna = CN
     
    Segunda Coluna = SamAccountName
     
    Terceira Coluna = Primeiro Nome
     
    QUarta Coluna = Sobre-Nome
     
    Não esqueça de alterar a linha 
    
    Set objOU = GetObject("LDAP://OU=Location,OU=Sao Paulo,dc=nwtraders,dc=msft")
     
    para o LDAP correto de sua OU no dominio 
    

    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    segunda-feira, 4 de junho de 2012 16:20
    Moderador

Todas as Respostas

  • Olá,


    Você pode explicar melhor a necessidade? Ainda está muito vago...



    []s,



    Vinicius Canto
    MVP Admin Frameworks
    http://viniciuscanto.blogspot.com

    Vinicius Canto MVP Admin Frameworks Blog: http://viniciuscanto.blogspot.com
    quinta-feira, 2 de abril de 2009 02:40
    Moderador
  • Boa Tarde,

    Segue.
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open ("D:\Scripts\NewUsers.xls")
     
    intRow = 2
     
    Do Until objExcel.Cells(intRow,1).Value = ""
        
        Can= objExcel.Cells(intRow, 1).Value
        sAMAccountName2= objExcel.Cells(intRow, 2).Value
        Nome= objExcel.Cells(intRow, 3).Value
        Nome2 = objExcel.Cells(intRow, 4).Value
        
           
     
     
    Set objOU = GetObject("LDAP://OU=Location,OU=Sao Paulo,dc=nwtraders,dc=msft")
     
    Set objUser = objOU.Create("User", "cn="&can)
    objUser.Put "sAMAccountName", Samaccountname2
    objuser.put "givenName",nome
    objuser.put "sn", nome2
    objuser.setinfo
     
    
    intRow = intRow + 1
    Loop
    objExcel.Quit
    
     
     
     
    '**********************
     
     
     
    Basta criar um xls no caminho D:\script com o nome de NewUsers.xls, o XLS deve ter a seguinte estrutura:
     
     
     
    Primeira Coluna = CN
     
    Segunda Coluna = SamAccountName
     
    Terceira Coluna = Primeiro Nome
     
    QUarta Coluna = Sobre-Nome
     
    Não esqueça de alterar a linha 
    
    Set objOU = GetObject("LDAP://OU=Location,OU=Sao Paulo,dc=nwtraders,dc=msft")
     
    para o LDAP correto de sua OU no dominio 
    

    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    segunda-feira, 4 de junho de 2012 16:20
    Moderador