將項目添加到數組時，下標超出范圍

Question

我正在嘗試用AD組的成員填充數組。 嘗試將newArray（count）設置為用戶名時，我一直收到以下錯誤。

Microsoft VBScript runtime error: Subscript out of range

以下是相關代碼：

'set up of domain variables and stuff, verified working
Dim newArray()
Dim x
x = 0

Do While x < 1
    Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
    count = 0
    For Each objUser In objGroup.Members
        newArray(count) = objUser.FullName
        count = count + 1
    Next
....

Answer 1

你的

Dim newArray()

創建一個可憎的對象：一個無法增長的無大小數組，因為UBound失敗：

>> Dim aBomination()
>> ub = UBound(aBomination)
>>
Error Number:       9
Error Description:  Subscript out of range

創建具有在運行時確定的大小的動態數組的正確方法（例如17，如果要以無要素的數組開始則為-1），並且（如果需要）以后再增長：

>> ReDim aGood(17)
>> ub = UBound(aGood)
>> WScript.Echo ub
>> ReDim aGood(UBound(aGood) + 1)
>> aGood(UBound(aGood)) = "tail"
>> WScript.Echo UBound(aGood), aGood(UBound(aGood))
>>
17
18 tail