Find Query-based Distribution Groups in Domain
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 = _ [...]
Category: VBScript | 2 Comments
Posts tagged ‘Query-based distribution group’
