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

  #5  
Старый 19.11.2008, 01:02
MRAK9
Участник форума
Регистрация: 29.07.2007
Сообщений: 124
Провел на форуме:
1266562

Репутация: 60
По умолчанию

Цитата:
Сообщение от Pashkela  
В данном случае проверка осуществлялась на 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
ААААА ну что же у меня все не как у людей.....
скрипт исполняется но в C://windows нет НИЧЕГО
 
Ответить с цитированием