Dim DC : Set DC = CreateObject("Neevia.docConverter")

  DC.setParameter "PDFEncryption", "true"
  DC.setParameter "PDFEncryptionType", "rc4"

  DC.setParameter "PDFOwnerPassword", "owner"
  DC.setParameter "PDFUserPassword", "open"

  ' p - disable document printing
  ' e - disable extraction of text and graphics
  DC.setParameter "Permissions", "pe"

  Dim RVal : RVal = DC.encryptPDF("c:\in.pdf", "c:\out.pdf")
  If (RVal<>0) Then
    MsgBox "There was an error encrypting the document!!!"
  Else
    MsgBox "Done encrypting !!!"
  End If

  Set DC = Nothing