Bom dia,
O script abaixo faz o inverso, traz os grupos e informa quem faz parte do mesmo.
Const ADS_SCOPE_SUBTREE = 2
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set objDSE = GetObject("LDAP://rootDSE")
Set OutPutFile = FileSystem.CreateTextFile("Lista_de_Grupos.txt", True)
strDominio = objDSE.Get("defaultNamingContext")
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") = 3000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT name,description,distinguishedname,instanceType FROM 'LDAP://" & strDominio & "' WHERE objectCategory='group'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
nome = objRecordSet.Fields("name").Value
descricao = objRecordSet.Fields("description").Value
cn = objRecordSet.Fields("distinguishedname").Value
OutPutFile.WriteLine nome & ";" & cn
pegaGrupo cn
objRecordSet.MoveNext
Loop
Function pegaGrupo(nomegrupo)
on error resume next
Set objGroup = GetObject("LDAP://" & nomegrupo)
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")
OutPutFile.WriteLine "============= MEMBROS DO GRUPO " & nome & " ================"
For Each strMember in arrMemberOf
OutPutFile.WriteLine strMember
Next
OutPutFile.WriteLine " "
End Function
Rafael S. AMARAL
U. P. Mackenzie
