Export Distribution List Members (from Active Directory to Excel)

I can't seem to nail down once specific group ...

If a group was named "Principals" and located in "ou=DistributionLists,ou=Accounts,dc=Corp,dc=Contoso,dc=com" .. how would I pull the members of one specific group?

I think this would pull all groups, but I have several thousand and only want the members of a few groups for reporting purposes.
csvde -f c:\dls.txt -r "(&(objectCategory=group)(proxyAddresses=*))"

I thought there may be a quick way to pull members (saMMAccount name, proxyAddress) from the actual group ... can you point me in the right direction?

Mmm try this it might save you fighting with the syntax http://hellomate.typepad.com/exchange/groupdump.zip

How would I modify this script if I wanted to pull the members of the group below? I apologize for my ignorance, I've modified and created some general VB scripts to pull or modify information, but haven't done any ADSI scripting.  I'd also like to pull the SMTP address since some of the users are mail-enabled contacts. Is this possible?

Principals
DL Location - "ou=DistributionLists,ou=Accounts,dc=Corp,dc=Contoso,dc=com"



'VBScript to output to text file the members of all groups
'V1.0 Neil Hobson (neil.hobson@silversands.co.uk)
'Last updated on 24/09/02
'History:
'v1.0 24/09/02 - Original code

On Error Resume Next
Set objArgs=wscript.Arguments

If objArgs(0)<>"-dn" Then
      wscript.echo "Dumping group membership using full DN..."
Else
      wscript.echo "Dumping group membership using only first CN part..."
End If

'Stuff for creating output text file
Const OutputFile = ".\groupdump.txt"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Wshshell = Wscript.CreateObject("Wscript.Shell")
Set Output = Fso.OpentextFile(OutputFile, 2, True)

Set ADSIRootDSE = GetObject("LDAP://RootDSE")
ADSINamingNC = ADSIRootDSE.Get("rootDomainNamingContext")
Set ADSIConnection = CreateObject("ADODB.Connection")
ADSIConnection.Provider = "ADsDSOObject"
ADSIConnection.Open "ADs Provider"

ADSIQueryText = "<LDAP://" & ADSINamingNC & ">;(&(objectCategory=group));name,distinguishedName;subtree"

Set ADSICommand = CreateObject("ADODB.Command")
Set ADSICommand.ActiveConnection = ADSIConnection
ADSICommand.CommandText = ADSIQueryText
ADSICommand.Properties("Page Size") = 100
ADSICommand.Properties("Timeout") = 60
ADSICommand.Properties("searchscope") = 2
ADSICommand.Properties("Cache Results") = False

Set ADSIResult = ADSICommand.Execute

Do While not ADSIResult.EOF

      Output.WriteLine
      Output.WriteLine
      Output.WriteLine "Group: " & ADSIResult.Fields("name").Value
      Output.WriteLine "==============================================================="
      Set GetDN = GetObject("LDAP://" & ADSIResult.Fields("distinguishedName").Value)
      strAllValues = GetDN.GetEx("member")
      iGroupCount = 0
      For each strValue in strAllValues
            If Len(strValue) = 0 Then
                  Output.WriteLine "There are no members in this group."
            Else
                  iGroupCount = iGroupCount + 1
                  If objArgs(0)<>"-dn" Then
                        Output.WriteLine strValue
                  Else
                        Call Stripper(strValue)
                        Output.WriteLine tmp
                  End If
            End If
      Next
      Output.WriteLine "Total members in group: " & iGroupCount
      Set strAllValues = Nothing
      ADSIResult.MoveNext

Loop

Output.Close
wscript.echo "Operation has finished."
Wscript.quit



Function Stripper(StripperString)

pos = InStr(1, StripperString, "cn=", vbTextCompare)
If pos <> 0 Then
      tmp = Mid(StripperString, pos + 3)
      pos = InStr(tmp, ",")
      If pos <> 0 Then tmp = Mid(tmp, 1, pos - 1)
End If

End Function

Hang on............ I'll ask a better man than me :)

Hey Pete,

I'm sure you are busy ... did you have any luck getting more info?

Thanks - I really appreciate you helping me with this!
Brian

Just checking back ... do you have time to help me out? If not, I'll accept your response and piece through it later.

Thanks!

Still no reply from bingie :( still looking at his profile hes only posed once in a week, Ill drop sirbounty an Email as hes the only other VB Expert I know

Pete

Thanks guys

big up to sirbounty - ThanQ

Is there a way to pull the SMTP address along with the User CN to the spreadsheet? I can post another question ...

New Question - http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_21322645.html

this script is fantastic. many many thanks to sirbounty for sharing this with everyone.

Hi Neil,
how are you?

I was taking a look at your script and I don't why this script is not working inside my production environment. I tested it inside my tailspintoys.com AD environment test and it worked fine but inside my production environment , it didn't work. did you do any limitation to make a research inside AD, I mean, size of domain name or the quantity of OU you can make this research?

Waiting for your feedback.

Osagarana;.