如何在VBScript中返回ArrayList？

' 创建一个空的Scripting.Dictionary对象
Set arrayList = CreateObject("Scripting.Dictionary")

' 添加元素到ArrayList中
arrayList.Add 0, "元素1"
arrayList.Add 1, "元素2"
arrayList.Add 2, "元素3"

' 返回ArrayList
Set arrayList = GetArrayList(arrayList)

' 输出ArrayList中的元素
For Each item In arrayList
    WScript.Echo item
Next

' 定义一个函数来返回ArrayList
Function GetArrayList(dictionary)
    Dim resultArray
    Dim i

    ' 创建一个空的数组
    ReDim resultArray(dictionary.Count - 1)

    ' 将字典中的元素复制到数组中
    i = 0
    For Each key In dictionary.Keys
        resultArray(i) = dictionary.Item(key)
        i = i + 1
    Next

    ' 返回数组
    GetArrayList = resultArray
End Function