Mappage de disque à partir de l'attribue Info

Bonjour,
Je cherche à optimiser mon login script actuel qui est trop long sur les mappages de disque en particulier. Pour cela je souhaite mapper mes disques en recupérant les valeurs que j'aurai stocké dans l'attribue Info de chacun de mes groupes du style x:;\\srv\partage;h:;\\srv\partage2 etc ...
Avec le script ci-joint, j'arrive bien à lister tous les groupes de l'AD avec les informations stockées dans l'attribue "info" en prévision de me servir du contenu de "info" pour mapper mes disques.
Le soucis c'est que je n'arrive pas à savoir comment afficher seuls les groupes dont je fais partie.
Et aussi comment je vais mapper les disques pour la suite en ayant mon information x:;\\srv\partage;h:;\\srv\partage2
Merci de votre aide si vous avez des idées.

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

On Error Resume Next   Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20   arrComputers = Array("DC73000") For Each strComputer In arrComputers WScript.Echo WScript.Echo "==========================================" WScript.Echo "Computer: " & strComputer WScript.Echo "=========================================="   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\directory\LDAP") Set colItems = objWMIService.ExecQuery("SELECT * FROM ds_group", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)   For Each objItem In colItems WScript.Echo "ADSIPath: " & objItem.ADSIPath WScript.Echo "DS_sAMAccountName: " & objItem.DS_sAMAccountName   WScript.Echo "Info: " & objItem.DS_Info WScript.Echo Next Next

---

Bonjour,

Pour récupérer les groupes de l'utilisateur courant, il faut tout d'abord récupérer l'objet AD de l'utilisateur courant.
Ensuite, l'attribut MemberOf te donnera les groupes de l'utilisateur et tu pourras récupérer ton information avec le code que tu as déjà.

Penche-toi sur la propriété UserName de l'objet WshNetwork pour récupérer le login de l'utilisateur courant.
Pour le mappage des disques, la méthode MapNetworkDrive de l'objet WshNetwork devrait te permettre de faire ce que tu veux.

Beaucoup d'exemples existent sur msdn ou ailleurs, et ils y a un paquet de loginscripts sur ce forum et le web qui pourront t'aider.

Bonne continuation

Merci,

J'arrive bien à récupérer mon compte AD et savoir à quels groupe il appartient. Pour avoir le retour de mon attribue info pour chaque groupes, il faut passer par :

Code:

---

1 2 3

set MyObj=GetObject("LDAP://CN=MonGrp1,OU=Paris,DC=Domain,DC=net") WScript.Echo "info ====" & MyObj.Get("info")

---

Je ne vois pas comment je peux obtenir le distinguishedName de mon groupe alors qu'il faut passer par une requête LDAP auparavant.

Une idée ?

Un peu de recherche sur le forum (et même dans les 10 derniers sujets) :

Code:

---

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

Set objRootDSE = GetObject("LDAP://rootDSE") strRootDSE = objRootDSE.Get("defaultNamingContext")   strGroupName = strUserGroup 'groupe récupéré dans la propriété MemberOf de ton User   Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;"   Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = "<GC://" & strRootDSE & ">;(&(objectCategory=group)(cn=" & strGroupName & "))" & ";distinguishedName;subtree"   Set objRecordSet = objCommand.Execute Set objGroup = GetObject ("LDAP://" & objRecordSet.Fields("distinguishedName")) WScript.Echo "info --> " & objGroup.Get("info")

---

Merci beaucoup !
J'avais bien trouvé des choses dans ce sens mais je n'arrivais pas à voir comment les utilisés dans mon cas.
:ccool:

A présent je recupére bien ma chaine de caractère x:;\\srv\partage;h:;\\srv\partage2
J'ai cherché à extraire le contenue avec split afin de faire le map de mes disques, mais je n'y arrive pas. Es-ce que je dois utiliser une autre facon de faire ? Tout en sachant que le nombre de disques et de partage peut varier dans mon champs info ?

J'essaie dans ce sens mais je n'arrive pas à grand chose...

Code:

---

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

Option explicit Dim chaine,tableau chaine="x:;\\SRV1\PARTAGE1;h:;\\SRV2\PARTAGE2;m:;\\SRV3\PARTAGE3" tableau=Split(chaine,";") Dim e,i i=0 For Each e In tableau Wscript.Echo tableau(i) Lecteur=tableau(i) Map = tableau(i+1) i=i+1   Next

---

Si vous avez une idée ?

par exemple :

Code:

---

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

Option explicit Dim chaine,tableau,lecteur,map chaine="x:;\\SRV1\PARTAGE1;h:;\\SRV2\PARTAGE2;m:;\\SRV3\PARTAGE3" tableau=Split(chaine,";") Dim e,i WScript.Echo UBound(tableau) If ((UBound(tableau)+1) Mod 2) <> 0 Then MsgBox "erreur sur décodage chaine" WScript.Quit End If   For i= 0 To UBound(tableau) -1 Step 2 WScript.Echo i & " = " & tableau(i) & " vers " & tableau(i+1) Lecteur=tableau(i) Map = tableau(i+1)   Next

---

Merci beaucoup bbil
:ccool: