Как запустить удаленный компьютер

← →
Guru-ru (2003-01-30 15:43) [0]

Пишу прогу администрирование сети.
Как запустить удаленный компьютер по сети!!!

← →
vuk (2003-01-30 15:46) [1]

Использование WakeOnLan:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=13187

← →
Chubais (2003-01-30 18:00) [2]

а в космос запустить?

← →
}{enon (2003-01-30 19:37) [3]

А если у него питание отрублено? Хотел бы я посмотреть, как ты будешь его запускать посети.

← →
Anatoly Podgoretsky (2003-01-30 20:21) [4]

Не хорошо смеяться не поняв сути

← →
Nick_N_A (2003-02-02 06:40) [5]

}{enon прав, разве что будет собрано устройство для его включения

← →
Anatoly Podgoretsky (2003-02-02 11:57) [6]

Nick_N_A © (02.02.03 06:40)
Устарели ваши представления об современных компьютерах - WakeOnLan

← →
Song (2003-02-02 14:30) [7]

Надо блок питания ATX, постоянное питание и установку WakeOnLan в биосе. После чего мы посылаем широковещательный UDP запрос и наша машина включается.

← →
Александр Спелицин (2003-02-02 17:48) [8]

Вот рабочий пример. Использует компоненты Indy. Т.е. для D6 и старше.
program WakeOnLan;

{$APPTYPE CONSOLE}

uses
SysUtils,
Classes,
IdBaseComponent,
IdComponent,
IdUDPBase,
IdUDPClient;

function HexStringToBinString(const HexStr: string): string;
var
i, l: integer;
begin
Result := "";
l := length(HexStr);
l := l div 2;
SetLength(Result, l);
for i := 1 to l do
if HexToBin(PChar(Copy(HexStr, (i - 1) * 2 + 1, 2)),
PChar(@Result[i]), 1) = 0 then
raise Exception.Create("Invalid hex value");
end;

procedure SendMagicPacket(MACAddress: string);
var
s, packet: string;
i: integer;
begin
if Length(MACAddress) <> 12 then
raise Exception.CreateFmt("Invalid MAC Address: %s", [MACAddress]);
packet := HexStringToBinString("FFFFFFFFFFFF");
s := HexStringToBinString(MACAddress);
for i := 1 to 16 do
packet := packet + s;
with TIdUDPClient.Create(nil) do
try
Active := true;
BroadcastEnabled := true;
Broadcast(packet, 9);
finally
Free;
end;
end;

begin
if ParamCount <> 1 then
WriteLn("usage: WakeOnLan MACAddress" + #10 + #13 + "exmple: WakeOnLan 000102030405")
else
SendMagicPacket(ParamStr(1));
end.

← →
AlexMain (2003-02-02 19:10) [9]

А еще материнская плата должна быть соединена с Lan картой маленьким кабелем (к интегрированным LAN не относится), а то ничего не запустится, по PCI шине сигнал запуска не передается. Кстати в дешевых Lan картах возможность подключения этого кабеля присутствует только опционально - разъем как правило не впаян, а вот на матерях почти на всех встречал. Так что 3Com, Intel... и вперед!

Как запустить удаленный компьютер Найти похожие ветки