Sulla base dello script pubblicato in precedenza , vediamo come estrarre gli utenti presenti in un gruppo:

On Error Resume Next

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.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

--------------------------connessione ad AD---------------------------

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile("group_list.csv", _
    ForWriting, True)

-------------------------creazione del file csv nella posizione in cui viene lanciato lo script---------------------------------------

objCommand.CommandText = _
    "SELECT ADsPath, name FROM 'LDAP://"Dn della OU-dominio" WHERE objectCategory='group'"

------------------------Query------------------------------------------------

Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Set Gruppo = GetObject(objRecordSet.Fields("ADsPath").Value)
                        For Each utente in Gruppo.Member
                                      objLogFile.Write objRecordSet.Fields("name").Value & ","        
                                      objLogFile.Write utente & ","
                                      objLogFile.Writeline

                        next

objRecordSet.MoveNext
Loop
objLogFile.Close

-----------------------------Creazione del file CSV basato sulle info selezionate nella query-------------------------------------


Spero possa esservi utile
Fury