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