Помогите создать батник для отправки файла на ftp

1. Создаешь батник, в батнике одна строчка:
ftp -s:c:\1.txt
2. В файле c:\1.txt пишешь (каждую команду с новой строчки) :
open IP_адрес_к_которому_подключаешься
user
имя_пользователя
пароль_пользователя
binary
put C:\ПутьКФайлу\Файл
bye

Вот код из реального скрипта на WSH (файл с расширением .vbs):
PricePath = "D:\1C\"
PriceFlag = "price.flg"
PriceExcel = "price.xls"
PriceZip = "price.zip"

FTPname = "fttp*******"
FTPuser = "**********"
FTPpass = "************"

SentPriceToFTP ' Отправка Прайс-листа на сервер FTP

Sub SentPriceToFTP
If FSO.FileExists(PricePath & PriceFlag) Then
toLogT "Найден флаг отправки Прайс-Листа"

Set objFTP = CreateObject("ChilkatFTP.ChilkatFTP")
With objFTP
.Hostname = FTPname
.Username = FTPuser
.Password = FTPpass

.Connect()
If .IsConnected Then ' Соединение установлено
toLogT " Соединение с FTP сервером"

If FSO.FileExists(PricePath & PriceExcel) Then
.PutFile PricePath & PriceExcel, PriceExcel
FSO.DeleteFile(PricePath & PriceExcel)
toLogT " Файл " & PriceExel & " отправлен на FTP сервер"
End If

If FSO.FileExists(PricePath & PriceZip) Then
.PutFile PricePath & PriceZip, PriceZip
FSO.DeleteFile(PricePath & PriceZip)
toLogT " Файл " & PriceZip & " отправлен на FTP сервер"
End If

.Disconnect
FSO.DeleteFile(PricePath & PriceFlag)
toLogT " Отсоединение от FTP сервера"
End If
End With

Set objFTP = Nothing
toLogT "Процедура отправки Прайс-Листа завершена. "
End If
End Sub

Sub toLog(Str)
Set TextStream = FSO.OpenTextFile(LogFileName, 8, True)
If Len(Str) = 0 Then
TextStream.WriteLine("" & Now) ' Просто дата и время
Else
TextStream.WriteLine("" & Now & " " & Str) ' Дата, время и информционная строка
End If
TextStream.Close
End Sub ' toLog
Бесплатный COM-сервер Chilkat FTP

ftp open ip -s t.txt - тут запишешь инструкции