'Este script busca no AD os membros de determinado grupo e escreve em um arquivo no diretório c:\grupos
'Feito por Guina (02\10\2006)
On Error Resume Next
Diretorio= "c:\grupos"
grupo= InputBox("Digite o nome do grupo ")
file= grupo & ".txt"
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = oFSO.CreateFolder(Diretorio)
Set Dir=oFSO.GetFolder(Diretorio)
Set arqtxt = Dir.CreateTextFile(file, True)
Set rootDSE = GetObject("LDAP://RootDSE")
domainContainer = rootDSE.Get("defaultNamingContext")
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"
LDAPStr = "<LDAP://" & DomainContainer & ">;(&(objectclass=group)(objectCategory=group)(samaccountname=" & grupo & "));adspath;subtree"
Set rs = conn.Execute(LDAPStr)
If rs.RecordCount = 1 Then
Set oGroup = GetObject(rs.Fields(0).Value)
End If
for each strMember in oGroup.member
Spmember = Split(strMember, ",")
member= Spmember(0)
arqtxt.WriteLine Mid (member,4)
Next
iGroupCount = 0
For each strMember in oGroup.member
If Len(strMember) = 0 Then
wscript.echo "Grupo sem nenhum membro ou não existente!."
Else
iGroupCount = iGroupCount + 1
End If
Next
arqtxt.WriteLine("Número total de usuarios neste grupo = ") & iGroupCount
arqtxt.Close
WScript.echo "pronto!!!"
wscript.quit
Este script funciona perfeitamente, gera a lista de membros de um determinado grupo, sejam usuários, sejam computadores.
Porém, necessito de mais um detalhe, o qual tentei alterar o script, mas sem sucesso, que seria a inclusão da OU de cada objeto ao lado do nome.
Por exemplo, hoje ele gera o resultado assim:
PC01
PC02
PC03
A minha necessidade, é de que ele inclua a OU ao lado, como é mostrado o resultado da consulta gráfica no AD:
PC01 Nome-AD.local/NomeOU1/NomeOU2
PC02 Nome-AD.local/NomeOU1/NomeOU2
PC03 Nome-AD.local/NomeOU1/NomeOU2
Se alguém conseguir alterar o script acima, incluindo este parâmetro, serei grato!
Obrigado!
