Solved

FTP Connect Code in VB Script

Posted on 2008-10-29
6
3,195 Views
Last Modified: 2013-11-18
I am trying to edit the following code so that I can connect:

explict TLS/SSL
port: 2021
ftp.Hostname = "ftp.test.com"
        ftp.Username = "User"
        ftp.Password = "Pass"
 
        ' The default data transfer mode is "Active" as opposed to "Passive".
        ' Change it to Passive by setting the Passive property:
        ftp.Passive = 1
 
        '  Establish an AUTH SSL secure channel after connection
        '  on the standard FTP port 21.
        ftp.AuthTls = 1
 
        '  The Ssl property is for establishing an implicit SSL connection
        '  on port 990.  Do not set it.
        ftp.Ssl = 0
        '  Connect and login to the FTP server.
        connectStatus = ftp.Connect()
        If (connectStatus <> 1) Then
                'MsgBox ftp.LastErrorText
                'WScript.Quit
                Main = DTSTaskExecResult_Failure
        Else
                dirStatus = ftp.ChangeRemoteDir("RMed")
                If (dirStatus <> 1) Then
                    'MsgBox ftp.LastErrorText
                    'WScript.Quit
                Main = DTSTaskExecResult_Failure
        End If          
        
        
        
        'MsgBox ftp.getCurrentRemoteDir()
                
        'specify the file path and name on the local machine
        localInvoiceFile = "C:\Documents and Settings\Nathan\My Documents\2\dRMed\Invoice_RMed.txt"
        localPatientFile = "C:\Documents and Settings\Nathan\My Documents\2\dRMed\Patient_RMed.txt"
                
        'specify the file path and name on the remote machine
        remoteInvoiceFile = "C:\Clients\Strat\File Uploads\Customer Uploads\RMed\Invoice_RMed.txt"
        remotePatientFile = "C:\Clients\Strat\File Uploads\Customer Uploads\RMed\Patient_RMed.txt"
        'MsgBox remoteInvoiceFile 
        'MsgBox remotePatientFile
                
                'download the files from the remote server
                transferStatus = ftp.getFile(remoteInvoiceFile, localInvoiceFile)
                if (transferStatus <> 1) then
                        'MsgBox ftp.LastErrorText
                        Main = DTSTaskExecResult_Failure
                else
                        Main = DTSTaskExecResult_Success
                end if
                
                transferStatus = ftp.GetFile(remotePatientFile, localPatientFile)
                if (transferStatus <> 1) then
                        'MsgBox ftp.LastErrorText
                        Main = DTSTaskExecResult_Failure
                else
                        Main = DTSTaskExecResult_Success
                end if
        
        END IF
        ftp.Disconnect  
 
End Function

Open in new window

0
Comment
Question by:N R
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
6 Comments
 
LVL 4

Expert Comment

by:nasserd
ID: 22834203
The code is not specifying the FTP Port as 2021 (as your statement says).  Maybe a different FTP component is necessary, too.
0
 
LVL 11

Author Comment

by:N R
ID: 22834412
I know, I need it to, but I don't know vb code.
0
 
LVL 4

Expert Comment

by:nasserd
ID: 22835643
Hmm.  You may need to verify with the FTP ActiveX Component being used.  From the comments included, it may be a Chilkat FTP component; usually it would be object.Port = 1234

e.g.
ftp.HostPort = 2021 or
ftp.Port = 2021

As we don't know the exact component being used, there's more trial and error necessary.  Windows, by default, doesn't expose all of these parameters in its own FTP command-line tool.
0
Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

 
LVL 11

Author Comment

by:N R
ID: 22835879
Ok got it.  Now getting error:


Step Error Source: Microsoft Data Transformation Services (DTS) Package
Step Error Description:The task reported failure on execution.
Step Error code: 8004043B
Step Error Help File:sqldts80.hlp
Step Error Help Context ID:1100
'**********************************************************************
'  Visual Basic ActiveX Script
'************************************************************************
 
Function Main()	
 
	set ftp = CreateObject("Chilkat.Ftp2")
 
	'  Any string unlocks the component for the 1st 30-days.
	componentStatus = ftp.UnlockComponent("testftp")
	If (componentStatus <> 1) Then
		'MsgBox ftp.LastErrorText
		WScript.Quit
		Main = DTSTaskExecResult_Failure
	End If
	
 
            ftp.Hostname = "IP"
            ftp.Username = "user"
            ftp.Password = "pass"
            ftp.Port = 2021
 
       ' The default data transfer mode is "Active" as opposed to "Passive".
	' Change it to Passive by setting the Passive property:
	ftp.Passive = 1
 
	'  Establish an AUTH SSL secure channel after connection
	'  on the standard FTP port 21.
	ftp.AuthTls = 1
 
	'  The Ssl property is for establishing an implicit SSL connection
	'  on port 990.  Do not set it.
	ftp.Ssl = 0
 
	'  Connect and login to the FTP server.
	connectStatus = ftp.Connect()
	If (connectStatus <> 1) Then
		'MsgBox ftp.LastErrorText
		'WScript.Quit
		Main = DTSTaskExecResult_Failure
	Else
		dirStatus = ftp.ChangeRemoteDir("/File Uploads/Customer Uploads/RMed")
		If (dirStatus <> 1) Then
		    'MsgBox ftp.LastErrorText
		    'WScript.Quit
			Main = DTSTaskExecResult_Failure
		End If		
		
		'MsgBox ftp.getCurrentRemoteDir()
 
    'specify the file path and name on the local machine
		localInvoiceFile = "C:\Documents and Settings\Nathan\My Documents\2\dRickMed\Invoice_RMed.txt"
		localPatientFile = "C:\Documents and Settings\Nathan\My Documents\2\dRickMed\Patient_RMed.txt"
		
		'specify the file path and name on the remote machine
		remoteInvoiceFile = "Invoice_RMed.txt"
		remotePatientFile = "Patient_RMed.txt"
		'MsgBox remoteInvoiceFile 
		'MsgBox remotePatientFile
		
		'download the files from the remote server
		transferStatus = ftp.getFile(localInvoiceFile, remoteInvoiceFile)
		if (transferStatus <> 1) then
			'MsgBox ftp.LastErrorText
			Main = DTSTaskExecResult_Failure
		else
			Main = DTSTaskExecResult_Success
		end if
		
		transferStatus = ftp.GetFile(localPatientFile, remotePatientFile)
		if (transferStatus <> 1) then
			'MsgBox ftp.LastErrorText
			Main = DTSTaskExecResult_Failure
		else
			Main = DTSTaskExecResult_Success
		end if
	End If
 
	ftp.Disconnect 	
 
End Function

Open in new window

0
 
LVL 4

Assisted Solution

by:nasserd
nasserd earned 250 total points
ID: 22836032
SQL DTS, eh?  That's a different buggaboo!  You're best off re-categorizing this issue into the SQL Server categories... FTP via DTS has been a bane of my own existence, too.

Try declaring all of the variables (DIM xyz) and read this eggheadcafe sample:
http://www.eggheadcafe.com/articles/20030923.asp
0
 
LVL 11

Accepted Solution

by:
N R earned 0 total points
ID: 22842772
Oh nope was in the code, it has ftpget it needed to be ftpput.
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question