VBS instructions création comptes utilisateur [Résolu]

Merci beaucoup de ton aide.
Pour mieux t'expliquer, je part d'un fichier CSV dont je récupère les informations sur des employés.
Chaque employé va avoir un compte utilisateur que je renseigne avec son nom, prénom, numéro de téléphone, etc... et aussi avec le numéro du poste sur lequel il travaille et son supérieur hiérarchique ici nommé responsable. J'ai regardé les propriétés des utilisateurs et je ne sais pas trop où renseigner ces deux infos.

D'accord je vois. Pour le numéro de poste tu as la case "Bureau" de l'onglet général, et pour le responsable tu as la case "Gestionnaire" de l'onglet Organisation (où par ailleurs tu peut ajouter en recherche un utilisateurs déjà présent dans l'active directory)

j'oublais, si tu veux remplir ces champs en script :

'case bureau
objUser.Put "physicalDeliveryOfficeName", tonnumbureau

'case gestionnaire
objUser.Put "manager", "cn=NomGestionnaire,OU=Outest,dc=domainetest,dc=fr"

Pour la case bureau je suis pas sûr a 100% que sa soit "physicalDeliveryOfficeName" mais tu peux tester voir.

(n'oublie pas de tjrs ouvrir ton utilisateur voulu avant (via Set objUser = GetObject ("LDAP://cn=Toto,ou=OUTEST,dc=domainetest,dc=fr") et de terminer par un ObjUser.setinfo lorsque tu n'a plus de objUser.put a ajouter.

Edit : j'ai vérifié c'est bien "physicalDeliveryOfficeName" pour la propriété "bureau"

Merci beaucoup!
J'ai une dernière question:
Je viens de tester le code pour le téléphone mais cela ne fonctionne pas, cela vient surement du fait que j'ai placé le code dans une boucle qui crée tout les compte (le téléphone n'étant pas demandé à la création du compte mais seulement renseignable une fois le compte créé).
Il faudrait donc que je termine ma boucle en ne renseignant que les noms, prénoms et mdp pour ensuite lancer une autre boucle qui m'ajouterai les numéros de téléphone, numéros de poste et responsable?

ah je n'ait pas tester avec le numéro de téléphone. Je vais ajouter le numéro de téléphone a mon script personnel et je te dis sa.

