importation utilisateur

"Xyphos07" <antispam_xyphos07@hotmail.com> a écrit dans le message de
news:%23$Q5lwh3GHA.5092@TK2MSFTNGP04.phx.gbl
| Bonjour,

Bonjour,

| j'ai actuellement un fichier excel contenant une liste d'utilisateurs
| (400)
|
| vace 4 colonne Nom, prenom, login et descrpition.
|
| Comment importer correctement de document dans AD (2003) J'ai bien
| regardé csvde mais a première vue je dois modifier tous mon documents
| ?
| quelqu'un aurait'il une solution merci d'avance ?

A l'aide d'un script.
Meilleur forum : microsoft.public.fr.scripting

--
Gilles LAURENT
Me contacter : http://cerbermail.com/?zoTY7ZkLcD

Bonjour Xyphos,

un petit exemple qui vaut ce qu'il vaut :

'## debut script###
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objOU = GetObject("LDAP://OU=mon_OU,dc=domaine,dc=lan")


dim fso, df1
CSVFile = "c:chemintoto.csv"

Set fso = CreateObject("Scripting.FileSystemObject")
Set df1 = fso.OpenTextFile(CSVFile,ForReading,True)

Do while Not df1.AtEndOfStream
varLigne = df1.readline()

NomUser = split(varLigne,";")(0)
PrUser = split(varLigne,";")(1)
Login = split(varLigne,";")(2)
' on part du principe que Login = CN
Desc = split(varLigne,";")(3)

Set objUser = objOU.Create("User", "cn="&Login)
objUser.Put "sAMAccountName", ""&Login
objUser.Put "UserPrincipalName", ""& Login &"@domaine.lan"
objUser.Put "givenName", ""&PrUser
objUser.Put "sn", ""&NomUser
objUser.Put "description", ""&Desc
objUser.SetInfo

objUser.AccountDisabledúlse
objUser.SetInfo
Loop
df1.close


WScript.Quit
'## fin script###

Amuse toi bien :)
--
Jonathan BISMUTH
NET2S Group
MVP Windows Server - Directory Services
MCSE 2000/ADSI-AutoIT Scripter
Transcript (ID: 691839, code: MCSE2000)
www.portail-mcse.net
pour me contacter http://cerbermail.com/?oAsXWZnZF1


"Xyphos07" <antispam_xyphos07@hotmail.com> a écrit dans le message de news:
%23$Q5lwh3GHA.5092@TK2MSFTNGP04.phx.gbl...

Bonjour,
j'ai actuellement un fichier excel contenant une liste d'utilisateurs
(400)

vace 4 colonne Nom, prenom, login et descrpition.

Comment importer correctement de document dans AD (2003) J'ai bien regardé
csvde mais a première vue je dois modifier tous mon documents ?
quelqu'un aurait'il une solution merci d'avance ?