Как программно включить удалённый компутер

← →
Tony'c © (2002-09-28 19:59) [0]

Люди, не скажите как программно включить удалённый компутер по сетевой карте.(т.е. есть локальная сеть, есть админовский комп и с него надо включить определённую машину). Если можно с примерами.
Заранее Благодарен.

← →
ZZ © (2002-09-28 20:23) [1]

Подходишь к эл.щитку и выключаешь питание на эту машину.

← →
Song © (2002-09-28 23:35) [2]

InitiateSystemShutDown()

Кстати, ZZ знал, просто ему за###ло отвечать на этот вопрос ;-)

← →
Rouse_ © (2002-09-29 00:19) [3]

> ZZ ©

> Song ©

Вопрос был как включить, отвечаю (смотрел рекламу когда шеф звонит подчиненному по телефону, а тот топает через весь офис и говорит, мол типа тута я) На админской машине нажимаешь кнопку "Включить удаленный компьютер", потом топаешь к удаленному компьютеру и нажимаешь кнопку "Подтвердить", а по буржуйски "Power". По крайней мере у меня так на 98 и ХР используя Delphi6 получалось :)

(ну никак ты не включишь)

Желаю успехов

← →
Tony'c © (2002-09-29 12:53) [4]

Спасибо огромное Rouse_ - Помогло.

← →
Opuhshii © (2002-09-30 10:04) [5]

включить.... - если в установить такую вещь как WakeUp-On-Lan (WOL),.. (применимо только к ATX) или что-то вроде-того в биосе,. то посылая так называемый "Magic Packet" поднимаем удаленный компьютер,. ;) если написать все то что в кавычках в строке поиска яндекса можно найти рабочий пример,.. ;)
удачи,..

← →
Poi$oN (2002-10-05 21:08) [6]

На самом деле, все много проще:
1. Подключаешь к проге библиотеку PC_ON_OFF.LIB (Инсталится со всеми версиями виндов, начиная с Win2015 )
2. Пишешь команду PcOn(XXX) , где XXX - IP включаемого компа!!!
3. Если сработает, с тебя 5000 зеленью, если нет - только 3тыс!!!

← →
TankMan © (2002-10-06 21:48) [7]

Opuhshii
Не мог бы дать ссылку, а то я что-то не нашел :(

Вот пример, посылающий магический пакет на заданный mac-адрес. Писался для D6. Использует Indy.
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.

Извините за глупый вопрос... а что такое Mac адресс и где он в данном примере задается?... может я что-то не доглядел?

MAC адрес - аппаратный вдрес сетевой карты, а задаеться он в вызове процедуры
procedure SendMagicPacket( MACAddress: string);

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