Function Main(inputs, outputFolder, params)
Dim Need, Current
Need = CInt(params(0))
a = Array()
WScript.Echo(Need)
For Each input in inputs
a = AddItem(a, input)
Next
Current = CInt(UBound(a) +1)
If Need = Current Then
Main = "OK"
Else
Main = "Warning"
End If
End Function
' add item to array
Function AddItem(arr, val)
ReDim Preserve arr(UBound(arr) + 1)
arr(UBound(arr)) = val
AddItem = arr
End Function