'This sample script demonstrates how to sign PDF Document
'with Adobe.PPKMS signatures
'Copyright 2005 Wrocklage Intermedia GmbH
'Redistribution without permission not allowed
'Signature API only enabled with Aloaha 25+ licenses

Dim pdf		'aloaha object
Dim reason	'signature reason
Dim location	'signature physical location
Dim infile	'inputpdf
Dim outfile	'outputpdf - can be the same as inputpdf
Dim cert	'certificate to be used. Can be either UniqueContainerName or Serialnumber
Dim px1		'x1 coordinate as percentage of full page (upper left)
Dim py1		'y1 coordinage as percentage of full page (upper left)
Dim px2		'x2 coordinage as percentage of full page (lower right)
Dim py2		'y2 coordinage as percentage of full page (lower right)

px1 = 1		'place signature one percent of pagewidth from left
py1 = 6		'signature if 5% of pageheight heigh (py1+5)

px2 = 11	'signatue is 10% width (px1+10)
py2 = 1		'place signature 1% from button of page

reason = "I created this document"
location = "I am in the office"

'set unique container name of certificate. serialnumber can be also used
cert ="b010cee039ceb6ff1197d2b9f615d815_d47eb964-b63d-4abb-a9f3-7d692cd54574"

'set file names
infile = "c:\pdf\test.pdf"
outfile = "c:\pdf\output.pdf"

'create object
Set pdf = CreateObject("aloahapdf.edit")
	
	Call pdf.sign_pdf_file(CStr(infile), CStr(outfile), 0, 0, CLng(px1), CLng(py1), CLng(px2), CLng(py2), CStr(reason), CStr(location), CStr(cert), CStr(image)) 
	
Set pdf = nothing