Lister Groupes + Membres ad

Version imprimable

C'est encore moi,

Je sollicite votre aide car je suis à court d'idée, je voulais faire un script qui en fonction d'un groupe m'enregistrai tous ces membres dans un fichier csv, sa ça fonctionne.

Mais maintenant ce qu'il me faudrait c'est un script qui puisse lister tous les groupes et en dessous les membres de ce type :

Citation:

Utilisateur
membre
membre

Utilisateur
membre
membre

etc...

J'ai commencé un petit script :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const FileName = "d:\groupmembers.csv" Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider="ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "SELECT Name, Location FROM 'LDAP://DC=D11130100,DC=cpam-marseille,DC=cnamts,DC=fr'" & "WHERE objectClass='Group'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Timeout") = 30 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.Properties("Cache Results") = False set objFSO = createobject("scripting.filesystemobject") set objFile = objFSO.createtextfile(FileName) Set ObjRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF objFile.WriteLine objRecordSet.Fields("Name").Value objFile.WriteLine(q & groupname & q) objRecordSet.MoveNext Loop
Mais celui-ci ne liste que les groupes et les enregistre dans un fichier csv.

J'ai essayé vraiment pas mal de truc, mais le soucis qui se pose c'est comment lister les utilisateurs d'un groupe qui est listé par une boucle et donc qui n'est pas défini au préalable par l'utilisateur.

Sa me rends fous, merci d'avance :)

Salut.

Il suffit de récupérer le champ "member" de chaque groupe, et de le lister dans ta boucle s'il est non vide :

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
27
const FileName = "d:\groupmembers.csv"
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider="ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT Name, Location, member FROM 'LDAP://DC=SDIS69,DC=fr'" & "WHERE objectClass='Group'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
set objFSO = createobject("scripting.filesystemobject")
set objFile = objFSO.createtextfile(FileName)
Set ObjRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
	objFile.WriteLine objRecordSet.Fields("Name").Value
	arrMembers = objRecordSet.Fields("member")
	If IsArray(arrMembers) Then	
		For Each strMember In arrMembers
			objFile.WriteLine vbTab & strMember
		Next
	End If
	objFile.WriteLine ""
	objRecordSet.MoveNext
Loop

Bonne continuation.

29/03/2011, 14h21
aurelien13008

Sa fonctionne, mais les utilisateurs sont listés ainsi :

Code:

CN=Nom du membre,CN=Users,DC=D11130100,DC=cpam-marseille,DC=cnamts,DC=fr

Moi je veux juste le nom de l'utilisateur et pas de CN ni de DC

J'ai tout regardé je pense que sa vient de strMember, il faudrait le remplacer par autre chose qui n'afficherait que le nom du membre.
29/03/2011, 15h32
pitchalov

Salut.

Les utilisateurs sont listés par leur distinguishedName car c'est ainsi qu'ils sont stockés dans le champ "member" de l'objet groupe.

Pour avoir un autre affichage de tes listes d'utilisateurs, plusieurs choix s'offrent à toi :
- Si tu veux récupérer leur CN, SN, Name ou je ne sais quel autre champ, il faut que tu récupères l'objet utilisateur LDAP à partir de son distinguishedName, dans ce cas tu pourras récupérer tous les champs de l'objet.
- Si tu veux récupérer le CN, tu peux traiter ta chaine de caractère pour ne récupérer que ce qui t'intéresse dans le distinguishedName (en gros, ce qu'il y a entre le premier CN= et la première virgule).

Quel que soit ton choix, tu trouveras toutes les informations pour le faire sur la FAQ VBS de ce site, sur ce forum, sur le script center de Microsoft ou sur le Web en général.

Bonne continuation

Bon et bien j'ai choisi une troisième solution, n'arrivant pas à appliquer les tienne.

Je me suis servis de "Replace", j'en ai même abusé et ça donne ça :

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
27
28
29
30
31
32
33
34
const FileName = "d:\groupmembers.csv"
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider="ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT Name, Location, member FROM 'LDAP://DC=D11130100,DC=cpam-marseille,DC=cnamts,DC=fr'" & "WHERE objectClass='Group'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
set objFSO = createobject("scripting.filesystemobject")
set objFile = objFSO.createtextfile(FileName)
Set ObjRecordSet = objCommand.Execute
objRecordSet.MoveFirst
 
Do Until objRecordSet.EOF
	objFile.WriteLine objRecordSet.Fields("Name")
	arrMembers = objRecordSet.Fields("member")
	If IsArray(arrMembers) Then	
		For Each strMember In arrMembers
	membersFilter = Replace(strMember, "CN=", "")
	membersFilter = Replace(membersFilter, ",", "")
	membersFilter = Replace(membersFilter, "ForeignSecurityPrincipalsDC=D11130100DC=cpam-marseilleDC=cnamtsDC=fr", "")
	membersFilter = Replace(membersFilter, "=PostesDC=D11130100DC=cpam-marseilleDC=cnamtsDC=fr", "")
	membersFilter = Replace(membersFilter, "=PortablesDC=D11130100DC=cpam-marseilleDC=cnamtsDC=fr", "")
	objFile.WriteLine(Replace(membersFilter, "UsersDC=D11130100DC=cpam-marseilleDC=cnamtsDC=fr",""))
		Next
	End If
	objFile.WriteLine ""
	objRecordSet.MoveNext
Loop
objFile.Close

C'est bien laid hein ? :lol: Mais sa fonctionne et plutôt très bien :)

Merci pour tout :P