Fonction Ismember paramètres incorrects

Bonjour je viens juste de découvrir une fonction ismember en vbs qui récupérerait la valeur de ismember sous forme de tableau.

Je comprends bien qu'il checke si c'est un tableau et qu'il le splite aussitôt pour mieux y lire les valeurs mais pourquoi l'erreur objet requis objuser?

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 26

Function IsMember(objUser,GroupName)   IsMember = False If IsArray(objUser.MemberOf) Then   For Each GroupDN in objUser.MemberOf   arrTemp = split(GroupDN,",") GroupCN = arrTemp(0)   If ucase(GroupCN) = "CN=" & ucase(GroupName) Then IsMember = True End If Next   Else arrTemp = split(objUser.MemberOf,",") GroupCN = arrTemp(0)   If ucase(GroupCN) = "CN=" & ucase(GroupName) Then IsMember = True End If End If     End Function

---

Le problème est qu'il me renvoie une erreur sur mon objuser quand je veux l'utiliser; je suis un peu newbie alors pouvez vous m'expliquer?

Merci !! je n'y comprends pas grand chose...

Dark

Lorsque l'interpréteur te dit cela, c'est qu'il considère que MemberOf n'est pas une propriété ou une méthode de objUser.
Souvent c'est dû au fait que objUser est null, et ne contient pas d'objet.
Ou bien assez souvent aussi, tu te trompes de méthode ou propriété. Dans ce cas MemberOf n'est pas une propriété de objUser.

Bien sur comme je n'ai aucune idée de ce qu'est objUser (tu n'as pas donné le type), je ne peux pas te dire si c'est l'un ou l'autre ou autre chose ou si je ne sais pas.

Met le reste du code cela sera plus simple.

Effectivement, le types d'objet ne concordaient pas; c'était la bonne piste. En creusant un peu, c'est ce que j'ai trouvé :yaisse2: mais merci pour ta ;)réponse.

Pour info, je fais un :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set oWshShell = Wscript.CreateObject("Wscript.Shell") Set oWshNetwork = wscript.CreateObject("WScript.network") Set ADSysInfo = CreateObject("ADSystemInfo")   Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)   strLogonServer = oWshShell.ExpandEnvironmentStrings("%LOGONSERVER%") strdomain = oWshShell.ExpandEnvironmentStrings("%USERDOMAIN%") strUserName = oWshShell.ExpandEnvironmentStrings("%USERNAME%") strSiteName = ADSysInfo.SiteName

---

L'erreur était de lui injecter un string au lieu du Currentuser pour faire un

Code:

---

If IsMember(CurrentUser, "groupegroupe") then oWshNetwork.MapNetworkDrive "S:", "\\share"

---

A plus,

Dark