VBScript tool for checking if a value is in an array.

inArray.vbs

' returns the index of obj in array. obj can be anything. Returns -1 if not found.
Function inArray(arr, obj)
  On Error Resume Next
  Dim x: x = -1
	
  If isArray(arr) Then
    For i = 0 To UBound(arr)
      If arr(i) = obj Then
        x = i
        Exit For
      End If
    Next
  End If
	
  Err.Clear()
  inArray = x

End Function

Function inArray(arr, obj)
    inArray = False
    For Each value in arr
        If value = obj Then
            inArray = True
            Exit For
        End If
    Next
End Function