Verify NT/Windows 2000 User Group Membership (VB Script)
Version Compatibility: Visual Basic Script
This function checks all members of a group. If an element of this group is not member of the strMemberList, then False is returned. Otherwise, True is returned. This function is often used to check if the Domain Admin or Enterpise Admin group has no unexpected members. It uses ADSI to accomplish this. Check out http://www.activxperts.com for more samples, components and tools
Instructions: Copy the declarations and code below and paste directly into your VB project.