Discussion :

[darkbol1982]

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 :

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

[ced600]

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.

[darkbol1982]

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

Pour info, je fais un :

Code :

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

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 :

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

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

A plus,

Dark