VBScript Enumerate AD OUs and Containers

Dim objDSE, strDefaultDN, strDN, objContainer, objChild
Const enumContainersAlso = False

Set objRootDSE = GetObject("LDAP://rootDSE")
strDefaultDN = Domain_LDAP()
Set objContainer = GetObject("LDAP://" & strDefaultDN)

Call ListObjects(objContainer, "")

Function Domain_LDAP()
    Dim retval
    retval = objRootDSE.Get("defaultNamingContext")
    Domain_LDAP = retval
End Function

Function Domain_NetBIOS(ldapdn)
 Domain_NetBIOS = Replace(Replace(ldapdn,"DC=",""),",",".")
End Function

Sub ListObjects(objADObject, strSpace)
    Dim objChild
    For Each objChild in objADObject
        Select Case objChild.Class
            Case "organizationalUnit":
                objName = Mid(objChild.Name,4)
                objContainer = objChild.distinguishedName
                wscript.echo strSpace & "(o) " & objName
                Call ListObjects(objChild, "....")
            Case "container":
                If enumContainersAlso Then
                    objName = Mid(objChild.Name,4)
                    objContainer = objChild.distinguishedName
                    wscript.echo strSpace & "(c) " & objName
                End If
                Call ListObjects(objChild, "....")
        End Select
    Next
End Sub