Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement ASP.Net active directory

active directory

5 réponses
Avatar
Rahan
Salut

on me demande d afficher tous les groupes de mon AD + les
utilisateurs associes a chaque groupes

j ai trouve des exemples qui listent les users du AD mais
pas les groupes

une adresse ?

A+
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-marc Sennechael
Bonjour,


Les articles suivants devraientt vous éclairer:
- Utilisation de DirectoryServices:
http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemDirectoryServices.asp
- script center technet (propriétés ADSI à utiliser):
http://www.microsoft.com/technet/scriptcenter/scripts/ad/default.mspx



Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"Rahan" wrote in message
news:091601c4d8a1$18418d60$
Salut

on me demande d afficher tous les groupes de mon AD + les
utilisateurs associes a chaque groupes

j ai trouve des exemples qui listent les users du AD mais
pas les groupes

une adresse ?

A+


Avatar
Rahan
merci pour la reponse

je doit pas etre loin de la solution ! mais j ai encore
un pb lors de la recherche de users quand j itere sur mes
groupes, le code:
.....
searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree

Dim DirEntry As DirectoryEntry
Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties("Name")
(0))
DirEntry = res.GetDirectoryEntry
Dim res2 As SearchResult
'recherche les users de chaque groupe
Dim searcher2 As New DirectorySearcher
(DirEntry)
searcher.Filter = "(&(objectCategory=Person)
(objectClass=user))"
//il trouve pas de user !!
For Each res2 In searcher2.FindAll
Response.Write("<BR>" + res2.Properties
("Name")(0))
Next

Response.Write("<BR>" + "...................")
Next

une idee ?

-----Message d'origine-----
Bonjour,


Les articles suivants devraientt vous éclairer:
- Utilisation de DirectoryServices:
http://msdn.microsoft.com/library/en-


us/cpref/html/frlrfSystemDirectoryServices.asp
- script center technet (propriétés ADSI à utiliser):
http://www.microsoft.com/technet/scriptcenter/scripts/ad/


default.mspx



Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune


sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés


à son utilisation.


"Rahan" wrote in


message
news:091601c4d8a1$18418d60$
Salut

on me demande d afficher tous les groupes de mon AD +




les
utilisateurs associes a chaque groupes

j ai trouve des exemples qui listent les users du AD




mais
pas les groupes

une adresse ?

A+




.



Avatar
Rahan
Salut a tous

je me prend la tete depuis quelques heures pour en fait
recuperer les membres d un groupe
en fait je parcours mes groupes et je recupere ces objets
j arrive a afficher les noms des groupes mais pas les
membres associes, je sais qu il existe une propriete
nTGroupMembers mais j arrive pas a la recuperer:

searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree
searcher.PropertiesToLoad.Add("name")
searcher.PropertiesToLoad.Add("nTGroupMembers")

Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties("name")
(0))

'????????????les membres de ce groupe
res.Properties("nTGroupMembers")(0) 'ne
marche pas !

Response.Write("<BR>" + "...................")
Next

merci d avance
-----Message d'origine-----
merci pour la reponse

je doit pas etre loin de la solution ! mais j ai encore
un pb lors de la recherche de users quand j itere sur


mes
groupes, le code:
......
searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree

Dim DirEntry As DirectoryEntry
Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties


("Name")
(0))
DirEntry = res.GetDirectoryEntry
Dim res2 As SearchResult
'recherche les users de chaque groupe
Dim searcher2 As New DirectorySearcher
(DirEntry)
searcher.Filter = "(&(objectCategory=Person)
(objectClass=user))"
//il trouve pas de user !!
For Each res2 In searcher2.FindAll
Response.Write("<BR>" + res2.Properties
("Name")(0))
Next

Response.Write("<BR>"


+ "...................")
Next

une idee ?

-----Message d'origine-----
Bonjour,


Les articles suivants devraientt vous éclairer:
- Utilisation de DirectoryServices:
http://msdn.microsoft.com/library/en-


us/cpref/html/frlrfSystemDirectoryServices.asp
- script center technet (propriétés ADSI à utiliser):
http://www.microsoft.com/technet/scriptcenter/scripts/ad




/
default.mspx



Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune


sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés


à son utilisation.


"Rahan" wrote in


message
news:091601c4d8a1$18418d60$
Salut

on me demande d afficher tous les groupes de mon AD +




les
utilisateurs associes a chaque groupes

j ai trouve des exemples qui listent les users du AD




mais
pas les groupes

une adresse ?

A+




.



.



Avatar
Jean-marc Sennechael
Bonjour,

Voici un exemple e, VBScript:

On Error Resume Next

Set objGroup = GetObject _
("LDAP://cn=Scientists,ou=R&D,dc=NA,dcúbrikam,dc=com")
objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

WScript.Echo "Members:"
For Each strMember in arrMemberOf
WScript.echo strMember
Next

Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"Rahan" wrote in message
news:049d01c4d946$1f4c51d0$
Salut a tous

je me prend la tete depuis quelques heures pour en fait
recuperer les membres d un groupe
en fait je parcours mes groupes et je recupere ces objets
j arrive a afficher les noms des groupes mais pas les
membres associes, je sais qu il existe une propriete
nTGroupMembers mais j arrive pas a la recuperer:

searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree
searcher.PropertiesToLoad.Add("name")
searcher.PropertiesToLoad.Add("nTGroupMembers")

Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties("name")
(0))

'????????????les membres de ce groupe
res.Properties("nTGroupMembers")(0) 'ne
marche pas !

Response.Write("<BR>" + "...................")
Next

merci d avance
-----Message d'origine-----
merci pour la reponse

je doit pas etre loin de la solution ! mais j ai encore
un pb lors de la recherche de users quand j itere sur


mes
groupes, le code:
......
searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree

Dim DirEntry As DirectoryEntry
Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties


("Name")
(0))
DirEntry = res.GetDirectoryEntry
Dim res2 As SearchResult
'recherche les users de chaque groupe
Dim searcher2 As New DirectorySearcher
(DirEntry)
searcher.Filter = "(&(objectCategory=Person)
(objectClass=user))"
//il trouve pas de user !!
For Each res2 In searcher2.FindAll
Response.Write("<BR>" + res2.Properties
("Name")(0))
Next

Response.Write("<BR>"


+ "...................")
Next

une idee ?

-----Message d'origine-----
Bonjour,


Les articles suivants devraientt vous éclairer:
- Utilisation de DirectoryServices:
http://msdn.microsoft.com/library/en-


us/cpref/html/frlrfSystemDirectoryServices.asp
- script center technet (propriétés ADSI à utiliser):
http://www.microsoft.com/technet/scriptcenter/scripts/ad




/
default.mspx



Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune


sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés


à son utilisation.


"Rahan" wrote in


message
news:091601c4d8a1$18418d60$
Salut

on me demande d afficher tous les groupes de mon AD +




les
utilisateurs associes a chaque groupes

j ai trouve des exemples qui listent les users du AD




mais
pas les groupes

une adresse ?

A+




.



.



Avatar
Rahan
mais en vb .net ?

il existe bien toute les classes etc..alors pourquoi
faire du vbscript ?????


-----Message d'origine-----
Bonjour,

Voici un exemple e, VBScript:

On Error Resume Next

Set objGroup = GetObject _



("LDAP://cn=Scientists,ou=R&D,dc=NA,dcúbrikam,dc=com")
objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

WScript.Echo "Members:"
For Each strMember in arrMemberOf
WScript.echo strMember
Next

Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune


sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés


à son utilisation.


"Rahan" wrote in


message
news:049d01c4d946$1f4c51d0$
Salut a tous

je me prend la tete depuis quelques heures pour en fait
recuperer les membres d un groupe
en fait je parcours mes groupes et je recupere ces objets
j arrive a afficher les noms des groupes mais pas les
membres associes, je sais qu il existe une propriete
nTGroupMembers mais j arrive pas a la recuperer:

searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree
searcher.PropertiesToLoad.Add("name")
searcher.PropertiesToLoad.Add("nTGroupMembers")

Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties


("name")
(0))

'????????????les membres de ce groupe
res.Properties("nTGroupMembers")(0) 'ne
marche pas !

Response.Write("<BR>"


+ "...................")
Next

merci d avance
-----Message d'origine-----
merci pour la reponse

je doit pas etre loin de la solution ! mais j ai encore
un pb lors de la recherche de users quand j itere sur


mes
groupes, le code:
......
searcher.Filter = "(objectClass=group)"
searcher.SearchRoot = Ldap
searcher.SearchScope = SearchScope.Subtree

Dim DirEntry As DirectoryEntry
Dim res As SearchResult
For Each res In searcher.FindAll
'affiche le nom de chaque groupe
Response.Write("<BR>" + res.Properties


("Name")
(0))
DirEntry = res.GetDirectoryEntry
Dim res2 As SearchResult
'recherche les users de chaque groupe
Dim searcher2 As New DirectorySearcher
(DirEntry)
searcher.Filter = "(&(objectCategory=Person)
(objectClass=user))"
//il trouve pas de user !!
For Each res2 In searcher2.FindAll
Response.Write("<BR>" + res2.Properties
("Name")(0))
Next

Response.Write("<BR>"


+ "...................")
Next

une idee ?

-----Message d'origine-----
Bonjour,


Les articles suivants devraientt vous éclairer:
- Utilisation de DirectoryServices:
http://msdn.microsoft.com/library/en-


us/cpref/html/frlrfSystemDirectoryServices.asp
- script center technet (propriétés ADSI à utiliser):
http://www.microsoft.com/technet/scriptcenter/scripts/a






d
/
default.mspx



Cordialement,

Jean-Marc Sennechael
Microsoft France - MCS

Ce message est fourni en l'état, sans garantie d'aucune


sorte et ne vous
confère aucun droit. Vous assumez tous les risques liés


à son utilisation.


"Rahan" wrote in


message
news:091601c4d8a1$18418d60$
Salut

on me demande d afficher tous les groupes de mon AD +




les
utilisateurs associes a chaque groupes

j ai trouve des exemples qui listent les users du AD




mais
pas les groupes

une adresse ?

A+




.



.





.