none
Como levantar membros de um Grupo do AD RRS feed

Respostas

  • Bom dia Marcos,

    Eu uma vez peguei este script não sei onde... mais eu acho que e o que vc esta querendo.


    On Error Resume Next

    Diretorio= "caminho onde vc quer gravar o resultado"

    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


    Grato


    Rodrigo Diniz

    sexta-feira, 8 de janeiro de 2010 12:15

Todas as Respostas

  • Bom dia Marcos,

    Eu uma vez peguei este script não sei onde... mais eu acho que e o que vc esta querendo.


    On Error Resume Next

    Diretorio= "caminho onde vc quer gravar o resultado"

    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


    Grato


    Rodrigo Diniz

    sexta-feira, 8 de janeiro de 2010 12:15
  • Rodrigo.

    Bom dia...

    Muito legal, vc sabe como colocar nesse log o Display Name name tb.?
    sexta-feira, 8 de janeiro de 2010 12:36