Dim ClassName

Dim QP

Dim InFileName

Dim OutFileName

Dim lWidth

Dim lHeight

ClassName = "DebenuPDFLibrary64Lite1114.PDFLibrary"

InFileName = "image.jpg"

OutFileName = "Testfini.pdf"

Set QP = CreateObject(ClassName)

' Load the image that you'd like to convert to PDF

if (QP.AddImageFromFile(InFileName, 0)) = 0 Then WScript.Echo("Erreur chargement image")

' Get the width and height of the image

lWidth = QP.ImageWidth()

lHeight = QP.ImageHeight()

' Reformat the size of the page in the selected document 

Call QP.SetPageDimensions(lWidth, lHeight)

' Draw the image onto the page using the specified width/height

Call QP.DrawImage(0, lHeight, lWidth, lHeight)

' Save the new PDF to disk

If QP.SaveToFile(OutFileName) = 0 Then WScript.Echo("Error, file could not be written")

Set QP = Nothing