Automation - Listing Children in a Container

Dim MyObject as IADs
Dim Child as IADs
Dim Container as IADsContainer
 
On Error Resume Next
Set MyObject = GetObject("WinNT://MyDomain/Group/Admin")
Set Container = MyObject
 
If Err = 0 Then
    For Each Child in Container
        Debug.Print Child.Name
    Next Child
EndIf