Bendito Persits.jpeg!

Olá pessoal, preciso escrever em uma imagem(já havia até postado um tópico antes) e achei o seguinte script no site do componente ASP JPEG:

Path = Server.MapPath("image_files/")
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Font path
FontPath = "image_files/"

Jpeg.Open Path & "\conv_apresenta_comercial.jpg"

' Text to draw
Txt = "Marcio Antonio Rocha da Cruz"

Jpeg.Canvas.Font.Color = &HFFFFFF00
Jpeg.Canvas.Font.Size = 60

' Draw letters in a round-about manner
Angle = -275
For i = 1 To Len(Txt)
x = 280 cos( Angle 3.141592 / 180 ) + Jpeg.Width / 2
y = 280 sin( Angle 3.141592 / 180 ) + Jpeg.Height / 2
Jpeg.Canvas.Font.Rotation = 270 - Angle
w = Jpeg.Canvas.PrintTextEx(Mid(txt, i, 1), x, y, FontPath)
Angle = Angle + w / 3.85
Next

Jpeg.Save Server.MapPath("conv_comercial_teste.jpg")
Porém ele apresenta o seguinte erro na linha onde se encontra a nvariável 'w':

"Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Jpeg.Canvas' "

Será que alguém pode me ajudar???

Marcio