créer des users par scripts

Bonjour
J'essaie d'adapter un script trouve sur le net pour créer des users dans
mon AD 2003

le script
***************************************
Dim oexapp, oexwk, oexws, owshshell, ocellule, i
Dim nom, prenom, loggin, mdp, bureau, messagerie, ville, liste
liste = ""
set oexapp = wscript.createobject("Excel.Application")
set owshshell = wscript.createobject("wscript.shell")
oexapp.visible = true
set oexwk = oexapp.workbooks.open(owshshell.currentdirectory &
"\ComptesUtilisateur.xls")
set oexws = oexwk.activesheet
i=2
Do until oexapp.cells(i,1).value = ""
nom = oexapp.cells(i,1).value
prenom = oexapp.cells(i,2).value
loggin = oexapp.cells(i,3).value
'mdp = oexapp.cells(i,5).value
ou = oexapp.cells(i,6).value

'//////////////////////////////////////////////
Set objdomaine = GetObject("LDAP://ou = " & ou &
",ou=prope,dc=esac-pau,dc=local")

Set objUser = objdomaine.Create("User", "cn= " & nom & "")

objUser.Put "sAMAccountName", loggin

objUser.Put "givenName", prenom
objUser.Put "sn", nom
objUser.Put "displayName", nom & prenom

'objuser.Put "profilePath", "\\Serveur02\Profils$\%username%"

objUser.SetInfo

objUser.SetPassword mdp
Set objUser = GetObject("LDAP://cn=" & nom &
",ou=prope,dc=esac-pau,dc=local")
objUser.AccountDisabled = FALSE
objUser.SetInfo



liste = liste + ou & ", "
i = i+1
Loop

MsgBox "Les utilisateurs " & liste & " ont t crs et activs."

A l'execution il m'ouvre bien la feuille excel mais ensuite il bloque en
affichant :
erreur a la ligne 18 car 1 erreur code 80005000 source null

.... des idees ?