[oleg777]

Добрый день! Нужен код для перезагрузки 3-х разных роутеров через telnet. Помогите пожалуйста

[Alegun]

Сервис на до 10ти штук модем/роутеров

[oleg777]

Мне бы все на кнопочках реализовать, и все достаточно примитивно. Без пинга и т.д. Просто нужно перезагрузить роутер 1, нажал на кнопку 1, роутер 2, кнопку 2 и т.д. Все это дело через телнет....

[Alegun]

Сообщение от oleg777

Мне бы все на кнопочках реализовать...

Без пингования есть только один вариант, обрывом питания - между розеткой и БП роутеров вешаются простенькие, по-схеме из журнала "Радио" USB или WiFi-реле с уникальными ID, после возобновления подачи напруги маршрутки перезагрузятся автоматом Что за роутеры, модели, если брать наиболее частотно встречающихся вендоров типа D(TP)-Link,зикселей или Linsys, их поделкам после телнет-коннекта типа "admin13admin" достаточно послать reboot, а для asysовцев или airport`овцев и всяких там ubiquiti с PK нужно слать sys rebot, а некоторые вообще кроме как через вебморды ребутиться не умеют, у всех по-разному, нужна конкретика

[oleg777]

(D) TP-LINK. Мне и нужно telnet 192. . . . логин, пароль, reboot

[oleg777]

Подскажи добрый человек

[Alegun]

Код:

procedure rbt(adr, log, pas, cmd: string);
var
 i: integer;
begin
 with TIdTelnet.Create(Application) do
  begin
   Host:= adr;
   if not Connected then
    begin
     Connect;
     for i := 1 to length(log) do SendCh(log[i]);
     Application.ProcessMessages;
     for i := 1 to length(pas) do SendCh(pas[i]);
     Application.ProcessMessages;
     for i := 1 to length(cmd) do SendCh(cmd[i]);
     Application.ProcessMessages;
     if Connected then Disconnect;
    end;
   Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//    IP роутера:    Логин:         Пароль:        Действие:
 rbt('192.168.1.1', 'admin' + #13, 'admin' + #13, 'reboot' + #13);
end;

[Alegun]

Вот тестовая сборка

З.Ы. А ниже телнет-интерпретёр

[oleg777]

tse на bat

[Alegun]

Чтож, поздравления, осталось только выполнить батник с кнопки, делается примерно так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 WinExec('1.bat', SW_SHOW);
end;

[oleg777]

rbt на tse и bat