Source code documentation samples give simple and easy method to install a needed feature into your application. ByteScout Premium Suite: the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can set passwords and permissions of pdf file with pdf sdk in VBScript.
The following code snippet for ByteScout Premium Suite works best when you need to quickly set passwords and permissions of pdf file with pdf sdk in your VBScript application. Follow the instructions from scratch to work and copy the VBScript code. Further improvement of the code will make it more robust.
ByteScout provides the free trial version of ByteScout Premium Suite along with the documentation and source code samples.
' This example demonstrates how to lock the document with a password. ' PDF format supports two kinds of passwords: owner and user password. ' User password allows to view document and perform allowed actions. ' Owner password allows everything, including changing passwords and permissions. ' Create Bytescout.PDF.Document object Set pdfDocument = CreateObject("Bytescout.PDF.Document") pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" Set comHelpers = pdfDocument.ComHelpers ' Create document Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4) pdfDocument.Pages.Add(page1) ' or load existing one: 'pdfDocument.Load "c:\test\some-document.pdf" ' Set document encryption algorythm pdfDocument.Security.EncryptionAlgorithm = comHelpers.ENCRYPTIONALGORITHM_RC4_40BIT ' Set various user permissions pdfDocument.Security.AllowPrintDocument = False pdfDocument.Security.AllowContentExtraction = False pdfDocument.Security.AllowModifyAnnotations = False pdfDocument.Security.PrintQuality = comHelpers.PRINTQUALITY_LOWRESOLUTION ' Set owner password pdfDocument.Security.OwnerPassword = "ownerpassword" ' Set user password pdfDocument.Security.UserPassword = "userpassword" ' Save protected document to file pdfDocument.Save("result.pdf") ' Open document in default PDF viewer app Set shell = CreateObject("WScript.Shell") shell.Run "result.pdf", 1, false