请问web服务器如何从另外一台机器下载文件？

要知道服务器的IP 用户名，密码，然后用控件获得
Dim AxInet1 As New InetCtlsObjects.Inet
        Try
            With AxInet1
                .Protocol = InetCtlsObjects.ProtocolConstants.icFTP
                .AccessType = InetCtlsObjects.AccessConstants.icUseDefault
                .RemoteHost = strURL
                .UserName = strUserName
                .Password = strPWD
                .Execute(, "get " & RemoteFile & " " & LocalFile)
            End With