Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Windows Windows 2000 Win 2000 Serveur Création de batch création d'tuilisateur et de groupe

Création de batch création d'tuilisateur et de groupe

6 réponses
Avatar
skoizer
Je voudrais savoir ou je peu trouver de la doc pour créé des batch pour
ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le vba et je
l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Benoit HAMET - MVP/MCP W2K \(FRANCE\)
Salut

tu peux commencer avec cela :


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script to create users in the Active Directory
'
' This script reads user names and attributes from the file called users.txt
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

wscript.echo "Script starting. Please click OK to continue."

DIM arrRecord
Const ForReading = 1


''''''''''''''''''''''''''''''''''''''''''''''''
' Determine the LDAP path for your domain
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")


''''''''''''''''''''''''''''''''''''''''''''''''
' Get the pointer to your domain object
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Domain = GetObject("LDAP://" & DomainPath)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Create Top Level OU
' This section not necessary for creating users
' Replace "Human Resources" in both places with your OU name
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ou_HR = Domain.Create("organizationalUnit", "OU=Human Resources")
ou_HR.Put "Description", "Human Resources"
ou_HR.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The file system object is your entry point into the file system
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set fso = CreateObject ("Scripting.FileSystemObject")


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Get the object to the C:ADSIusers.txt text file
' Name and location of text file can be altered
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set tsTextFile = fso.OpenTextFile ("C:ADSIusers.txt", ForReading, False)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Begin reading the input file and loop until you reach EOF
'
' Read a line in the file
'
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

While Not tsTextFile.AtEndOfStream ' START OF LOOP

strRecord = tsTextFile.ReadLine


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Parse the line into string segments using the colon as a delimiter
'
' (You can change the delimiter)
'
' Put each string segment into an array named arrRecord
'
' The first string segment is referenced as arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

arrRecord = Split (strRecord, ":")


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the user in the Human Resources OU
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(0))


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store the sAMAccountName and userPrincipalName
' attributes for each user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.Put "sAMAccountName", arrRecord(0)
adsUser.Put "userPrincipalName", arrRecord(0)
adsUser.SetInfo


''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enable the user account which is disabled by default
'
' Set additional attributes listed in the text file
'
' In this example, the Description attribute will be
' filled by the second (1) string segment
' and the Display Name attribute is taken from the
' third (2) string segment
'
' Customize this section to add/change attributes
' populated by the text file
''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.AccountDisabled = False
adsUser.Title = arrRecord(1)
adsUser.DisplayName = arrRecord(2)


'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Reset adsUser in preparation for the next user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = Nothing
Wend ' END OF LOOP


''''''''''''''''''''''''''''''''''''''''''''''''
' Close the text file
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

tsTextFile.Close


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Finished dialog box
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

wscript.echo "Users created.", Chr(10),Chr(10),"Please click OK to finish."



le fichier texte doit être ainsi:

samaccountname:titre:userprincipalname

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds55e$t37$
Je voudrais savoir ou je peu trouver de la doc pour créé des batch pour
ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le vba et
je

l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?




Avatar
skoizer
si je veux créé un groupe et le mettre un utilisateur tu fais comment avec
le vbs ?
"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:%
Salut

tu peux commencer avec cela :



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Script to create users in the Active Directory
'
' This script reads user names and attributes from the file called
users.txt


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Script starting. Please click OK to continue."

DIM arrRecord
Const ForReading = 1


''''''''''''''''''''''''''''''''''''''''''''''''
' Determine the LDAP path for your domain
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")


''''''''''''''''''''''''''''''''''''''''''''''''
' Get the pointer to your domain object
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Domain = GetObject("LDAP://" & DomainPath)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Create Top Level OU
' This section not necessary for creating users
' Replace "Human Resources" in both places with your OU name
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ou_HR = Domain.Create("organizationalUnit", "OU=Human Resources")
ou_HR.Put "Description", "Human Resources"
ou_HR.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The file system object is your entry point into the file system
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set fso = CreateObject ("Scripting.FileSystemObject")


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Get the object to the C:ADSIusers.txt text file
' Name and location of text file can be altered
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set tsTextFile = fso.OpenTextFile ("C:ADSIusers.txt", ForReading, False)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Begin reading the input file and loop until you reach EOF
'
' Read a line in the file
'
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

