Set tk = CreateObject("APToolkit.Object")
z = TK.CreateCertificate("Tim Sullivan (Signed)", "Management", "activePDF","Mission Viejo", "CA", "US", "tim@activepdf.com", 1, "My", 365,1,"activePDF, Inc.", "My")
z = TK.CreateCertificate("Tim Sullivan (Self-Signed)", "Management", "activePDF","Mission Viejo", "CA", "US", "tim@activepdf.com", 1, "My", 365,0,"", "")
set TK = nothing
|