1MDI1
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Приветствую гуру AutoIT'a!
Есть задача скачать файл 4be.crl списка отзыва сертификатов с FTP и установить его.
Выход на FTP осуществляется через прокси и анонимно, через Total выход на FTP проходит нормально.
Код: #include <FTPEx.au3>
Dim $Open = _FTP_Open('ZIC',1,'10.0.0.112:3128')
if @error then
MsgBox(0,"Error","Ошибка подключения")
Exit
EndIf
Dim $server = 'ucecp.e-zab.ru'
Dim $username = 'anonymous'
Dim $pass = ''
$Conn = _FTP_Connect($Open, $server, $username, $pass,1)
if @error then
MsgBox(0,"Ошибка!","Не могу подключиться к FTP" & @error)
$Ftpc = _FTP_Close($Open)
Exit
EndIf
$file = _FTP_FileGet($Conn,'reg/intcrlinfo/4be.crl',@TempDir)
$comm = @SystemDir & '\rundll32.exe cryptext.dll,CryptExtAddCRL' & @TempDir & '4be.crl'
Run($comm, "", @SW_HIDE)
$Ftpc = _FTP_Close($Open) |
Пробовал вручную качать файл и просто написать скрипт для его установки но он тоже не срабатывает, хотя из батника все работает
Код: $comm = @SystemDir & '\rundll32.exe cryptext.dll,CryptExtAddCRL \\Murzindi\прог\4be.crl'
Run($comm, "", @SW_HIDE) |
Скажите где и что у меня в коде не правильно.
Спасибо!
Добавлено:
Да при подключении к ФТП получаю эту ошибку
MsgBox(0,"Ошибка!","Не могу подключиться к FTP" & @error) |
Всего записей: 248 | Зарегистр. 16-09-2008 | Отправлено: 02:47 20-05-2011 | Исправлено: 1MDI1, 03:06 20-05-2011 |
|
