Creation des utilisateurs + w2k server

Creation des utilisateurs + w2k server - Windows & Software

Marsh Posté le 26-05-2003 à 09:27:03    

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 ?
 

Reply

Marsh Posté le 26-05-2003 à 09:27:03   

Reply

Marsh Posté le 26-05-2003 à 09:27:51    

dameware NT utilities c un tres bon logiciel de gestion de station / serv NT

Reply

Marsh Posté le 26-05-2003 à 13:56:00    

merçi,
je vais essayer demain ..
 
a+
 

Reply

Marsh Posté le 08-09-2004 à 10:31:39    

Bonjour,
 
As tu trouver ta solution ?
Car si oui je suis preneur.
 
merci d'avance,

Reply

Marsh Posté le 09-09-2004 à 00:12:05    

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.


Message édité par knives le 09-09-2004 à 00:21:39
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed