Bonjour les experts  j espere que vous allez bien
 
j'aimerai avoir votre aide svp sur un script
 
Voila je suis entrain de faire un script pour la creation des utilisateurs par leur OU
 
je vous met ici mon script et mon fichier excel
 
J' ai un message d'erreur de style  
 
Script c:\documents and settings\Administrators\desktop\userinou.vbs
 
Line 1
Char 1
Error ActiveX component can't create object 'Excel application'
Code 800A01AD
Source VBScript runtime error
 
 
Mon script :
 
Set objExcel = CreateObject(" Excel.Application" )
Set objWorkbook = objExcel.Workbooks.Open("C:\users.xls" )
intRow = 2
Site = "storks"
Do Until objExcel.Cells(intRow,1).Value = ""
     Nom = objExcel.Cells(intRow, 1).Value
     Prenom = objExcel.Cells(intRow, 2).value
     NomCompte = Prenom & " " & Nom
     Compte = Nom
     Email = Prenom & "." & Nom & "@ storks.com"
     ComptePrincipal = Nom & "@storks.com"
     NomAffiche = Nom & " " & Prenom
 
 Set objDomain = GetObject("LDAP://dc=storks,dc=com" )
 
 Set objOU = objDomain.Create("organizationalUnit", "ou=Management" )
 objOU.SetInfo
 
     Set objOU = GetObject("LDAP://ou=Management,dc=storks,dc=com" )  
     Set objUser = objOU.Create("User", "cn=&NomCompte" )
     objUser.sAMAccountName = Compte
     objUser.UserPrincipalName = ComptePrincipal
     objUser.GivenName = Prenom
     objUser.SN = Nom
     objUser.Mail = Email
     objUser.DisplayName = NomAffiche
     objUser.SetInfo
 
     objUser.AccountDisabled = FALSE
     objUser.SetPassword Prenom
     objUser.Put "pwdLastSet", 0
     objUser.SetInfo
     intRow = intRow + 1
Loop
Wscript.echo "Opération terminée"
objExcel.Quit
 
Mon fichier excel
 
NOM     Prénom NomCompte Compte    Email                                  ComptePrincipal          
BOISSERON Monique    MBOISSERON    BOISSERON Monique.BOISSERON@storks.com   MBOISSERON@storks.com  
 
NomAffiche
BOISSERONMonique
 
 
Voila si quelqu'un peut m'aider si y a quelqu'un veut rajouter qqchse sur mon script vous êtes le bienvenu je suis novice en scritp donc j'attends votre avis merci d'avance
 
 
 
 
 

Il y a un espace inutile dans  (" Excel.Application" )
Set objExcel = CreateObject("Excel.Application" )