説明
Windows レジストリ内の証明書を検索し、署名する準備をします。このメソッドは文書に署名するすべての呼び出しに必要です。
戻り値の型
Long
|
戻り値 |
説明 |
|
>0 |
証明書が見つかりました。戻り値は、署名で使用するために退避してください。 |
|
-998 |
製品の未登録/評価版の期限切れ |
|
-997 |
必要な製品バージョンの未登録 |
|
-1 |
証明書が見つかりませんでした |
|
-2 |
証明書オブジェクトの作成エラー |
構文
object.FindCertificate CertificateCommonName, CertificateStore, UseLocalMachine
FindCertificate メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
CertificateCommonName |
String |
証明書の名前 (この名前で証明書を検索します) |
|
CertificateStore |
String |
証明書ストア名 (例 : "My" または "SelfSignedCertificates") |
|
UseLocalMachine |
Long |
1 を設定した場合、証明書は 0 を設定した場合、証明書は Web アプリケーションには 1 を設定してください。 |
例
Set tk = CreateObject("APToolkit.Object")
retCode = TK.FindCertificate("Joe Kant","My",1)
If (retCode < 0) Then
retCode = TK.CreateCertificate("Joe Kant", "Management", "activePDF","Mission Viejo", "CA", "US", "joe@activepdf.com", 1, "My", 365,0,"","")
retCode = TK.FindCertificate("Joe Kant","My",1)
If (u < 0) Then
MsgBox("Can't find it!")
End If
End If
r = tk.OpenOutputFile("output.pdf")
tk.SignOutputFile retCode, "activePDF Headquarters", "Our Document", "949-582-9002"
TK.SetFont "Helvetica",12
TK.PrintText 10,10,"This document should be signed."
Tk.CloseOutputFile
set TK = nothing