While Not tsTextFile.AtEndOfStream ' START OF LOOP

strRecord = tsTextFile.ReadLine


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Parse the line into string segments using the colon as a delimiter
'
' (You can change the delimiter)
'
' Put each string segment into an array named arrRecord
'
' The first string segment is referenced as arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

arrRecord = Split (strRecord, ":")


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the user in the Human Resources OU
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(0))


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store the sAMAccountName and userPrincipalName
' attributes for each user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.Put "sAMAccountName", arrRecord(0)
adsUser.Put "userPrincipalName", arrRecord(0)
adsUser.SetInfo


''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enable the user account which is disabled by default
'
' Set additional attributes listed in the text file
'
' In this example, the Description attribute will be
' filled by the second (1) string segment
' and the Display Name attribute is taken from the
' third (2) string segment
'
' Customize this section to add/change attributes
' populated by the text file
''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.AccountDisabled = False
adsUser.Title = arrRecord(1)
adsUser.DisplayName = arrRecord(2)


'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Reset adsUser in preparation for the next user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = Nothing
Wend ' END OF LOOP


''''''''''''''''''''''''''''''''''''''''''''''''
' Close the text file
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

tsTextFile.Close



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Finished dialog box
' Nothing in this section needs to be customized

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Users created.", Chr(10),Chr(10),"Please click OK to
finish."




le fichier texte doit être ainsi:

samaccountname:titre:userprincipalname

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds55e$t37$
Je voudrais savoir ou je peu trouver de la doc pour créé des batch pour
ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le vba et
je

l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?








Avatar
Benoit HAMET - MVP/MCP W2K \(FRANCE\)
Vas là, tu as plein de script prêt à l"emploi
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp


--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds8cb$cqn$
si je veux créé un groupe et le mettre un utilisateur tu fais comment avec
le vbs ?
"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:%
Salut

tu peux commencer avec cela :





''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Script to create users in the Active Directory
'
' This script reads user names and attributes from the file called
users.txt




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Script starting. Please click OK to continue."

DIM arrRecord
Const ForReading = 1


''''''''''''''''''''''''''''''''''''''''''''''''
' Determine the LDAP path for your domain
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")


''''''''''''''''''''''''''''''''''''''''''''''''
' Get the pointer to your domain object
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Domain = GetObject("LDAP://" & DomainPath)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Create Top Level OU
' This section not necessary for creating users
' Replace "Human Resources" in both places with your OU name
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ou_HR = Domain.Create("organizationalUnit", "OU=Human Resources")
ou_HR.Put "Description", "Human Resources"
ou_HR.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The file system object is your entry point into the file system
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set fso = CreateObject ("Scripting.FileSystemObject")



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


' Get the object to the C:ADSIusers.txt text file
' Name and location of text file can be altered

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Set tsTextFile = fso.OpenTextFile ("C:ADSIusers.txt", ForReading,
False)




'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Begin reading the input file and loop until you reach EOF
'
' Read a line in the file
'
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

While Not tsTextFile.AtEndOfStream ' START OF LOOP

strRecord = tsTextFile.ReadLine


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Parse the line into string segments using the colon as a delimiter
'
' (You can change the delimiter)
'
' Put each string segment into an array named arrRecord
'
' The first string segment is referenced as arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

arrRecord = Split (strRecord, ":")


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the user in the Human Resources OU
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(0))


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store the sAMAccountName and userPrincipalName
' attributes for each user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.Put "sAMAccountName", arrRecord(0)
adsUser.Put "userPrincipalName", arrRecord(0)
adsUser.SetInfo


