使用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 

Answer 1

你不應該重置計數器爲0（i = 0）在您的遞歸函數（這是不是BTW的功能）。