ftp user ssl (General questions)

by Ed Weijma, Monday, May 14, 2012, 13:16 (4373 days ago)

Hello,

I must create a new connection with an extern client, using ftps (ftp with the ssl protocol). I have a certificate and a private key created on the system and I have a vbs script created that should do the job. After some errors testing with the vbs script I have come to the part to connect to the client. I get no errors but nothing happens and after some time I get a time out on the connection:
This operation returned because the timeout period expired.
Code: 800A05B4

I am doing something wrong, I have tried the protocol setting to 4 or 3 but that is not allowed. I have tried the passive mode in 0 and no result. I also can't find any logfile. I think i am almost there....

My script looks like this:

Option Explicit

Const ForAppend = 8

Dim objFTP, lst, cert, certificate, authCertificate
Dim Logfile, fsobject

sub Log(txt)
Logfile.writeline now & & txt
end sub

Set objFTP = WScript.CreateObject( WeOnlyDo.wodFtpDLXCom.1 , wod_ )

Sub wod_Connected(ErrorCode, ErrorText)
If not ErrorCode = 0 then
wscript.quit 1
End If
End Sub

Sub wod_Done(ErrorCode, ErrorText)
If not ErrorCode = 0 then
wscript.quit 1
End If
End Sub

Set cert = WScript.CreateObject( WeOnlyDo.Certificate.1 )

Set objFTP = WScript.CreateObject( WeOnlyDo.wodFtpDLXCom.1 , wod_ )

Set objFTP.Certificate = cert

cert.Loadkey D:install st.rsa , password
cert.Load D:install st.cer , password

objFTP.Hostname = clientname
objFTP.Protocol = 2
objFTP.Port = 990
objFTP.Passive = 1
objFTP.Authentication = authCertificate
objFTP.Login = clientname
objFTP.Password = password

objFTP.Blocking = 1

objFTP.Connect

objFTP.GetFiles d:AZR-NLALG , /
objFTP.Disconnect

I can't find anything about ftp using ssl in your documentation, thats why I use the knowledge database.
Can you please help me? I hope I have send you enough information.