using System;
  using AxScript;

  namespace Example1
  {
    class Class1
    {
      [STAThread]
      static void Main(string[] args)
      {
        XScripting  objScripting = new XScripting ();                              ' Create a new Scripting instance
		XCompletion objCompl;

        objScripting.ScriptFile   = "C:\My Scripts\Script.vbs";                    ' Set VBScrilt file 
        objScripting.Function     = "GetDirectorySize";                            ' Set function
        objScripting.Parameter1   = "\"C:\Windows\"";                              ' Set 1st parameter

        objCompl = objScripting.Run();                                             ' Run the script

        Console.WriteLine( "CompletionCode     : {0}", objCompl.CompletionCode );  ' Result (numeric) of the script execution
        Console.WriteLine( "CompletionDescr.   : {0}", objCompl.CompletionDescription ); ' Result (friendly string) of the execution
			
        if ( objCompl.CompletionCode == 0 )
        {
          Console.WriteLine( "FunctionRetNumber: {0}", objCompl.FunctionReturnNumber);  ' Return value (Number) of the function
          Console.WriteLine( "FunctionRetString: {0}", objCompl.FunctionReturnString ); ' Return value (String) of the function
          Console.WriteLine( "FunctionRetInfo  : {0}", objCompl.FunctionReturnInfo );   ' Return value (Variant) of the function
        }
        else
        {
          Console.WriteLine( "ComplErrorSource : {0}", objCompl.CompletionErrorSource );' Shows in which script the error occured
          Console.WriteLine( "ComplErrorDescr. : {0}", objCompl.CompletionErrorDescription ); ' Gives a short description of the error
          Console.WriteLine( "ComplErrorLine   : {0}", objCompl.CompletionErrorLine );  ' Shows in which line the error occured 
          Console.WriteLine( "ComplErrorChar   : {0}", objCompl.CompletionErrorChar );  ' Shows on which char position the error occured 
          Console.WriteLine( "ComplErrorCode   : {0}", objCompl.CompletionErrorCode );  ' Shows the Microsoft VBScript Engine error code
        }
      }  
    }
  }

   Set objScripting                      = CreateObject( "ActiveXperts.Scripting" )' Create a new Scripting instance

   objScripting.ScriptFile               = "C:\My Scripts\Script.vbs"              ' Set VBScrilt file      
   objScripting.Function                 = "GetDateAndTime"                        ' Set function 
   Set objCompletion                     = objScripting.Run                        ' Run the script

   WScript.Echo "CompletionCode          : " & objCompletion.CompletionCode        ' Result (numeric) of the script execution
   WScript.Echo "CompletionDescr.        : " & objCompletion.CompletionDescription ' Result (friendly string) of the script execution

   If( objCompletion.CompletionCode = 0 ) Then
     WScript.Echo "FunctionReturnNumber  : " & objCompletion.FunctionReturnNumber  ' Return value (Number) of the function
     WScript.Echo "FunctionReturnString  : " & objCompletion.FunctionReturnString  ' Return value (String) of the function
     WScript.Echo "FunctionReturnInfo    : " & objCompletion.FunctionReturnInfo    ' Return value (Variant) of the function
   Else
     WScript.Echo "CompletionErrorSource : " & objCompletion.CompletionErrorSource ' Shows in which script the error occured
     WScript.Echo "CompletionErrorDescription : " & objCompletion.CompletionErrorDescription ' Gives a short description of the error
     WScript.Echo "CompletionErrorLine   : " & objCompletion.CompletionErrorLine   ' Shows in which line the error occured 
     WScript.Echo "CompletionErrorChar   : " & objCompletion.CompletionErrorChar   ' Shows on which character position the error occured 
     WScript.Echo "CompletionErrorCode   : " & objCompletion.CompletionErrorCode   ' Shows the Microsoft VBScript Engine error code
   End If