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 :

Utilisateur
membre
membre

Utilisateur
membre
membre

etc...
J'ai commencé un petit 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
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