Удалённое администрирование

ДАВАЙ ПОПРОБУЕМ ЧЁ-НИТЬ СОТВОРИТЬ!!!

1) Код серверной части:

перед этим вписываем в автозагрузку

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var s:string;
begin
s:=Socket.ReceiveText;
if s='Calc' then WinExec('calk.exe', SW_SHOWNormal); // при поступлении команды "Calk" на удалённом компе запускаем калькулятор
end;

2) Код клиентского приложения:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ClientSocket1.Host:=Edit1.Text;// здесь вписываем название хоста
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('Calk');// даём команду
ClientSocket1.Active:=false;// закрываем дверочку
end;

Ну как вам, я на работе так и делаю, правда не калькулятор запускаю, а програмы на серваке, и всё работает!!! :D

Я не понял, а чё все забросили эту идею или после моего кода все побежали делать???

Где ваши идеи, коды и пробные программы???

Или на этом всё???
Жду ваших мнений по поводу удалённого администрирования, срочняк надо (например, передача команд серверу в текстовом файле), помогите, а!!!:confused: