Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как запустить удаленный компьютер [D4, D5, D6, Win95/98, WinME]

Guru-ru © (2003-01-30 15:43:00)
Пишу прогу администрирование сети.
Как запустить удаленный компьютер по сети!!!

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

Александр Спелицин (2003-02-02 17:48:00) [2]
Вот рабочий пример. Использует компоненты 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.

Song (2003-02-02 14:30:00) [3]
Надо блок питания ATX, постоянное питание и установку WakeOnLan в биосе. После чего мы посылаем широковещательный UDP запрос и наша машина включается.

Anatoly Podgoretsky (2003-02-02 11:57:00) [4]
Nick_N_A © (02.02.03 06:40)
Устарели ваши представления об современных компьютерах - WakeOnLan

Nick_N_A (2003-02-02 06:40:00) [5]
}{enon прав, разве что будет собрано устройство для его включения

Anatoly Podgoretsky (2003-01-30 20:21:00) [6]
Не хорошо смеяться не поняв сути

}{enon (2003-01-30 19:37:00) [7]
А если у него питание отрублено? Хотел бы я посмотреть, как ты будешь его запускать посети.

Chubais (2003-01-30 18:00:00) [8]
а в космос запустить?

vuk (2003-01-30 15:46:00) [9]
Использование WakeOnLan:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=13187

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »