Problème avec mon VBS

Question

J'essaie d'ajouter une liste d'utilisateurs à partir d'un fichier xls et je reçois cette erreur:

Line: 6 
Char: 5 
Invalid Syntax 

Le script que je suis en train d'utiliser ressemble à ceci:

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open _ 
    ("C:\Scriptt/Users.xls") 
intRow = 3 
Do Until objExcel.Cells(intRow,1).Value = "" 
    Set objOU = GetObject("ou=REAL, dc=ormbunken, dc=com") 
    Set objUser = objOU.Create _ 
     ("User", "cn=" & objExcel.Cells(intRow, 2).Value) 
    objUser.sAMAccountName = objExcel.Cells(intRow, 1).Value 
    objUser.SetPassword = objExcel.Cells(intRow, 5).Value 
    objUser.GivenName = objExcel.Cells(intRow, 3).Value 
    objUser.SN = objExcel.Cells(intRow, 4).Value 
    objUser.AccountDisabled = FALSE 
    objUser.SetInfo 
    intRow = intRow + 1 
Loop 
objExcel.Quit 

Est-ce que quelqu'un sait ce qui ne va pas?

Answer 1

Avez-vous besoin de fournir un protocole/serveur dans l'appel GetObject? Comme ce que cela dit

Set oOU = GetObject("LDAP://test.test.cz/ou=skup,dc=test,dc=test,dc=cz") 
Set oUser = oOU.Create("User", "cn=" & "Test" & " " & "Tester") 

pris de http://msdn.itags.org/iis/2649/

---

a fait un Google, a trouvé http://www.computerperformance.co.uk/vbscript/vbscript_user_spreadsheet.htm