Pdf's auf FTP speichern

Hi,
würde gerne meine Pdf's auf meinem Ftp Server speichern. Dachte
das ist mit dem dazugehörigem Script möglich welches unter
Drucker>Einstellungen>Programm>Aktionen auswählbar ist.
Leider kommt immer die Meldung : ActiveX-Komponenten kann kein Objekt erstellen: 'InetCtls.Inet.1' Code 800A01AD
Könnte mirr jemand helfen ?
Der Pfand wäre normal ftp://adm:adm@192.168.2.10/usr
 Im Anschluss noch meine veränderte .vbs Datei

' FTP upload script
' Part of PDFCreator
' License: GPL
' Homepage: http://www.sf.net/projects/pdfcreator
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer

Option Explicit

Const AppTitle = "PDFCreator - FTPUpload"

Dim objArgs, fname, domain, user, pass, rdir

domain="192.168.2.10"
rdir="usr"
user="adm"
pass="adm@"

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
 MsgBox "This script needs a parameter!", vbExclamation, AppTitle
 WScript.Quit
End If

fname = objArgs(0)


Call FTPUpload(domain, rdir, user, pass, fname)

Private Sub FTPUpload(domain, rdir, user, pass, fname)
 Dim fso, ftpo
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set ftpo = CreateObject("InetCtls.Inet.1")
 ftpo.URL = "ftp://" & domain
 ftpo.UserName = user
 ftpo.Password = pass
 ftpo.Execute , "CD " & rdir

 Do
  WScript.Sleep 100
 Loop while ftpo.StillExecuting

 ftpo.Execute , "Put """ & fname & """ """ & fso.GetFilename(fname) & """"
 
 Do
  WScript.Sleep 100
 Loop while ftpo.StillExecuting

 ftpo.Execute , "Close"
End Sub


Win 7 , PDFCreator 1.7.3