Показать сообщение отдельно

  #4  
Старый 18.11.2008, 01:49
Pashkela
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514

Репутация: 3338


Отправить сообщение для Pashkela с помощью ICQ
По умолчанию

В данном случае проверка осуществлялась на ftp.narod.ru, а значит будет работать везде. Юзайте на здоровье

FTP.exe - консольная програмка, по умолчанию присутствует в любой виндовз.

Открой блокнот, вставь туда следующее:

On Error Resume Next
'Создаем файл сценария для FTP.EXE
set FSO = CreateObject("Scripting.FileSystemObject")
Set WSHshell = WScript.CreateObject("WScript.Shell")
Set sDir = WSHshell.Environment("Process") ' - находим путь к папке Windows
Set cScript = fso.CreateTextFile (sDir("windir") & "\FTp.scr") '-Обозначаем место, где будет создан и сохранен файл сценария '(в данном случае - папочка виндовз)
cScript.WriteLine "Open ftp.narod.ru" '- Открываем соединение с сайтом ftp.narod.ru на 21 порту
cScript.WriteLine "Login" '- Имя пользователя
cScript.WriteLine "1234" '- Пароль
cScript.WriteLine "PUT 123.txt" '- А это файл который мы закачиваем (если скачиваем, тогда GET)
cScript.WriteLine "bye" '-разрываем соединение с ftp.narod.ru
cScript.Close '- Конец записи в файл сценария
' Запускаем FTP-сценарий
WSHshell.Run sDir("windir") & "\system32" & "\FTP.ExE -s:" & sDir("windir") & "\FTp.scr", 0
Set fso = Nothing
Set WSHshell = Nothing
WScript.Echo "Done!" '-можете удалить эту строчку, она просто сигнализирует о том, что всё кульно
Wscript.Quit ' -выход

Сохрани как ftp.vbs

И всё.

Работает 100%

bat-вариант:

echo "open server.com" > 1.txt
echo "user nick" >> 1.txt
echo "pass passwd" >> 1.txt
echo "put file.exe" >> 1.txt
echo "bye" >> 1.txt
ftp -s:1.txt
 
Ответить с цитированием