Enumerate ActiveDirectory Group Members

This simple VBS script binds to a AD group and enumerates it’s members: Option Explicit Dim strMember, strDNSDomain, strContainer Dim objGroup, objRootDSE Dim arrMemberOf, strList, arrGroup ' Bind to Active Directory' Set objRootDSE = GetObject(„LDAP://RootDSE”) strDNSDomain = objRootDSE.Get(„DefaultNamingContext”) ' Bind to a group Object ' — By ldap path 'strContainer …

Back to Top