Find Query-based Distribution Groups in Domain

10th February 2009 17:17

To find all QBD groups in your domain run the following.

(Remember to change the LDAP string…)

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

objCommand.CommandText = _
    “SELECT cn, objectClass FROM ‘LDAP://dc=coretech,dc=intra’ WHERE ” _
        & “objectClass =’msExchDynamicDistributionList’”
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
   Wscript.Echo objRecordSet.Fields(1).Value
   objRecordSet.MoveNext
Loop

Tags: ,
Category: VBScript  |  Comment (RSS)




2 Responses to “Find Query-based Distribution Groups in Domain”

  1. Bjørn Nielsen says:
    11th February 2009 at 09:42

    Thanks – just saved me a couple of hours

    Reply
  2. Ada Yellock says:
    9th February 2012 at 18:40

    This may not be the best place to inquire about this, but I’m looking for a pest control business inside the pittsburgh region and have no method to find out who’s the very best. I located this company which is definitely close to me and wished to see if any person has any testimonials on them. Spectrum Pest Control, 3058 West Liberty Avenue, Dormont, PA 15216 – (412) 446-2802

    Reply

Leave a Reply