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