Discussion :

[duc@ti]

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 :

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

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

[pitchalov]

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

[duc@ti]

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 :

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

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 ?

[pitchalov]

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

Code :

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

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")

[duc@ti]

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

[duc@ti]

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 :

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

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 ?