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
Thanks – just saved me a couple of hours
…or you could just let vbScript die and use a simple LDAP query.
(&(objectCategory=msExchDynamicDistributionList)(objectClass=msExchDynamicDistributionList)(cn=*))
I do agree with all of the ideas you’ve offered in your post.
They are very convinciong and can definitely work. Nonetheless,
the posts are too quick for beginners. May you please prolong them a biit
from next time? Thanks for the post.