En fait je sort d'un script de 700lignes qui ressemble bcp au tiens puisque j'y créé des utilisateurs dans active directory + plein d'autre truc qui va avec style, création de répertoire associé a l'utilisateur en lui attribuant des droits (lecture/écriture) et également balayage des utilisateurs en désactivant ceux qui sont présent depuis + de 5ans.(c'est une IUT, les étudiants ne reste pas éternellement^^) Donc si tu as des autres questions sur ce genre de chose n'hésite pas^^

bon jvais tester le numéro de tel :p

Effectivement tu pourrais m'être d'une aide précieuse^^
Car je ne me suis pas encore penché sur la question mais je devrais sans doute ensuite accorder l'accès aux utilisateurs (toujours via mon script) à des disques partagés, que du bonheur ;)

En fait le numéro de Tel apparaît bel et bien alors que tout est dans la boucle mais le numéro de tel apparait pas dans l'onglet général des propriété mais dans l'onglet téléphone. Je vais vérifier si je peut pas faire en sorte qu'il apparaissent plutôt dans la case téléphone de l'onglet général.

oui c'est bon, j'ai réussi !
Le seul problème, c'est que le numéro se met dans téléphone fixe
j'ai des numéros de mobile
J'ai essayé de remplacer homephone par mobilephone mais ça ne marche pas. ce n'est pas mobilephone le bon nom du champ...

Ou sinon ça pourrait être bien aussi dans l'onglet général si tu trouve

J'ai trouvé pour l'avoir dans l'onglet général : c'est "telephoneNumber" et non pas "homephone"

sinon pour l'avoir dans la case mobile de l'onglet téléphone c'est : objUser.mobile

Ok merci !
J'ai un problème pour le nom du responsable, j'ai mis:

if responsable <> "" then
obj_user.Put "manager", responsable
obj_user.setinfo
end if

responsable contenant le nom du responsable
Suis-je obligé de faire:
"cn=NomGestionnaire,OU=Outest,dc=domainetest,dc=fr"
?

Cela me pose problème car le responsable, bien qu'il ai un compte, n'est renseigné dans la colonne de mon csv pour l'utilisateur concerné que par son nom. De plus, il se peut qu'il soit placé après l'utilisateur concerné et donc ne pas encore exister au moment où l'utilisateur est créé

Sa risque effectivement de poser problème, j'ai testé et il faut obligatoirement un utilisateur qui existe dejà dans la base de donnée pour le mettre dans la case responsable d'un autre utilisateur. Si tu préfère c'est une case qui est dédié uniquement aux objets existants dans l'active directory.
La seule solution que je vois est de séparer les responsables des non-responsable dans ton fichier csv en plaçant les responsables en premier.

Oui, je suis allé voir dans les propriété de l'utilisateur et effectivement il faut que ce soit un objet...
Malheureusement, je ne peux pas utiliser ta solution car le fichier csv a été fourni par mon professeur et je n'ai pas le droit de le modifier :(

En tout cas merci pour toute ton aide, je vais essayer de trouver une solution.

Excuse moi de t'embêter encore une fois, mais je permet à mes utilisateurs d'avoir accès à des disques partagés via un fichier bat.
Il me suffit de remplir le champ "script d'ouverture de session" dans l'onglet "profil"
Connaîtrez-tu l'instruction pour remplir ce champ directement via mon script?

En fait, c'est bon j'ai trouvé
Ca donne ça:

obj_user.Put "scriptPath", "Prod.bat"
obj_user.setinfo

ok ;) sinon pour ta solution de responsable/nonresponsable, tu dois bien avoir une valeur dans ton fichier csv qui t'indique si l'utilisateur est responsable de quelqu'un ou non ? Si c'est le cas tu as juste a faire un premier "Do while variable = R et ensuite refaire un Do while variable <> R. Comme ça tu auras bien tes responsables traités en premiers.

Oui ! Excellente idée !
Merci !

J'ai un utilisateur dont le nom est CONTE/PENANT
Bien sur le / ne passe pas...
Saurais tu comment faire en sorte que ça passe?

Et le Do While me pose un problème, il retente à chaque fois de recréer le même utilisateur :(

Je me suis débrouillé pour créer les responsables avant.
Le problème que j'ai maintenant c'est que je ne peux pas ajouter mon responsable car dans la variable responsable de mon utilisateur je n'ai que son nom, or je dois l'identifier avec son nom de compte qui est constitué de son nom suivit de son prénom

Désolé de te harceler de questions^^

Pour ton histoire de CONTE/PENANT je vois pas trop comment s'en sortir, faut dire que c'est étrange comme nom :/ D'ailleurs l'active directory n'accepte pas de "/" dans le login de connexion.

Sinon concernant ton second problème :
Tu peut retoucher ta variable en faisant genre Responsable = nom & prénom non ? Je sais pas si j'ai bien cerné ton problème ^^

t'inquiète pour les questions sa me dérange pas^^

Mon prof a enfin répondu à mon email et je peux donc renseigner le nom de mon responsable dans le champ description, tous les problèmes liés au fait de créer les responsables en premier et de trouver comment remonter leur nom de compte à partir de leur nom de famille s'envolent !
De plus, effectivement, on ne peut pas créer de compte contenant un / dans l'identifiant, peut être puis-je créer l'équivalant d'un replace pour vbs afin de remplacer le caractère "/" de mon csv par le caractère "-"
Je vais creuser de ce coté là et ton aide sera la bienvenue si je ne m'en sors pas !

Encore merci

Pour le replace, j'ai fait :
nom1 = Replace(nom,"/","-")
Et ça passe impec

Bonjour,
Je vais surement avoir encore besoin de ton aide :)

Pour chaque utilisateur, je dois créer un dossier personnel, ça c'est fait.
Je dois également créer un dossier par service, c'est également fait.

