FTP upload using InetCtls.Inet.1 - error with IE7

Hi,

I'm using the std script from PDF Creator to FTP upload files after PDF
printing.
The script uses the following function to upload.
However after installing IE 7, I get an error on the line "Set ftpo =
CreateObject("InetCtls.Inet.1")".
I have done some googleing, and found out that it because of IE 7.0. How can
I easy change the function so that it works?

Code:

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


Best regards
Mads

mayayana
Tue Apr 03 09:57:23 CDT 2007

You didn't say what the error is. Maybe
"unable to create object"?

I'm not sure, but maybe try using it with the
version-independent ProgID: InetCtls.Inet
I don't think you can depend on a versioned
ProgID being correctly registered.

Perhaps a better question is why did you
"upgrade" to IE7 when it has so many known
compatibility problems?


>
> I'm using the std script from PDF Creator to FTP upload files after PDF
> printing.
> The script uses the following function to upload.
> However after installing IE 7, I get an error on the line "Set ftpo =
> CreateObject("InetCtls.Inet.1")".
> I have done some googleing, and found out that it because of IE 7.0. How
can
> I easy change the function so that it works?
>
> Code:
>
> 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
>
>
> Best regards
> Mads
>
>

mads
Tue Apr 03 11:48:47 CDT 2007

I'm using the script various places, and one can't hold back the
evolution of IE 7. :o)
I have tried the without the .1, but it still fails.

The error is:
"Class is not licensed for use"
Code: 80040112

Marcus
Tue Apr 03 12:36:45 CDT 2007

Look here:
http://support.microsoft.com/?scid=kb%3Ben-us%3B318597&x=11&y=19





mads.westen@gmail.com schrieb:
> I'm using the script various places, and one can't hold back the
> evolution of IE 7. :o)
> I have tried the without the .1, but it still fails.
>
> The error is:
> "Class is not licensed for use"
> Code: 80040112
>
>