(VBScript) Enable Chilkat Classes in JavaScript

See more JavaScript Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' Chilkat classes within JavaScript are disabled by default.
' An attempt to instantiate a disabled Chilkat class results in a JavaScript exception.

' For example, try the following JavaScript without first enabling the Chilkat class:

' sb = new CkStringBuilder();
' sb.Append('Hello World');
' success = sb.WriteFile('c:/aaworkarea/helloWorld.txt','utf-8',true);

set sbJavaScript = CreateObject("Chilkat.StringBuilder")
success = sbJavaScript.Append("sb = new CkStringBuilder(); sb.Append('Hello World'); success = sb.WriteFile('c:/aaworkarea/helloWorld.txt','utf-8',true);")

set js = CreateObject("Chilkat.Js")

set result = CreateObject("Chilkat.JsonObject")
result.EmitCompact = 0

' Run the script.  This should result in an error because we haven't enabled the Chilkat CkStringBuilder class.
success = js.Eval(sbJavaScript,result)
If (success = 0) Then
    ' Examine the result for an exception.
    outFile.WriteLine(result.Emit())

    ' The result contains this:
    ' {
    '   "exception": {
    '     "message": "Cannot create the chilkat object because the chilkat class is disabled in JavaScript. Fix by calling SetCkPermission before calling Eval or CallFunction",
    '     "stack": [
    '       {
    '         "func": "CkStringBuilder"
    '       },
    '       {
    '         "func": "<eval>",
    '         "file": "<input>",
    '         "line": 1,
    '         "col": 9
    '       }
    '     ]
    '   }
    ' }

End If

' Enable the Chilkat CkStringBuilder JavaScript class for readWrite
success = js.SetCkPermission("CkStringBuilder","readWrite")
' The script should work now...
success = js.Eval(sbJavaScript,result)
outFile.WriteLine("success = " & success)

' If the CkStringBuilder class is enabled for readOnly or sandbox, then it will fail.
'   - Chilkat methods that could directly or indirectly write to the filesystem require writeOnly or readWrite access.
'   - Chilkat methods that read the local filesystem require readOnly or readWrite access.
'   - Chilkat methods that don't interact with the local filesystem work in any mode including sandbox.
success = js.SetCkPermission("CkStringBuilder","readOnly")
success = js.Eval(sbJavaScript,result)
If (success = 0) Then
    ' Examine the result for an exception.
    outFile.WriteLine(result.Emit())

    ' {
    '   "exception": {
    '     "message": "failed because this Chilkat method requires the writeOnly or readWrite permission",
    '     "stack": [
    '       {
    '         "func": "WriteFile"
    '       },
    '       {
    '         "func": "<eval>",
    '         "file": "<input>",
    '         "line": 1,
    '         "col": 67
    '       }
    '     ]
    '   }
    ' }
End If


outFile.Close