Ensuite, pour les dossiers service, je dois gérer les droits.
Pour les droits, je dois déjà supprimer l'héritage.
Je dois ensuite ajouter administrateurs auquel je met le contrôle total
Je dois également ajouter le nom du service auquel je met tout sauf le contrôle total (En gros, cocher puis décocher la case contrôle total).

Pour les dossiers personnels, je dois partager le dossier et mettre contrôle total en autorisation.
Pour les droits, je dois supprimer l'héritage et ajouter l'utilisateur du dossier personnel et lui accorder tout sauf le contrôle total (cocher/décocher contrôle total)

Et bien sur tout cela en script et je ne sais absolument pas comment faire...

Je dois aussi accorder le contrôle total à administrateurs pour le dossier personnel

J'ai réussi à partager les dossiers personnels avec ce code :

'partage du dossier personnel
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("c:\data\users\" & nomdossier, nompartage)

Il me reste donc à définir les droits sur les dossiers

Bon !

Pour gérer les droits, je me suis penché sur cacls mais après près de 3h passé dessus, je ne comprend pas trop et je n'arrive pas à faire ce que je veux.
Si tu connais cacls ou si tu a une solution alternative à me proposer pour modifier les droits sur mes dossiers, ce sera avec grand plaisir! :)

Sa tombe bien j'ai fais du cacls dans mon script :)

Voila comment sa fonctionne : tu dois télécharger xcacls.vbs a cette adresse

http://www.microsoft.com/...

Et tu copie ce fichier-script par exemple a la racine de ton Disque dur (C:\xcacls.vbs)

Et ensuite dans ton script sa se passe comme ça :

Set Wshshell = WScript.CreateObject("Wscript.Shell")
Wshshell.Run "cmd /k cscript.exe xcacls.vbs C:\Tondossier /E /G TonUtilisateur:r"
Set wshshell=Nothing

