Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
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
Не мог бы дать ссылку, а то я что-то не нашел :(


 
Александр Спелицин   (2002-10-07 11:17) [8]

Вот пример, посылающий магический пакет на заданный 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.



 
TankMan   (2002-10-08 00:01) [9]

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


 
Lex_!   (2002-10-08 04:40) [10]

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



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.015 c
7-28315
Геннадий
2002-10-09 17:17
2002.12.09
Можно ли программно изменить IPадрес шлюза?


7-28309
denick
2002-10-03 11:32
2002.12.09
Как прогу поместить только в system tray ? И как вызвать?


6-28171
Jel
2002-10-10 14:31
2002.12.09
Мониторинг RAS соединений


1-28004
GooRoo
2002-11-29 21:19
2002.12.09
масштабируемость приложения


1-28065
Arhangel
2002-11-27 19:42
2002.12.09
Package





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский