VBSの基本 - vbscriptキュー

'Create a queue
Dim Que : Set Que = CreateObject("System.Collections.Queue")

Que.EnQueue("Element1")
Que.EnQueue("Element2")
Que.EnQueue("Element3")

'View the number of elements in the queue
WScript.Echo "Number of elements in the queue: " & Que.Count

WScript.

'Traverse the queue
Sub TraverseQue
 Dim ArrQue : ArrQue = Que.ToArray
 Dim Counter
 For Counter = 0 To UBound(ArrQue)
  WScript.Echo ArrQue(Counter)
 Next
End Sub
TraverseQue

WScript.

'Exit the queue
WScript.Echo Que.DeQueue
WScript.Echo "---"
TraverseQue
WScript.

'Clear the queue
Que.Clear
WScript.Echo "Number of elements in queue: " & Que.