Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
720 connectés 

  FORUM HardWare.fr
  Windows & Software

  Creation des utilisateurs + w2k server

 
 


Dernière réponse
Sujet : Creation des utilisateurs + w2k server
knives mme chose que ADDUSERS.VBS mais en allant chercher les info dans un fichier .csv
 

Code :
  1. Const adOpenStatic = 3
  2. Const adLockOptimistic = 3
  3. Const adCmdText = &H0001
  5. Set objConnection = CreateObject("ADODB.Connection" )
  6. Set objRecordSet = CreateObject("ADODB.Recordset" )
  8. strPathtoTextFile = "C:\Script\"
  10. objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  11. "Data Source=" & strPathtoTextFile & ";" & _
  12.  "Extended Properties=""text; HDR=YES; FMT=Delimited"""
  14. objRecordset.Open "SELECT * FROM TextDatabase.csv", _
  15. objConnection, adOpenStatic, adLockOptimistic, adCmdText
  17. Set objRootDSE = GetObject("LDAP://rootDSE" )
  18. Set objContainer = GetObject("LDAP://cn=Users," & _
  19. objRootDSE.Get("defaultNamingContext" ))
  21. strCN = ObjRecordset.Fields.Item("CN" )
  22. strSamAccountName = objRecordset.Fields.Item("SamAccountName" )
  23. strgivenName = objRecordset.Fields.Item("givenName" )
  24. strSN = objRecordset.Fields.Item("SN" )
  25. strUserPrincipalName = objRecordset.Fields.Item("UserPrincipalName" )
  27. Do Until objRecordset.EOF
  28. Set oUser = objContainer.Create("User","CN=" & strCN )
  29. 'Assign properties values to user
  30. oUser.Put "samAccountName", strSamAccountName
  31. oUser.Put "givenName", strgivenName
  32. oUser.Put "sn", strSN
  33. oUser.Put "userPrincipalName", strUserPrincipalName
  34. oUser.SetInfo
  35. 'Clean up
  36. Set oUser = Nothing
  37. Set oContainer = Nothing
  38. WScript.Echo "Finished"
  40. objRecordset.MoveNext
  42. Loop
  44. objRecordSet.Close
  45. objConnection.Close


 
le fichier .csv

Code :
  1. CN,SamAccountName,givenNAme,SN,UserPrincipalName
  2. Jo Brown,Jo,Jo,Brown,Jo@reskit.com,
  3. Jo2 Brown2,Jo2,Jo2,Brown2,Jo2@reskit.com
  4. Jo3 Brown3,Jo3,Jo3,Brown3,Jo3@reskit.com


 
donc le script creer les utilisateurs Jo, Jo2, Jo3 dans l'OU "Users" a la racine du domaine AD ou est rataché la station ou le server.
 
c tres grossier, j'ai vaguement fais 2-3 copier coller mais bon l'idee est la, apres a vous de creuser un peu plus loin et surtout d'adapter a vos besoins.

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
knives mme chose que ADDUSERS.VBS mais en allant chercher les info dans un fichier .csv
 

Code :
  1. Const adOpenStatic = 3
  2. Const adLockOptimistic = 3
  3. Const adCmdText = &H0001
  5. Set objConnection = CreateObject("ADODB.Connection" )
  6. Set objRecordSet = CreateObject("ADODB.Recordset" )
  8. strPathtoTextFile = "C:\Script\"
  10. objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  11. "Data Source=" & strPathtoTextFile & ";" & _
  12.  "Extended Properties=""text; HDR=YES; FMT=Delimited"""
  14. objRecordset.Open "SELECT * FROM TextDatabase.csv", _
  15. objConnection, adOpenStatic, adLockOptimistic, adCmdText
  17. Set objRootDSE = GetObject("LDAP://rootDSE" )
  18. Set objContainer = GetObject("LDAP://cn=Users," & _
  19. objRootDSE.Get("defaultNamingContext" ))
  21. strCN = ObjRecordset.Fields.Item("CN" )
  22. strSamAccountName = objRecordset.Fields.Item("SamAccountName" )
  23. strgivenName = objRecordset.Fields.Item("givenName" )
  24. strSN = objRecordset.Fields.Item("SN" )
  25. strUserPrincipalName = objRecordset.Fields.Item("UserPrincipalName" )
  27. Do Until objRecordset.EOF
  28. Set oUser = objContainer.Create("User","CN=" & strCN )
  29. 'Assign properties values to user
  30. oUser.Put "samAccountName", strSamAccountName
  31. oUser.Put "givenName", strgivenName
  32. oUser.Put "sn", strSN
  33. oUser.Put "userPrincipalName", strUserPrincipalName
  34. oUser.SetInfo
  35. 'Clean up
  36. Set oUser = Nothing
  37. Set oContainer = Nothing
  38. WScript.Echo "Finished"
  40. objRecordset.MoveNext
  42. Loop
  44. objRecordSet.Close
  45. objConnection.Close


 
le fichier .csv

Code :
  1. CN,SamAccountName,givenNAme,SN,UserPrincipalName
  2. Jo Brown,Jo,Jo,Brown,Jo@reskit.com,
  3. Jo2 Brown2,Jo2,Jo2,Brown2,Jo2@reskit.com
  4. Jo3 Brown3,Jo3,Jo3,Brown3,Jo3@reskit.com


 
donc le script creer les utilisateurs Jo, Jo2, Jo3 dans l'OU "Users" a la racine du domaine AD ou est rataché la station ou le server.
 
c tres grossier, j'ai vaguement fais 2-3 copier coller mais bon l'idee est la, apres a vous de creuser un peu plus loin et surtout d'adapter a vos besoins.
gachouille Bonjour,
 
As tu trouver ta solution ?
Car si oui je suis preneur.
 
merci d'avance,
zipp merçi,
je vais essayer demain ..
 
a+
 
-CouiLLe2ChieN- dameware NT utilities c un tres bon logiciel de gestion de station / serv NT
zipp Bonjour,  
 
J'aurais voulu quel soft (ou script) permet de creer plusieurs utilistateurs sur un w2k server , il y a bien ADDUSERS.VBS, mais je le trouve un peu limité .
 
Une idée ?
 

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR