Bonjour,
Je bosse depuis quelques temps sur un script .VBS qui permet d'automatiser le montage de nos lecteurs réseaux (en se basant sur un fichier .CSV). Ceux-ci se montent par GPO via ce fameux script VBS en fonction des groupes Active Directory auquels appartient l'utilisateur qui se connecte.
Voici la partie du code qui m'intérèsse
Le script fonctionne parfaitement lorsque l'utilisateur appartient à minimum 2 utilisateurs.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.username) strGroups = CurrentUser.MemberOf For Each Item in strGroups groupeCourant = Split(Item, ",") MsgBox groupeCourant(0) 'Traitement de comparaison du GroupeCourant avec d'autres groupes pour monter le partage ' Next
A l'inverse lorsque l'utilisateur appartient à 0 ou 1 groupe, l'erreur suivante apparait ligne 5 carac 1 : "Err : Cet objet n'est pas une collection".
N'y a t-il pas moyen de garder cette logique de For Each avec eventuellement 0 ou 1 valeur dans ma variable strGroups ?
Merci d'avance !
Partager