(VBScript) PDF List Unsigned Signature Fields

See more PDF Signatures Examples

Demonstrates how to list the unsigned signature fields in a PDF.

Note: This example requires Chilkat v9.5.0.90 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)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pdf")
set pdf = CreateObject("Chilkat.Pdf")

' Load a PDF containing 2 remaining unsigned signature fields:
success = pdf.LoadFile("qa_data/pdf/doctor_patient_parent.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

' Note: This example requires Chilkat v9.5.0.90 or greater.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = pdf.GetUnsignedSigFields(json)

json.EmitCompact = 0
outFile.WriteLine(json.Emit())

' Result:
' {
'   "unsignedSigField": [
'     "doctor_signature",
'     "parent_signature"
'   ]
' }

' To iterate over the field names:

i = 0
count_i = json.SizeOfArray("unsignedSigField")
Do While i < count_i
    json.I = i
    strVal = json.StringOf("unsignedSigField[i]")
    outFile.WriteLine(strVal)
    i = i + 1
Loop

outFile.Close