erreur 800A0414

Bonjour,

Je me trouve confronté a une erreur 800A0414 : "L'appel d'une fonction Sub
n'admet pas de parentheses"

Appel de la fonction :
CreateUser(Nom, Prenom, Login, OU)

-------------------------------
Function CreateUser(Nom,Prenom,LoginName,OU)


'Creation user
Set objRoot = GetObject("LDAP://rootDSE")
Set objDomain = GetObject("LDAP://" & objRoot.Get("defaultNamingContext"))

'Set myOU=objDomain.Create("organizationalUnit", "ou=LaboMicrosoft")
'myOU.Put "Description", "OU crée par Laboratoire Microsoft"
'myOU.SetInfo

myOU = GetObject (LDAPPREFIXE & OU & "," & LDAP)
Set myUser = myOU.Create("User", "cn="&Nom&" "&Prenom)
myUser.Put "sAMAccountName", Login
myUser.Put "Description", Nom&Prenom
myUser.SetInfo
myUser.SetPassword "init00"
myUser.AccountDisabled = True
myUser.SetInfo

' mise dans group
Const ADS_PROPERTY_APPEND = 3

Set objGroup = GetObject (LDAPPREFIXE&"cn="&Nom&" "&Prenom& "," &OU& ","&
LDAP)
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn="&OU&",OU="&OU&","&
LDAP)
objGroup.SetInfo

End Function



Merci
FXD