Full application details

Option Explicit

Dim objScripting
Dim objCompletion

Set objScripting = CreateObject ( "ActiveXperts.Scripting" )

Wscript.Echo "ActiveXperts Scripting Toolkit " & objScripting.Version & " demo."
Wscript.Echo "Expiration date: " & objScripting.ExpirationDate & vbCrLf

' // First sample: calculate directory size, and return it as a number
objScripting.Clear ()
objScripting.Scriptfile = "Scripts\GetDirectorySize.vbs"
objScripting.Function = "GetDirectorySize"
objScripting.Parameter1 = Chr ( 34 ) & "C:\Program Files\ActiveXperts" & chr ( 34 )
WScript.Echo "Running script..."
Set objCompletion = objScripting.Run
ShowCompletion( objCompletion )

' // Second sample: calculate directory size, and return it as a string
objScripting.Clear ()
objScripting.Scriptfile = "Scripts\GetDirectorySize.vbs"
objScripting.Function = "GetDirectorySizeString"
objScripting.Parameter1 = Chr ( 34 ) & "C:\Program Files\ActiveXperts" & chr ( 34 )
WScript.Echo "Running script..."
Set objCompletion = objScripting.Run
ShowCompletion( objCompletion )

' // Third sample: script with a syntax error
objScripting.Clear ()
objScripting.Scriptfile = "Scripts\GetDirectorySize.vbs"
objScripting.Function = "GetDirectorySizeErr"
objScripting.Parameter1 = Chr ( 34 ) & "C:\Program Files\ActiveXperts" & chr ( 34 )
WScript.Echo "Running script..."
Set objCompletion = objScripting.Run
ShowCompletion( objCompletion )

' // Fourth sample: script with a timeout - calculate size of C:\ and timeout after 1 second
objScripting.Clear ()
objScripting.TimeOut = 1000 ' Timeout after 1000 msec
objScripting.Scriptfile = "Scripts\GetDirectorySize.vbs"
objScripting.Function = "GetDirectorySize"
objScripting.Parameter1 = Chr ( 34 ) & "C:\" & chr ( 34 )
WScript.Echo "Running script..."
Set objCompletion = objScripting.Run
ShowCompletion( objCompletion )


WScript.Echo "Ready."


Sub ShowCompletion( objCompletion )

WScript.Echo "Completion Code : " & objCompletion.CompletionCode
WScript.Echo "Completion Description : " & objCompletion.CompletionDescription

WScript.Echo "Return String : " & objCompletion.FunctionReturnString
WScript.Echo "Return Number : " & objCompletion.FunctionReturnNumber
WScript.Echo "Return Info : " & objCompletion.FunctionReturnInfo

WScript.Echo "Error Source : " & objCompletion.CompletionErrorSource
WScript.Echo "Error Description : " & objCompletion.CompletionErrorDescription
WScript.Echo "Error Line : " & objCompletion.CompletionErrorLine
WScript.Echo "Error Char : " & objCompletion.CompletionErrorChar
WScript.Echo "Error Code : 0x" & Hex ( objCompletion.CompletionErrorCode )

WScript.Echo

End Sub