Dim grp As IADsGroup Dim memberList As IADsMembers Dim member As IADs Set grp = GetObject("WinNT://Microsoft/Administrators") Set memberList = grp.members For Each member In memberList Debug.Print member.Name & "(" & member.Class & ")" Next