Discussion :

[xrorox]

Bonjour,

Comme vous le devinerez surement je suis débutant en vbscript, et j'ai à faire un script d'administration permettant de créer en masse des utilisateurs et de les supprimer, naturellement en vérifiant si les comptes existent ou pas. Et je dois en plus leur créer un certains nombre de dossiers pour chaque utilisateur.

Tant bien que mal, j'ai réussi à me débrouiller, pour faire la majorité de mon script. Mais j'ai un problème par rapport à la création de profils, de dossiers persos et des droits par rapport à un partage.

Je dois créer un profil pour l'utilisateur, donc le répertoire utilisateur de windows, je n'ai pas trouvé la propriété. Et je n'ai pas non plus la propriété pour créer le dossierperso si vous les avez je vous remercie

Cepandant, j'ai les propriétés pour céer le profil et le dossier perso TSE, même si je n'ai pas trop compris ce que c'est.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
objUser.TerminalServicesProfilePath = "\\TEST\BP-PROFILES\%USERNAME%"
objUser.TerminalServicesHomeDirectory = "\\TEST\BP-USERS\%USERNAME%"
objUser.TerminalServicesHomeDrive = "H:"

est ce les bonnes propriétés ?

et il me reste un dernier petit problème, je dois affecter mes utilisateurs à des groupes, mais apparemment j'utilise mal cette propriété.
un etrait de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 sub AffectationGroupe ()
dim objGroup
 Set objGroup = GetObject ("LDAP:// cn=" & Classe &  ", ou=" & Classe & ",ou=Classes , dc=lycée, dc=fr")
 objGroup.PutEx 3, "member", Array("cn=" & Login & ", LDAP://ou=" & Classe & ",ou=Classes ,dc=lycée , dc=fr")
  objGroup.SetInfo
  objGroup.Close
end sub

J'ai droit à un le serveur ne souhaite pas traiter votre requête, je ne sais pas où est mon problème quelqu'un peut m'expliquer comment marche cette propriété ?

[xrorox]

J'ai résolu mon problème d'affectation, et j'ai trouvé les propriétés, qui sont apparemment syntaxiquement juste, mais c'est tout.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
CompteEleve.ProfilePath = "C:\toto\" & Classe & "\" & Nom & Prenom
CompteEleve.HomeDirectory = "C:\toto2\" & Classe & "\" & Nom & Prenom
CompteEleve.HomeDrive = "C:"
CompteEleve.TerminalServicesProfilePath = "\\**.*.**.*(ip de mon serveur)\toto3\" & Classe & "\" & Nom & Prenom
CompteEleve.TerminalServicesHomeDirectory = "\\idem\toto4\" & Classe & "\" & Nom & Prenom
CompteEleve.TerminalServicesHomeDrive = "H:"

Dans mes utilisateurs active directory, ces informations sont renseignées, mais ça n'a pas créé le moindre dossier, enfin je n'arrive pas également à me connecter sur ces comptes(depuis mon serveur). peut être ai je mal configuré mon serveur, est ce que mon code marche, ou faut-il que je cree à la main les dossiers ?(à grand coup de mkdir)
Si quelqu'un a une idée ...


Je n'arrive pas à créer un dossier de partage, même en essayant de m'inspirer de ce qui a été fait ici :http://www.developpez.net/forums/d43...ssier-serveur/

[xrorox]

Je me suis débrouillé tout seul, et j'ai fini par trouver.