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

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
Le script fonctionne parfaitement lorsque l'utilisateur appartient à minimum 2 utilisateurs.
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 !