Working with Arrays--two examples

BasicArrayForEachNext.vbs

Option Explicit
On Error Resume Next
Dim myTab 'Holds custom tab of two places
Dim aryComputer 'Holds array of computer names
Dim computer    'Individual computer from the array
Dim I           'Simple counter variable. Used to retrieve by
                'Element number in the array.
myTab = Space(2) 'two blankspaces
i = 0           'The first element in an array is 0.
aryComputer = array("s1","s2","s3")

WScript.Echo "Retrieve via for each next"
For Each computer In aryComputer
         WScript.Echo myTab & "computer # " & i & _
         " is " & computer
   i = i+1
Next

Option Explicit
On Error Resume Next
Dim myTab 'Holds custom tab of two places
Dim aryComputer 'Holds array of computer names
Dim computer    'Individual computer from the array
Dim i           'Simple counter variable. Used to retrieve by
                'Element number in the array.
myTab = Space(2)
i = 0           'The first element in an array is 0.
aryComputer = array("s1","s2","s3")


WScript.Echo "Retrieve via for next"
i = 0
For i = 0 To UBound(aryComputer)
   WScript.Echo myTab & "computer # " & i & _
         " is " & aryComputer(i)
Next

from