El ejemplo utiliza dos scripts de Functional Tester distintos:
CallScript("TheCalled");
Dim ObjdataToPass as Object() ... CallScript("TheCalled",ObjdataToPass)
El script Caller se ha grabado de la siguiente manera:
Public Class TheCaller Inherits TheCallerHelper ' Script Name : TheCaller ' Generated : Dec 17, 2005 8:47:45 PM ' Description : Functional Tester Script ' since 2005/12/17 ' author Administrator Public Function TestMain (ByVal args() As Object) CallScript("TheCalled") Dim DataToPass(3)As String DataToPass(0) = "This" DataToPass(1) = "is" DataToPass(2) = "really" DataToPass(3) = "cool!" CallScript("TheCalled",DataToPass) Dim ObjdataToPass(3)As Object ObjdataToPass(0) = new String("Thought the previous was cool?") ObjdataToPass(1) = "Take this one!" ObjdataToPass(2) = new Float(0.02) ObjdataToPass(3) = new Integer(4711) CallScript("TheCalled",ObjdataToPass) End Function End Class
El script TheCalled utiliza un bucle simple para imprimir los parámetros recibidos en System.Console:
Public Class TheCalled Inherits TheCalledHelper ' Script Name : TheCalled ' Generated : Dec 17, 2005 8:48:12 PM ' Description : Functional Tester Script ' since 2005/12/17 ' author Administrator Public Function TestMain (ByVal args() As Object) If args.Length < 1 Then System.Console.WriteLine("There were "+args.Length+" args. Less than expected!") Return Else System.Console.WriteLine( "There were: "+args.Length+" args") End If Dim I As Integer For I = 0 To args.Length - 1 System.Console.WriteLine( " arg["+I+"] = " + args(I) .ToString()) Next End Function End Class