Работа с командной строкой (1. FTP-сервер 2. Проверка наличия подключения) - VB

Формулировка задачи:

имеется совет: Для восстановления конфигурации выполните команду: put [путь и имя файла в локальной файловой системе] rom-0, например put c:\config\660hw.cfg rom-0

                    Листинг программы
                
 
                        
                          
                    
ftp> open 192.168.1.1  
Связь с 192.168.1.1.  
220 FTP version 1.0 ready at Sat Jan 01 00:07:22 2000  
Пользователь (192.168.1.1:(none)): root  
331 Enter PASS command  
Пароль:  
230 Logged in  
ftp> bin  
200 Type I OK  
ftp> put c:\config\660hw.cfg rom-0  
200 Port command okay  
150 Opening data connection for STOR rom-0  
226 File received OK  
221 Goodbye for writing flash  
ftp: 49152 байт отправлено за 0,19 (сек) со скоростью 261,45 (КБ/сек).  
ftp>

Как мне из программы на vb6 Выполнить все эти команды последовательно в командной строке, что бы добиться того же результата. Пишу shell "ftp" открывается консоль и ждёт ввода команд. А дальше ничего не работает. То есть команды я не знаю как послать туда.

Решение задачи: «Работа с командной строкой (1. FTP-сервер 2. Проверка наличия подключения)»

textual
                            Листинг программы 
                        
Host = "8.8.8.8" 'Любой сервер
 
With CreateObject("WScript.Shell")
  .Run "cmd /c (Ping -n 1 " & Host & "|FindStr ""TTL=""&&(setX tVal 0)||(setX tVal 1))", 0, True
  MsgBox "Connection " & IIf(.Environment("User").Item("tVal") = 0, "Ok", "Failure")
End With