1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
|
Dim strHost, strUser, strPass, strMode, LocalDir, RemoteDir
Dim output, ReturnCode, srtScript
Dim objFSO, strFile, objTempFldr, objFile, objRegExp
Dim objShell, WSX, ReturnCode, Output, strLog, strErrorLog
Const COMMAND_FTP = "ftp.exe -i -s:"
strHost = "...."
strUser = "babla"
strPass = "blabla"
strMode = "binary"
LocalDir = "/var/www/CR_tickets"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
strFile = Server.MapPath("Fichier_CR/CR_Numero_Ticket_"&request("IdTicket")&".htm")
set objTempFldr = strFile & ".ftp"
Set objFile = FSO.OpenTextFile( strFile, 2, True )
objFile.WriteLine( strUser )
objFile.WriteLine( strPass )
If LocalDir <> "" Then objFile.WriteLine( "lcd " & LocalDir )
If RemoteDir <> "" Then objFile.WriteLine( "cd " & RemoteDir )
objFile.WriteLine( Mode )
objFile.Close()
Set objShell = Server.CreateObject("WScript.Shell")
set WSX = objShell.Exec( COMMAND_FTP & strFile & " " & strHost )
set ReturnCode = WSX.StdErr
set Output = WSX.stdOut
strErrorLog = objTempFldr.Path & "ftpErrors.txt"
strLog = objTempFldr.Path & "ftpLog.txt"
Set objFile = FSO.OpenTextFile( strErrorLog, 2, True )
objFile.Write( ReturnCode.ReadAll() )
objFile.Close()
Set objFile = FSO.OpenTextFile( strLog, 2, True )
objFile.Write( Output.ReadAll() )
objFile.Close()
set FSO = nothing
set objFile = nothing
'FSO.DeleteFile strFile, True
set FSO = nothing
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Pattern = "not connected|invalid command|error"
If (objRegExp.Test( Output.ReadAll ) = True ) or
(objRegExp.Test( ReturnCode.ReadAll ) ) Then on one line
FTP = False
Else
FTP = True
End If
Set objRegExp = nothing |
Partager