''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enable the user account which is disabled by default
'
' Set additional attributes listed in the text file
'
' In this example, the Description attribute will be
' filled by the second (1) string segment
' and the Display Name attribute is taken from the
' third (2) string segment
'
' Customize this section to add/change attributes
' populated by the text file
''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.AccountDisabled = False
adsUser.Title = arrRecord(1)
adsUser.DisplayName = arrRecord(2)


'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Reset adsUser in preparation for the next user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = Nothing
Wend ' END OF LOOP


''''''''''''''''''''''''''''''''''''''''''''''''
' Close the text file
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

tsTextFile.Close





'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Finished dialog box
' Nothing in this section needs to be customized



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Users created.", Chr(10),Chr(10),"Please click OK to
finish."




le fichier texte doit être ainsi:

samaccountname:titre:userprincipalname

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds55e$t37$
Je voudrais savoir ou je peu trouver de la doc pour créé des batch
pour



ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le vba
et



je
l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?












Avatar
skoizer
Oki merci
bon je connais le vba et le vb, ça devrais être facile !

"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:OLtIaP%
Vas là, tu as plein de script prêt à l"emploi

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp



--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds8cb$cqn$
si je veux créé un groupe et le mettre un utilisateur tu fais comment
avec


le vbs ?
"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:%
Salut

tu peux commencer avec cela :







''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Script to create users in the Active Directory
'
' This script reads user names and attributes from the file called
users.txt






''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Script starting. Please click OK to continue."

DIM arrRecord
Const ForReading = 1


''''''''''''''''''''''''''''''''''''''''''''''''
' Determine the LDAP path for your domain
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")


''''''''''''''''''''''''''''''''''''''''''''''''
' Get the pointer to your domain object
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Domain = GetObject("LDAP://" & DomainPath)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Create Top Level OU
' This section not necessary for creating users
' Replace "Human Resources" in both places with your OU name
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ou_HR = Domain.Create("organizationalUnit", "OU=Human Resources")
ou_HR.Put "Description", "Human Resources"
ou_HR.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The file system object is your entry point into the file system
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set fso = CreateObject ("Scripting.FileSystemObject")



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


' Get the object to the C:ADSIusers.txt text file
' Name and location of text file can be altered

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Set tsTextFile = fso.OpenTextFile ("C:ADSIusers.txt", ForReading,
False)




'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Begin reading the input file and loop until you reach EOF
'
' Read a line in the file
'
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

While Not tsTextFile.AtEndOfStream ' START OF LOOP

strRecord = tsTextFile.ReadLine


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Parse the line into string segments using the colon as a delimiter
'
' (You can change the delimiter)
'
' Put each string segment into an array named arrRecord
'
' The first string segment is referenced as arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

arrRecord = Split (strRecord, ":")


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the user in the Human Resources OU
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(0))


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store the sAMAccountName and userPrincipalName
' attributes for each user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.Put "sAMAccountName", arrRecord(0)
adsUser.Put "userPrincipalName", arrRecord(0)
adsUser.SetInfo


''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enable the user account which is disabled by default
'
' Set additional attributes listed in the text file
'
' In this example, the Description attribute will be
' filled by the second (1) string segment
' and the Display Name attribute is taken from the
' third (2) string segment
'
' Customize this section to add/change attributes
' populated by the text file
''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.AccountDisabled = False
adsUser.Title = arrRecord(1)
adsUser.DisplayName = arrRecord(2)


'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Reset adsUser in preparation for the next user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = Nothing
Wend ' END OF LOOP


''''''''''''''''''''''''''''''''''''''''''''''''
' Close the text file
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

tsTextFile.Close







'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Finished dialog box
' Nothing in this section needs to be customized





'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Users created.", Chr(10),Chr(10),"Please click OK to
finish."




le fichier texte doit être ainsi:

