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
