none
FTP command over SSL for windows 2008 server.

    Question

  • Hi All,

    In out existing code we are using unsecured ftp to send files to Mainframe system from Windows 8 server.

    We want to convert unsecured FTP to secured FTP over SSL,  

    Script in the source server is using ASP,

    Please let us know the code changes required in ASP code

    Dim fsObj, MyFile, thisDir, bInclude, bExclude
    Set fsObj = CreateObject("Scripting.FileSystemObject")


    Set MyFile = fsObj.CreateTextFile("e:\file to be uploaded.scr", True)

    MyFile.WriteLine("open xxxxxxx.xxx.xxx.COM")
    MyFile.WriteLine("user xxxxxxx xxxxxx")
    MyFile.WriteLine("quote site BLK CYL PRI=400 SEC=100")

    ' Location of Folder that contains files
    thisDir = "e:\file to be sent"
    MyFile.WriteLine("lcd e:\file to be sent")

    ' Find all files in the \include directory
    bInclude = false
    bExclude = false

    Set f = fsObj.GetFolder(thisDir)
    Set fc = f.Files
    For Each fl in fc
        MyFile.WriteLine("put " + fl.name + " 'xxxxx.xxxxx.xxxxxx.xxxxxx(+1)'")
        bInclude = true
    Next


    MyFile.WriteLine("quit")
    MyFile.Close

    If bExclude Or bInclude Then
        Set wshell = CreateObject("wscript.shell")
        RetCode = wshell.run("ftp -n -s:E:\file to be uploaded.scr", , true)
        Set wshell = nothing
    End If
     

    Thanks

    Venakt

    Saturday, July 13, 2013 11:39 AM

Answers