samaccountname:titre:userprincipalname

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > > > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds55e$t37$
Je voudrais savoir ou je peu trouver de la doc pour créé des batch
pour



ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le
vba




et
je
l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?
















Avatar
skoizer
samaccountname:titre:userprincipalname
c pas plutot ça
samaccounte:nomentier:password:groupe ?
exemple
DUPON-J: dupon jean:mdpfar:comptable

"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:OLtIaP%
Vas là, tu as plein de script prêt à l"emploi

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp



--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds8cb$cqn$
si je veux créé un groupe et le mettre un utilisateur tu fais comment
avec


le vbs ?
"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:%
Salut

tu peux commencer avec cela :







''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Script to create users in the Active Directory
'
' This script reads user names and attributes from the file called
users.txt






''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Script starting. Please click OK to continue."

DIM arrRecord
Const ForReading = 1


''''''''''''''''''''''''''''''''''''''''''''''''
' Determine the LDAP path for your domain
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")


''''''''''''''''''''''''''''''''''''''''''''''''
' Get the pointer to your domain object
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Domain = GetObject("LDAP://" & DomainPath)


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Create Top Level OU
' This section not necessary for creating users
' Replace "Human Resources" in both places with your OU name
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ou_HR = Domain.Create("organizationalUnit", "OU=Human Resources")
ou_HR.Put "Description", "Human Resources"
ou_HR.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The file system object is your entry point into the file system
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set fso = CreateObject ("Scripting.FileSystemObject")



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


' Get the object to the C:ADSIusers.txt text file
' Name and location of text file can be altered

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Set tsTextFile = fso.OpenTextFile ("C:ADSIusers.txt", ForReading,
False)




'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Begin reading the input file and loop until you reach EOF
'
' Read a line in the file
'
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

While Not tsTextFile.AtEndOfStream ' START OF LOOP

strRecord = tsTextFile.ReadLine


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Parse the line into string segments using the colon as a delimiter
'
' (You can change the delimiter)
'
' Put each string segment into an array named arrRecord
'
' The first string segment is referenced as arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

arrRecord = Split (strRecord, ":")


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the user in the Human Resources OU
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(0))


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store the sAMAccountName and userPrincipalName
' attributes for each user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.Put "sAMAccountName", arrRecord(0)
adsUser.Put "userPrincipalName", arrRecord(0)
adsUser.SetInfo


''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enable the user account which is disabled by default
'
' Set additional attributes listed in the text file
'
' In this example, the Description attribute will be
' filled by the second (1) string segment
' and the Display Name attribute is taken from the
' third (2) string segment
'
' Customize this section to add/change attributes
' populated by the text file
''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.AccountDisabled = False
adsUser.Title = arrRecord(1)
adsUser.DisplayName = arrRecord(2)


'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Reset adsUser in preparation for the next user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = Nothing
Wend ' END OF LOOP


''''''''''''''''''''''''''''''''''''''''''''''''
' Close the text file
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

tsTextFile.Close







'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Finished dialog box
' Nothing in this section needs to be customized





'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Users created.", Chr(10),Chr(10),"Please click OK to
finish."




le fichier texte doit être ainsi:

samaccountname:titre:userprincipalname

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > > > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds55e$t37$
Je voudrais savoir ou je peu trouver de la doc pour créé des batch
pour



ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le
vba




et
je
l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?
















Avatar
Benoit HAMET - MVP/MCP W2K \(FRANCE\)
Cela dépend de quoi tu parle.
Le script que je t'ai passé est différent de celui proposé sur le site.

Il faut un peu lire les codes avant de poser les question ;-)

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds9vr$5f6$
samaccountname:titre:userprincipalname
c pas plutot ça
samaccounte:nomentier:password:groupe ?
exemple
DUPON-J: dupon jean:mdpfar:comptable

"Benoit HAMET - MVP/MCP W2K (FRANCE)" a
écrit dans le message de news:OLtIaP%
Vas là, tu as plein de script prêt à l"emploi



http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp



--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds8cb$cqn$
si je veux créé un groupe et le mettre un utilisateur tu fais comment
avec


le vbs ?
"Benoit HAMET - MVP/MCP W2K (FRANCE)"
a



écrit dans le message de
news:%



Salut

tu peux commencer avec cela :









''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Script to create users in the Active Directory
'
' This script reads user names and attributes from the file called
users.txt








''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Script starting. Please click OK to continue."

DIM arrRecord
Const ForReading = 1


''''''''''''''''''''''''''''''''''''''''''''''''
' Determine the LDAP path for your domain
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")


''''''''''''''''''''''''''''''''''''''''''''''''
' Get the pointer to your domain object
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

Set Domain = GetObject("LDAP://" & DomainPath)



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''




' Create Top Level OU
' This section not necessary for creating users
' Replace "Human Resources" in both places with your OU name

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''





Set ou_HR = Domain.Create("organizationalUnit", "OU=Human
Resources")




ou_HR.Put "Description", "Human Resources"
ou_HR.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The file system object is your entry point into the file system
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set fso = CreateObject ("Scripting.FileSystemObject")






''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


' Get the object to the C:ADSIusers.txt text file
' Name and location of text file can be altered




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Set tsTextFile = fso.OpenTextFile ("C:ADSIusers.txt", ForReading,
False)




'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Begin reading the input file and loop until you reach EOF
'
' Read a line in the file
'
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

While Not tsTextFile.AtEndOfStream ' START OF LOOP

strRecord = tsTextFile.ReadLine


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Parse the line into string segments using the colon as a delimiter
'
' (You can change the delimiter)
'
' Put each string segment into an array named arrRecord
'
' The first string segment is referenced as arrRecord(0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

arrRecord = Split (strRecord, ":")


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the user in the Human Resources OU
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(0))


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Store the sAMAccountName and userPrincipalName
' attributes for each user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.Put "sAMAccountName", arrRecord(0)
adsUser.Put "userPrincipalName", arrRecord(0)
adsUser.SetInfo


''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enable the user account which is disabled by default
'
' Set additional attributes listed in the text file
'
' In this example, the Description attribute will be
' filled by the second (1) string segment
' and the Display Name attribute is taken from the
' third (2) string segment
'
' Customize this section to add/change attributes
' populated by the text file
''''''''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.AccountDisabled = False
adsUser.Title = arrRecord(1)
adsUser.DisplayName = arrRecord(2)


'''''''''''''''''''''''''''''''''''''''''''''''''
' SetInfo flushes the attributes in cache to disk
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''

adsUser.SetInfo


'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Reset adsUser in preparation for the next user object
' Nothing in this section needs to be customized
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set adsUser = Nothing
Wend ' END OF LOOP


''''''''''''''''''''''''''''''''''''''''''''''''
' Close the text file
' Nothing in this section needs to be customized
''''''''''''''''''''''''''''''''''''''''''''''''

tsTextFile.Close









'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Finished dialog box
' Nothing in this section needs to be customized







'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


wscript.echo "Users created.", Chr(10),Chr(10),"Please click OK to
finish."




le fichier texte doit être ainsi:

samaccountname:titre:userprincipalname

--
Participez aux "Duo gagnant" :
http://register.microsoft.com/regsys/regsys.asp?wizidf67&lcid36
======================================== > > > > Benoit HAMET
MVP / MCP Windows 2000
www.hametbenoit.fr.st
support.microsoft.com
www.mvp.int.ms
"skoizer" a écrit dans le message de
news:bds55e$t37$
Je voudrais savoir ou je peu trouver de la doc pour créé des batch
pour



ajotuer des utilisateurs !
J'ai un fichier XLS avec tous les utilisateur, je connais bien le
vba




et
je
l'ai é extrate en format txt !
Quel est le meilleur code pour ça, le dos ou le vbs ?