PHWinfo banniere

Titres
PORTAIL ANNUAIRE ARTICLES COMPARATEUR HÉBERGEURS DEVIS FORUMS RÉDUCTEUR D'URL
Précédent   PHWinfo > Forums Hébergement > Forum Hébergement serveur > ms.public.fr.win.server > Ajout d'utilisateur en masse
S'inscrire FAQ Membres Recherche Messages du jour Marquer les forums comme lus
Ajout d'utilisateur en masse

Réponse
 
LinkBack Outils de la discussion
Vieux 09/10/2006, 14h18   #1
Channels
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Ajout d'utilisateur en masse

Bonjour,

Existe t'il un logiciel ou utilitaire permettant l'ajout d'utilisateur
en masse (environ 400 a 600 utilisateurs d'un coup) a partir d'un
fichier ASCII par exemple du genre

login:pass:netlogon:...:...:...:...:...

Serveur sous Windows 2003 Standard

merci

--
Les fautes d'orthographes sus-citées sont déposées auprès de leurs
propriétaires respectifs.
Aucune responsabilité n'est engagée sur la lisibilité du message ou les
éventuels dommages qu'ils peuvent engendrer


  Réponse avec citation
Vieux 09/10/2006, 14h30   #2
Jonathan Bismuth
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: Ajout d'utilisateur en masse

un script tout simplement?
Voici un exemple dont j'avais déjà parlé il y a quelques jours, qui lit
chaque ligne d'un fichier toto.csv et utilise ";" comme séparateur.
Libre à toi d'utiliser ":" et d'autres attributs.

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

Set objOU = GetObject("LDAP://OU=bsr1,dc=wprod,dc=ds,dc=aphp,dc=fr")


dim fso, df1
CSVFile = "toto.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=False
objUser.SetInfo

Loop
df1.close


WScript.Quit
'## fin script###

Cordialement,
--
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


"Channels" <john@doe.com> a écrit dans le message de news:
mn.4b967d6ae17838a4.23854@not-for-mail...
> Bonjour,
>
> Existe t'il un logiciel ou utilitaire permettant l'ajout d'utilisateur en
> masse (environ 400 a 600 utilisateurs d'un coup) a partir d'un fichier
> ASCII par exemple du genre
>
> login:pass:netlogon:...:...:...:...:...
>
> Serveur sous Windows 2003 Standard
>
> merci
>
> --
> Les fautes d'orthographes sus-citées sont déposées auprès de leurs
> propriétaires respectifs.
> Aucune responsabilité n'est engagée sur la lisibilité du message ou les
> éventuels dommages qu'ils peuvent engendrer
>
>



  Réponse avec citation
Vieux 09/10/2006, 15h00   #3
Ludovik DOPIERALA
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: Ajout d'utilisateur en masse

Merci Jonath
Sinon il y a dsadd user en ligne de commande
cdsve, ...
--
Ludovik DOPIERALA
http://www.c2points.com



"Jonathan Bismuth" a écrit :

> un script tout simplement?
> Voici un exemple dont j'avais déjà parlé il y a quelques jours, qui lit
> chaque ligne d'un fichier toto.csv et utilise ";" comme séparateur.
> Libre à toi d'utiliser ":" et d'autres attributs.
>
> '## debut script###
> Const ForReading = 1, ForWriting = 2, ForAppending = 8
>
> Set objOU = GetObject("LDAP://OU=bsr1,dc=wprod,dc=ds,dc=aphp,dc=fr")
>
>
> dim fso, df1
> CSVFile = "toto.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=False
> objUser.SetInfo
>
> Loop
> df1.close
>
>
> WScript.Quit
> '## fin script###
>
> Cordialement,
> --
> 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
>
>
> "Channels" <john@doe.com> a écrit dans le message de news:
> mn.4b967d6ae17838a4.23854@not-for-mail...
> > Bonjour,
> >
> > Existe t'il un logiciel ou utilitaire permettant l'ajout d'utilisateur en
> > masse (environ 400 a 600 utilisateurs d'un coup) a partir d'un fichier
> > ASCII par exemple du genre
> >
> > login:pass:netlogon:...:...:...:...:...
> >
> > Serveur sous Windows 2003 Standard
> >
> > merci
> >
> > --
> > Les fautes d'orthographes sus-citées sont déposées auprès de leurs
> > propriétaires respectifs.
> > Aucune responsabilité n'est engagée sur la lisibilité du message ou les
> > éventuels dommages qu'ils peuvent engendrer
> >
> >

>
>
>

  Réponse avec citation
Réponse


Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +1. Il est actuellement 17h17.


Édité par : vBulletin® version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0 RC5 Tous droits réservés.
Version française #16 par l'association vBulletin francophone
PHWinfo est un site Éducation Sans Frontières ©2000-2008
Ad Management by RedTyger
©Tous droits réservés par les parties respectives
Page generated in 0,11117 seconds with 11 queries