(VBScript) Global Unlock

Demonstrates how to unlock the Chilkat API with a global (Bundle) purchased unlock code, or with a 30-day trial unlock code.

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)

' The Chilkat API can be unlocked for a fully-functional 30-day trial by passing any
' string to the UnlockBundle method.  A program can unlock once at the start. Once unlocked,
' all subsequently instantiated objects are created in the unlocked state. 
' 
' After licensing Chilkat, replace the "Anything for 30-day trial" with the purchased unlock code.
' To verify the purchased unlock code was recognized, examine the contents of the LastErrorText
' property after unlocking.  For example:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Global")
set glob = CreateObject("Chilkat.Global")
success = glob.UnlockBundle("Anything for 30-day trial")
If (success <> 1) Then
    outFile.WriteLine(glob.LastErrorText)
    WScript.Quit
End If

status = glob.UnlockStatus
If (status = 2) Then
    outFile.WriteLine("Unlocked using purchased unlock code.")
Else
    outFile.WriteLine("Unlocked in trial mode.")
End If

' The LastErrorText can be examined in the success case to see if it was unlocked in
' trial more, or with a purchased unlock code.
outFile.WriteLine(glob.LastErrorText)

outFile.Close