Показать сообщение отдельно
Старый 23.04.2008, 11:48   #20
dmitry_a
Постоялец
 
Пол:Мужской
Регистрация: 11.04.2007
Сообщений: 284
Репутация: 85
По умолчанию Ответ: Нужно создать *.bat

Цитата:
Сообщение от SidneyXP Посмотреть сообщение
Рар - вторая часть задачи, самая простая на мой взгляд. Вторую просто не знал чем изладить(

Пасибо, щас запробую)
З.Ы.:
2 вопроса в догонку: 1) как подружить это чудо с прокси
2) сохраняю в *.vbs запускаю - выдает ошибку, "предполагается наличие инструкции строка 1 символ 1" ((

я дал тебе только рабочие функции, в которые нужно передать параметры, поэтому их недостаточно просто сохранить как файл *.vbs а надо еще написать строку ее вызова.

пример стоит исполнять примерно так.
Код:
Call FTPTransfer("ftp://test.ru","anon","p@ssw0rd","backup/test.rar","c:\backup")

'Забираем файлики по фтп, с использование библиотеки FTP.DLL от Primalscript
Sub FTPTransfer(ftp,account,password,source,destination)
Dim oftp

'WScript.Echo source

Set oftp = CreateObject("Primalscript.FTPTransfer")
oftp.Passive = 1 ' set the passive flag if needed
' oftp.Port =  ' Set whatever port you are using if not the default ftp port
if oftp.Connect(ftp,account,password) = 0 Then
	WScript.Echo "status: " & oftp.Status
Else
	WScript.Echo "Starting download"
	If oftp.Get(source,destination) = 0 Then
		WScript.Echo oftp.Status
	Else
		WScript.Echo "Download complete"
		WScript.Echo oftp.status
	End If
	oftp.Disconnect
end If
end Sub
!!!Важно, незабыть скачать с сайта [Для просмотра ссылок требуется регистрация. Зарегистрироваться...] библиотеку для работы с фтп, штатные методы которые я пробывал использовать мне непонравились из-за необходимости описывать все коды возврата фтп клиента чтобы было понятно файл забран или нет. п.с. незабудь ее зарегистрировать "regsvr32 ftp.dll"

Добавлено через 21 минуту
NightVgik, if /? тебе в помощь

Код:
if %1==home goto home
if %1==work goto work


:home
netsh interface ip delete dns "local area connection" all
netsh interface ip add dns "local area connection" 192.168.0.11
netsh interface ip add dns "Local Area Connection" 192.168.0.10 index=2
exit

:work
netsh interface ip delete dns "local area connection" all
netsh interface ip add dns "local area connection" 192.168.0.10
netsh interface ip add dns "Local Area Connection" 192.168.0.11 index=2
exit
а с шарами надо немного подумать.

Последний раз редактировалось dmitry_a; 23.04.2008 в 12:10.. Причина: Добавлено сообщение
dmitry_a вне форума
 
Ответить с цитированием Вверх
Сказали спасибо:
 
Время генерации страницы 0.08500 секунды с 9 запросами