'This sample script demonstrates how to check if a PDF Document
'contains a valid Adobe.PPKMS signature
'Copyright 2005 Wrocklage Intermedia GmbH
'Redistribution without permission not allowed

On Error Resume Next
Dim pdf
Dim signer
Dim file
file ="c:\pdf\signed.pdf"

Set pdf = CreateObject("aloahapdf.edit")

	MsgBox pdf.is_pdf_signed(CStr(file))

Set pdf = nothing