[mpn]

Всем привет!
Поможите, кто может.
Задача простая. Необходимо периодически на удаленном компьютере (под Unix) выполнять ряд команд с дальнейшей обработкой выводимой в консоль информации. Хочу использовать для этого строку $t=Run("telnet","",@SW_HIDE,3) и далее при помощи StdinWrite, StdoutRead работать с открытой консолью. Но почему-то процесс telnet.exe закрывается сразу же после запуска. Где ошибка?

[Creat0R]

amel27

думаю в общем случае это неосуществимо

Да, я тоже так предположил сразу, но всё равно спасибо за то что есть (с гуи) - я вообще то предпологал что и это будет не реализуемо, но к огромному счастью, оказалось что это не так - надеюсь что когда нибудь и с этим делом вяснится что мы ошибаемся .

стиль для скобок добавил

Thnx!

mpn

почему-то процесс telnet.exe закрывается сразу же после запуска. Где ошибка?

Может этот процесс требует чтобы рабочий каталог был тот в котором он находится?
Попробуй перед запускам сменить рабочий каталог FileChangeDir("путь\к telnet.exe\"), или указать путь в самой сроке запуска...

Код:

$t=Run("telnet.exe","путь\к telnet.exe\",@SW_HIDE,3)

Или просто с полным путём запустить...

Код:

$t=Run("путь\к telnet.exe\telnet.exe","",@SW_HIDE,3)

DenchikK

Пиши скрипт так, и ненужно никаких Include :

Код:

$Path = @ScriptDir & "\2"
$FileName = "1.txt"

$DirsList = _DirListToArray ($Path)
For $i = 1 to $DirsList[0]
    FileDelete($DirsList[$i] & "\" & $FileName)
Next
FileDelete($Path & "\" & $FileName)

Func _DirListToArray ($sPath)
    Local $i, $j, $rlist[1]=[0], $blist, $alist=_FileListToArray ($sPath, '*', 2)
    If IsArray ($alist) Then
        For $i=1 To $alist [0]
            _ArrayAdd ($rlist, $sPath & "\" & $alist [$i])
            $blist = _DirListToArray ($sPath & "\" & $alist [$i])
            If $blist[0]>0 Then
                For $j=1 To $blist [0]
                    _ArrayAdd ($rlist, $blist [$j])
                Next
            EndIf
        Next
    EndIf
    $rlist [0] = UBound ($rlist) - 1
    Return $rlist
EndFunc

Func _FileListToArray($sPath, $sFilter = "*", $iFlag = 0)
    Local $hSearch, $sFile, $asFileList[1]
    If Not FileExists($sPath) Then Return SetError(1,1,"")
    If (StringInStr($sFilter, "\")) or (StringInStr($sFilter, "/")) or (StringInStr($sFilter, ":")) or (StringInStr($sFilter, ">")) or (StringInStr($sFilter, "<")) or (StringInStr($sFilter, "|")) or (StringStripWS($sFilter, 8) = "") Then Return SetError(2,2,"")
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3,3,"")
    $hSearch = FileFindFirstFile($sPath & "\" & $sFilter)
    If $hSearch = -1 Then Return SetError(4,4,"")
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then
             SetError(0)
            ExitLoop
        EndIf
        If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop
        If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop
        ReDim $asFileList[UBound($asFileList) + 1]
        $asFileList[0] = $asFileList[0] + 1
        $asFileList[UBound($asFileList) - 1] = $sFile
    WEnd
    FileClose($hSearch)
    Return $asFileList
EndFunc

Func _ArrayAdd(ByRef $avArray, $sValue)
    If IsArray($avArray) Then
        ReDim $avArray[UBound($avArray) + 1]
        $avArray[UBound($avArray) - 1] = $sValue
        SetError(0)
        Return 1
    Else
        SetError(1)
        Return 0
    EndIf
EndFunc

[Creat0R]

amel27

стиль для скобок добавил

По прикреплённому файлу...

Архив повреждён или имеет неизвестный формат

По ссылке в посте...

Sorry, the file you requested is not available.

[mpn]

Creat0R

Уже перепробовал все варианты. При этом, если если вместо telnet поставить, например, cmd - все работает.

[DenchikK]

Creat0R
Спасибо большое, но всё равно ошибка выдается:
Local $i, $j, $rlist[1]=[0], $blist, $alist=_FileListToArray ($sPath, '*', 2)
Local $i, $j, $rlist[1] ERROR
Error: No virriable given for "Dim", "Local", "Global" or "Const" statement.

[Creat0R]

mpn

Уже перепробовал все варианты

Используя ком. строку пробовал?

Код:

FileChangeDir("Путь к проге")
Run(@ComSpec, " /c start telnet.exe", "", @SW_HIDE)

DenchikK

ошибка выдается

Какая у тебя версия AutoIt?

[DenchikK]

Creat0R

Какая у тебя версия AutoIt?

AutoIT версий 3.1.0 и 3.1.1 ставил.

Добавлено:
Всё, спасибо! Заработало! Зашел на сайт - а там версия новее. Скачал - всё замечательно! Ещё раз спасибо!

[mpn]

Creat0R
Пробовал и с командной строкой. При этом первым запускается процесс cmd.exe, именно он становится доступным для ввода/вывода (последний параметр в команде run =3). Запускающийся следом telnet.exe не принимает команды, отправленные при помощи StdinWrite, даже при правильно указанном PID.
Поясню еще. Программу необходимо запускать в т.ч. и ночью на заблокированном компьютере. Поэтому использование send, отправляющей символы в активное DOS-окно, отпадает. Различные Control.. не работают с такими окнами. Пробовал вместо telnet запускать hyperterm.exe, но при его закрытии (на заблокированном ПК) Windows ругается: "...неизвестная ошибка...", и больше его запускать не хочет. Использование экзотических терминальных программ ограничивает мобильность скрипта.
Выход где-то должен быть!

[DenchikK]

Creat0R
А можно Вас ещё побеспокоить? Никак не могу изменить скрипт так, чтоб
удалялись несколько файлов, и с нескольких путей. Приходится для
каждого файла и каждого пути писать отдельный скрипт, при компиляции
каждый скрипт начинает весить 180 kb, и несколько - уже весят за 2
мегабайта!
Заранее спасибо!

[Creat0R]

mpn
А утилиту telnet пробовал ставить в тот же каталог вместе со скриптом? (или наоборот, скрипт в ту папку в которой telnet) - может что-то блокирует запуск программы? файрвол? какие то другие ограничители доступа в сеть?

DenchikK

изменить скрипт так, чтоб удалялись несколько файлов, и с нескольких путей.

Для каждого файла, добавляй соответственно такой блок кода:

Код:

$Path = @ScriptDir & "\имя другого каталога"
$FileName = "имя другого файла.txt"

$DirsList = _DirListToArray ($Path)
For $i = 1 to $DirsList[0]
    FileDelete($DirsList[$i] & "\" & $FileName)
Next
FileDelete($Path & "\" & $FileName)

А ещё лучше, если действительно много таких "процедур" нужно делать, создать для этого процесса отдельно функцию:

Код:

Func _DeleteFileInFolders($FileName, $Path)
    $DirsList = _DirListToArray ($Path)
    For $i = 1 to $DirsList[0]
        FileDelete($DirsList[$i] & "\" & $FileName)
    Next
    FileDelete($Path & "\" & $FileName)
EndFunc

И тогда можно использовать её каждый раз при необходимости....

Код:

_DeleteFileInFolders("File1.txt", "C:\Dir1")

_DeleteFileInFolders("File2.txt", "C:\Dir2")

_DeleteFileInFolders("File3.txt", "C:\Dir3")

И т.д.

P.S
Функцию поместить в конец скрипта (после трёх существующих функции - _FileListToArray, _ArrayAdd и _DirListToArray).