Listing 3: Code to Define a Workstation Subgroup strADOFilter = "(&(objectClass=Computer)(!primaryGroupId=" _ & “515)(!operatingSystem=*Server)(!memberOf=" _ & MGMT_GRP & "))"