créer des users par scripts

Le
Gabriel Blazquez
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", "\Serveur02Profils$%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 ?
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #17271781
"Gabriel Blazquez" wrote:

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

le script


[...]
ou = oexapp.cells(i,6).value

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



Le code 80005000 signifie un problème de Path LDAP.
Vous devez supprimer les espaces autour du signe "=" :
GetObject("LDAP://ou=" & ou & "..."

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Publicité
Poster une réponse
Anonyme