VBS groupes utilisateur

Bonjour a vous,

Je suis en BTS informatique de gestion et je me suis fait un script pour mes PTI mais je me heurte a un problème. Je cherche a connaitre le groupe d'on fait parti mon utilisateur pour pouvoir créer le dossier de mon utilisateur au bonne endroit et mappé le lecteur réseau. Le script se trouve sur le serveur Active Directory (192.168.7.7) et les postes sont en 192.168.7.0 et 192.168.5.0 de l'autre coté d'un VPN.
http://img100.imageshack.us/img100/1265/sanstitreg.jpg

Voila mon script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set wshnetwork = WScript.CreateObject("WScript.Network" ) user = wshnetwork.username     Set objExistedossier = CreateObject("Scripting.FileSystemObject") If not objExistedossier.FolderExists("\\192.168.7.7\partage\" & user) Then Set objFSO = CreateObject("\\192.168.7.7\partage\" & user) Set objFolder = objFSO.CreateFolder("\\192.168.7.7\partage\" & user) End If     Set oNet = CreateObject("WScript.Network") oNet.MapNetworkDrive "X:","\\192.168.7.7\partage\" & user

---

De base se script crée un dossier au nom de l'utilisateur et le map comme lecteur réseau mais mais crée l'utilisateur dans partage. Le but serait qu'il crée le dossier utilisateur dans un dossier qui porte le nom de son groupe.


Savez vous aussi si il est possible de modifier les droits d'un dossier en VBS?

Merci d'avance.

Re bonjour,

En flânent sur le forum j'ai trouvé la solution a mon premier problème.
Étant dans un collège en stage j'ai adapté mon scripte aux besoins des utilisateurs je n'ai pas encore pu le tester.

Mais voila se que cela donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

Dim objRootLDAP, objGroup, objUser, objOU, objmemberOf Dim objADSysInfo,intNamelength,strGroupName Dim strServer,strprof,streleves,strdevoirs,strmatiere,stradmin,strpart   BS = Chr(92) ' Backslash DBS = BS & BS ' Double Backslash strServer="srv" 'Nom du serveur strprof="Professeurs" 'Nom du partage du groupe Professeurs strelev="Eleves" 'Nom du partage du groupe Eleves stredev="Devoirs" 'Nom du partage d'échange des devoirs strmat="matieres" 'Nom du partage d'échange des cours stradmin="administratif" 'Nom du partage administratif pour les professeurs strpart="partage" 'Nom du dossier racine des données partagé strress="ressources informatiques" 'Nom du partage ressources informatiques   ' Commands to bind to AD Set objRootLDAP = GetObject("LDAP://RootDSE") Set objNetwork = CreateObject("Wscript.Network" )   Set wshnetwork = WScript.CreateObject("WScript.Network" ) user = wshnetwork.username 'Recuperation du nom d'utilisateur   'Trouver le DN de l'utilisateur Set objADSysInfo = CreateObject("ADSystemInfo" ) strUser = objADSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser)   'WScript.Echo strUser   ' Extraire la liste des groupes de l'utilisateur objmemberOf = objUser.GetEx("memberOf" ) For Each objGroup in objmemberOf strGroupName = objGroup intNamelength=Len(strGroupName) - 3 strGroupName= Right(strGroupName, intNameLength) 'WScript.Echo strGroupName   'tableau contenant lecteurs et partages par groupes Select Case strGroupName Case "Professeurs,OU=Groupes CWB,DC=CWB,DC=local" objNetwork.MapNetworkDrive "O:",DBS & strServer & BS & strelev objNetwork.MapNetworkDrive "P:",DBS & strServer & BS & strdev Set objExistedossier = CreateObject("Scripting.FileSystemObject") If not objExistedossier.FolderExists(DBS & strServer & BS & strprof & BS & user) Then Set objFSO = CreateObject(DBS & strServer & BS & strprof & BS & user) Set objFolder = objFSO.CreateFolder(DBS & strServer & BS & strprof & BS & user) End If objNetwork.MapNetworkDrive "N:",DBS & strServer & BS & strprof & BS & user objNetwork.MapNetworkDrive "L:",DBS & strServer & BS & strprof & BS & stradmin Set objExistedossier = CreateObject("Scripting.FileSystemObject") If not objExistedossier.FolderExists(DBS & strServer & BS & strmat & BS & user) Then Set objFSO = CreateObject(DBS & strServer & BS & strmat & BS & user) Set objFolder = objFSO.CreateFolder(DBS & strServer & BS & strmat & BS & user) End If objNetwork.MapNetworkDrive "M:",DBS & strServer & BS & strmat & BS & user Case "Eleves,OU=Groupes CWB,DC=CWB,DC=local" objNetwork.MapNetworkDrive "M:",DBS & strServer & BS & strmat objNetwork.MapNetworkDrive "P:",DBS & strServer & BS & strdev Set objExistedossier = CreateObject("Scripting.FileSystemObject") If not objExistedossier.FolderExists(DBS & strServer & BS & strelev & BS & user) Then Set objFSO = CreateObject(DBS & strServer & BS & strelev & BS & user) Set objFolder = objFSO.CreateFolder(DBS & strServer & BS & strelev & BS & user) End If objNetwork.MapNetworkDrive "O:",DBS & strServer & BS & strelev & BS & user Case "Informatique,OU=Groupes CWB,DC=CWB,DC=local" objNetwork.MapNetworkDrive "O:",DBS & strServer & BS & strpart objNetwork.MapNetworkDrive "P:",DBS & strServer & BS & strress   End Select Next   WScript.Quit

---

Je me suis inspiré de se topic http://www.developpez.net/forums/d49...tilisateur-ad/

Mais je n'ai pas tout compris.
Je ne sais pas a quoi fait référence:
ceci

Code:

---

1 2 3 4 5

'Trouver le DN de l'utilisateur Set objADSysInfo = CreateObject("ADSystemInfo" ) strUser = objADSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser)

---

ceci

Code:

---

1 2 3 4

' Commands to bind to AD Set objRootLDAP = GetObject("LDAP://RootDSE") Set objNetwork = CreateObject("Wscript.Network" )

---

et ceci

Code:

---

1 2	Case "Comptabilite,OU=Groupes CWB,DC=CWB,DC=local"

---

Comptabilite c'est le nom du groupe mais le reste je comprend pas

Je n'ai pas encore résolue la gestion des droits au moment de la création des dossiers personnels.