none
Configurar senha na criação do usuário RRS feed

Respostas

  • Vc tem que colocar a senha depois que criar o usuário em seguida execute o .setinfo novamente

     

    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 'Salva primeira vez
     
    
    	objUser.SetPassword "i5A2sj*!"
    	objuser.setinfo	'Salva segunda vez com senha nova
    
    	intRow = intRow + 1
    Loop
    
    objExcel.Quit
    


    Fábio de Paula Junior
    • Sugerido como Resposta Fábio JrModerator quarta-feira, 26 de outubro de 2011 10:30
    • Marcado como Resposta lalves quarta-feira, 26 de outubro de 2011 14:15
    terça-feira, 25 de outubro de 2011 16:21
    Moderador
  • OK Funcionou Obrigado pela ajuda.
    • Marcado como Resposta lalves quarta-feira, 26 de outubro de 2011 14:21
    quarta-feira, 26 de outubro de 2011 14:21

Todas as Respostas

  • Vc tem que colocar a senha depois que criar o usuário em seguida execute o .setinfo novamente

     

    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 'Salva primeira vez
     
    
    	objUser.SetPassword "i5A2sj*!"
    	objuser.setinfo	'Salva segunda vez com senha nova
    
    	intRow = intRow + 1
    Loop
    
    objExcel.Quit
    


    Fábio de Paula Junior
    • Sugerido como Resposta Fábio JrModerator quarta-feira, 26 de outubro de 2011 10:30
    • Marcado como Resposta lalves quarta-feira, 26 de outubro de 2011 14:15
    terça-feira, 25 de outubro de 2011 16:21
    Moderador
  • OK Funcionou Obrigado pela ajuda.
    • Marcado como Resposta lalves quarta-feira, 26 de outubro de 2011 14:21
    quarta-feira, 26 de outubro de 2011 14:21