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