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