Le /E évite que ta commande remplace tous les droits déja présent sur le dossier par celui que tu attribue (il l'édite juste du coup) le /G veut dire que tu attribue des droits et :r veut dire que tu donne le droit de lecture. Après tu peut ajouter :rw pour lecture+écriture ect..

Edit : Tu peut insérer sans problème des variables dans cette commande comme d'hab en concaténant avec le &.

Ok merci beaucoup !
Je testerai peut-être que demain parce que je viens de me taper une journée de 12h donc pas trop envie de bosser ce soir^^

ok tiens moi informé si tu arrive a le faire fonctionner pour des utilisateurs même et non pas des groupes

tiens d'ailleurs je viens d'ajouter un truc génial a mon script (je croyais pas sa possible en VBS) c'est une barre de progression qui va se charger et se refermer a chaque utilisateur créé. Estéthiquement c'est sympa et sa permet de voir si le script plante ou pas (tant que la barre de progression est là c'est qu'il est en cours de traitement d'un utilisateur).

D'ailleur niveau affichage je sais pas ce que sa te donne mais moi par défaut quand le script s'exécutait, il m'ouvrait une nouvelle fenêtre du dos pour chaque droit ajouté a un répertoire (remarque t'a pas du encore testé les droits avec la méthode xcacls que je t'ai donné) pour pas avoir un paquet de fenêtre dos qui s'ouvre tu rajoute juste ", 0" (sans les guillemets) a la fin de la commande :

Wshshell.Run "cmd /k cscript.exe xcacls.vbs C:\Tondossier /E /G TonUtilisateur:r"

Ce qui te donne :

Wshshell.Run "cmd /k cscript.exe xcacls.vbs C:\Tondossier /E /G TonUtilisateur:r" ,0

Voilà :)

Bonsoir !
Je rencontre un léger problème avec xcacls
j'ai entré ce code :



Set Wshshell = WScript.CreateObject("Wscript.Shell")
Wshshell.Run "cmd /k cscript.exe xcacls.vbs C:\Data\User\" & login & " /T /G """ & site & "\" & service & "\" & nom & " " & prenom & """:r"
Set wshshell=Nothing



Et voila ce que la fenêtre dos me sort :



Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tous droits rÚservÚs.

Starting XCACLS.VBS (Version: 5.2) Script at 01/02/2011 20:41:10

Startup directory:
"C:\Projet vbs"

Arguments Used:
Filename = "C:\Data\User\EMANNONE"
/T (Traverse Directories)
/G (Grant rights)
PRODUCTION\ATELIER2\MANNONE Emmanuel:R


Error -2147217385: obtaining the Win32_UserAccount (Msg#1801)
Error description: Demande non valide
Error -2147217350: setting objUserAccount = objTempService.Get("Win32_Group.Dom
ain="PRODUCTION",Name="ATELIER2\MANNONE EMMANUEL")
Error description: Chemin de l'objet non valide
Error -2147217385: obtaining the Win32_UserAccount (Msg#1801)
Error description: Demande non valide
Error -2147217350: setting objUserAccount = objTempService.Get("Win32_Group.Dom
ain="PRODUCTION",Name="ATELIER2\MANNONE EMMANUEL")
Error description: Chemin de l'objet non valide
Can't find Account: "PRODUCTION\ATELIER2\MANNONE EMMANUEL"
Could not find /G user/group: "PRODUCTION\ATELIER2\MANNONE Emmanuel" removing fr
om list.
Error: No Groups or Names entered were found, exiting script.


Operation Complete
Elapsed Time: 2,140625 seconds.

Ending Script at 01/02/2011 20:41:12



Si je comprend bien le problème se situe là :
objTempService.Get("Win32_Group.Dom
ain="PRODUCTION",Name="ATELIER2\MANNONE EMMANUEL")

Il comprend que le nom de l'utilisateur est "ATELIER2\MANNONE EMMANUEL" et qu'il est placé dans "PRODUCTION"
alors qu'en fait le nom de l'utilisateur est MANNONE EMMANUEL et il est placé dans "PRODUCTION/ATELIER2"

Aurais tu une solution? Parce que la je bloque :s

Bonjour,

Tu n'est pas obligé de préciser les OU des utilisateurs a qui tu attribue les droits, xcacls va les trouver ou qu'ils soient dans l'active directory (en tout cas c'est mon cas) essaye tout simplement cette commande :

Wshshell.Run "cmd /k cscript.exe xcacls.vbs C:\Data\User\" & login & " /T /G "& nom &":r"

Et fais aussi attention a ou tu met tes espaces. Il n'en faut pas entre le "\" après User et sa guillemet sinon il va prendre &login& a part. Par contre il te faut absolument un espace entre le & et la guillemet avant /T sinon il va prendre le /T en compte dans ton chemin de dossier.

J'ajoute que j'ai des problèmes personnellement pour utiliser xcacls directement avec un nom d'utilisateur (problème de mappage réseau entre l'ID et le nom d'utilisateur) mais que sa fonctionne avec les groupes. Donc lorsque je dois attribuer un droit a un dossier a un seul utilisateur j'utilise cette commande la :

Wshshell.Run "cmd /k cacls C:\Mondossier /E /G "&login&":f",0

D'ailleurs cela ne fonctionne qu'avec le login de l'utilisateur et non pas son nom dans l'active directory. (Je pense que c'est juste du au fait qu'il faut se connecter au moins une fois avec l'utilisateur pour qu'il effectue le mappage)

Alors ! J'y suis presque !
Le truc c'est que la commande que tu me propose marche mais elle ne fait pas ce que je veux
Je veux supprimer l'héritage (enlever tout les droits d'accès au dossier sauf l'admin) et ensuite ajouter l'utilisateur en contrôle total.
J'ai donc placé un /T à la place de ton /E mais dans la fenêtre dos je dois ensuite taper O pour confirmer à chaque utilisateur et en plus, cette commande me supprime les droits pour l'admin

Je vais continuer à chercher de mon coté ce soir, je te tiens au courant

Donc c'est simple, j'en ai marre...
J'ai passé la soirée à chercher, il me manque pas grand chose, juste à valider automatiquement

J'ai ça :

Set Wshshell = WScript.CreateObject("Wscript.Shell")
Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /G administrateur:f"
Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /E /G " & login & ":f"
Set wshshell=Nothing

Et mon problème c'est que pour la deuxième ligne, on me demande de valider pour chaque utilisateur et j'ai eu beau tout tester, rien ne marche ! J'ai fait en rajoutant echo Y | devant cacls
J'ai essayer en xcacls en mettant /Y à la fin
J'ai essayer de mettre des tas de lettres improbables à des endroits improbables et rien ne marche !

Et sinon la 3e ligne marche mais je voudrais que l'utilisateur ai tout les droits sauf le contrôle total, je sais qu'il faut changer le f de la fin, mais apparemment, les deux seuls autres lettres qui marchent sont c et r et elles ne correspondent pas non plus à ce que je veux faire...

Alors pour le fait que tes droits d'admin sont supprimés c'est normal, tant que le /E n'est pas présent dans ta commande, sa veut dire qu'il va dans un premier temps supprimer tout les utilisateurs qui pourrait avoir un droit sur le dossier, pour ensuite ajouter l'utilisateur a qui tu donne des droits. Donc si tu veux garder l'admin il faut faire comme tu as fais, ajouter l'admin (ce qui va retirer le reste) et ajouter l'utilisateur avec un /E.

Alors, le fait qu'il te demande une validation m'étonne. Personnellement, ma commande ne demande rien de tel. Tu peut m'indiquer ce que te dis exactement le message de validation ?

Pour voir où est le problème, essaye dans un premier temps de taper la commande directement dans une fenêtre dos pour voir si sa viens du fait que ta commande viens du script ou si c'est présent même en commande dos.

Sinon tu as quelle version de windows serveur ?

edit : j'oubliais, pour les droits que tu veut attribuer tu veux lesquels ?
Tu as de disponible : N (aucun), R(lecture), W(écriture),C(modification), F(contrôle total)

J'utilise windows server 2003
J'ai essayé directement dans la commande DOS et il me demande une confirmation "Êtes-vous sûr (O/N) ?"
Après pour les droits de l'utilisateur je veux qu'il ai tout les droits sauf le contrôle total (Ce qui revient à manuellement cocher la case contrôle total (pour cocher toutes les autres en même temps) puis la décocher (pour garder toutes les autres cases cochées sauf celle du contrôle total)).

c'est étrange jsuis aussi sur du 2003 server et il ne me met pas de message de validation :/ la jvois pas trop.

Sinon pour justement faire comme si tu cochais/décochais le controle totale ta pas essayé de faire un /G user:f dans un premier temps pour ensuite faire un /R user:f ?pour lui retirer le contrôle total ?

Je viens d'essayer :

Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /E /G " & login & ":f",0
Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /E /R " & login & ":f",0

La première ligne marche mais la deuxième me renvoie un problème de mappage entre les ID

Ah je suis déja tombé sur ce message et c'est lorsque j'essaye d'utiliser le nom des utilisateur a la place de leur login pour leur attribuer des droits. Je croyais que c'était une manip a faire pour faire en sorte que le nom de l'utilisateur soit associé a son login mais vu ton problème sa doit être autre chose. On dirait qu'il a un espace de temps trop court entre tes deux lignes essaye peut être de refermer ton objet Wshshell et de le recréer ensuite pour ta deuxième ligne. Genre comme ça :

Set Wshshell = WScript.CreateObject("Wscript.Shell")
Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /E /G " & login & ":f",0
Set wshshell=Nothing

Set Wshshell = WScript.CreateObject("Wscript.Shell")
Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /E /R " & login & ":f",0
Set wshshell=Nothing

Pas sûr que sa fonctionne mais on sait jamais^^

ça marche pas^^

jvois pas comment faire alors :/

Ok, merci pour tout, je poste si je trouve la solution

J'ai résolu le souci de confirmation (O/N)
ça donne ça :

Set Wshshell = WScript.CreateObject("Wscript.Shell")
Wshshell.Run "cmd /k ECHO O| cacls C:\Data\Users\" & login & " /G administrateur:f"
Wshshell.Run "cmd /k cacls C:\Data\Users\" & login & " /E /G " & login & ":f"
Set wshshell=Nothing

J'avais déjà essayer mais j'avais mis un espace entre le "O" et le "|" alors qu'il n'en faut pas.

Ah ban bravo j'aurai pas pensé a un "echo" ! :)