'建立動態數組
Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList")

'添加元素
Arrl.Add "Element3"
Arrl.Add "Element2"
Arrl.Add "Element1"

'查看動態數組中的元素數
WScript.Echo "動態數組中現有元素數量: "  Arrl.Count
WScript.Echo "動態數組容量: "  Arrl.Capacity

WScript.Echo

'遍歷動態數組
Sub TraverseArrl
 Dim Counter
 For Counter = 0 To Arrl.Count - 1
  WScript.Echo Arrl(Counter)
 Next
End Sub
TraverseArrl

WScript.Echo

'動態數組排序
Arrl.Sort
TraverseArrl

WScript.Echo

'刪除指定元素
Arrl.Remove("Element1")
TraverseArrl

WScript.Echo

'清空全部元素
Arrl.Clear
WScript.Echo "動態數組中現有元素數量: "  Arrl.Count
WScript.Echo "動態數組容量: "  Arrl.Capacity