使用VBscript将组成员身份存储在数组中

Question

我正在尝试存储包含嵌套在数组中的AD组成员。我有一个组有两个组作为它的成员，但是当我运行脚本时，该数组只包含最后一组的组成员资格。请帮我纠正以下脚本。

Dim arrmembers(1000)
Dim i

strTargetGroupDN_Remove = "LDAP://CN=GroupNameL,OU=Client,DC=testDC=com" 
EnumNestedgroup strTargetGroupDN_Remove

Function EnumNestedgroup(strGroupDN_Remove)

    Set objGroup_Remove = GetObject(strGroupDN_Remove)
    i=0

    For Each objMember_Remove in objGroup_Remove.Members
        If (LCase(objMember_Remove.Class) = "group") Then 
            EnumNestedgroup objMember_Remove.AdsPath  
        Else 
            arrmembers(i) = objMember_Remove.SAMaccountname
            i=i+1
        End If
    Next

End Function