'500端口命令无效'错误在Windows ftp客户端

Question

我创建了一个脚本，使用VBA从FTP服务器下载一个文件来启动脚本。我可以连接到服务器并导航到正确的目录，但当我获取文件时，我会收到以下消息：

500端口命令无效

我已经尽可能地修改了代码，但我对端口或FTP了解不够，不知道需要修改什么。

VBA代码：

Dim FTPcommand As String
Dim wsh As Object

FTPcommand = "ftp -n -s:" & Chr(34) & "C:\path\to\FTP_commands.txt" & Chr(34)
Set wsh = CreateObject("WScript.Shell")
wsh.Run FTPcommand, 5, True

脚本：

open ftp.blahblahbah.bl
user username password
lcd C:\Users\me\Documents\location
cd /specific location/
get "file.xlsx"

我希望下载该文件，但会收到以下消息（在脚本登录并成功导航到文件路径后）：

ftp

Answer 1

---

看起来ftp正在向另一个网络中的FTP服务器发送内部IP地址。服务器无法连接到该IP地址。我不认为，有一种方法可以解决它与ftp。网络的防火墙/NAT可以通过在PORT命令中转换IP地址来解决这个问题。

或者您需要使用不同的FTP客户端，它支持FTP被动模式。

您可以使用WinSCP FTP客户端。有一个将Windowsftp脚本转换为WinSCP的指南。

以下WinSCP代码相当于您的代码：

Dim FTPcommand As String
Dim wsh As Object

FTPcommand = """C:\Path\To\winscp.com"" /ini=nul /script=""C:\Path\To\FTP_commands.txt"""
Set wsh = CreateObject("WScript.Shell")
wsh.Run FTPcommand, 5, True

脚本：

open ftp://username:[e-mail]/
lcd C:\Users\me\Documents\location
cd /specific location/
get "file.xlsx"
exit

（我是WinSCP的作者）