Bonjour,

Sauriez vous comment je peut savoir si un un objet de l'AD est un group ou un utilisateur?

voici une partie de mon script:
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
objCommand.CommandText = _ 
     "SELECT * FROM 'LDAP://dc=maisonhugo,dc=no-ip,dc=org' WHERE objectCategory='group'"   
  Set objRecordSet = objCommand.Execute 
 
			objRecordSet.MoveFirst 
			Do Until objRecordSet.EOF 
			strADsPathGroup = objRecordSet.Fields("ADsPath").Value 
			Set objGroup = GetObject(strADsPathGroup)
			if nom(1) = objGroup.sAMAccountName then
			objExcel.Cells(lig, col).Font.Bold = TRUE
			arrMemberOf = objGroup.GetEx("Member")
			For Each strMemberOf in arrMemberOf
			Set objMember = GetObject("LDAP://" & strMemberOf)
			strMemberName = right(objMember.Name,len(objMember.Name)-3)
			objExcel.Cells(lig, 4).Value = strMemberName
			lig = lig + 1
			Next
			end if
			objRecordSet.MoveNext
			Loop
si l'objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
objMember = GetObject("LDAP://" & strMemberOf)
est un groupe d'utilisateurs, je voudrai lister les utilisateurs qui sont dedans.

J'essaye pleins de truc mais je vois pas comment faire.

EDIT: en fait avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
if objMember.Category = "group" then
je pourrai m'en sortir mais le probleme c'est que quand l'objet n'est pas un groupe le script plante en indiquant ca:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
C:\script\test script list droits.vbs(126, 4) Microsoft VBScript runtime error:
Object doesn't support this property or method: 'objMember.Category'
Merci de votre aide