Удаленный запуск.

← →
IgorKuz © (2004-03-09 10:54) [0]

Дело было перед 8 марта. Меня попросили всех женщин офиса поздравить и пригласить к столу. на все про все 30 мин.
Писать чего-нибуть серьезное времени маловато было.
Легче было веб страницу написась. Соответственно задача сводилась к запуску браузера у всех женщин несколько раз.
Написал программу mart8.exe :
begin
ShellExecute(0, nil,PChar("http://agrosv.ru/"),nil,nil,1)
end.
Проблема стала в запуске программы у всех. первая идея установить у всех в планировщик. Но... Программа не хотела работать с интерфейсом пользователя. работало только через команду АТ с ключом /interface. Времени оставалось мало . выполнил net view >host.txt
подправил этот файл оставив в нем только комп. женщин и написал еще один код start.exe :
...
begin
AssignFile(F,"host.txt"); AssignFile(F1,"start.bat");
Reset(F);ReWrite(F1);
while not Eof(F) do
begin
ReadLn(F,SH);
D:=Time; S:=TimeToStr(IncMinute(D,1)); Delete(S,6,3);
S:="AT "+SH+" "+S+" /interactive "+""\\main-server2
\1SDB\mart8.exe"";
WriteLn(F1,S);
end;
CloseFile(F); CloseFile(F1);
end.
Запускаешь start.exe потом start.bat и все... Впринципе справился с минимум кода. Но возникает вопрос:
Как запускать программу (удаленно или локально) под другим пользователем но что-бы было в взаимодействие с рабочим столом текущего пользователя ?

← →
Reindeer Moss Eater © (2004-03-09 10:56) [1]

Меня попросили всех женщин офиса поздравить и пригласить к столу.

Бедные женщины. Так и остались без поздравления и стола?

← →
fatal © (2004-03-09 11:54) [2]

Не проще ли было ->
....
begin
WinExec("net send * Урааа с празником 8 марта, все к столу в 35 кабинет",SW_NORMAL);
end;

....
Или в коммандной строке

C:\net send * Урааа с празником 8 марта, все к столу в 35 кабинет

← →
REA © (2004-03-09 11:59) [3]

TMass8MarchNotifier = Class(TRemoteCelebrationEatAndDrinkCaller)

не проще. Это не серьезно и некрасиво. картинку не вставишь. Я и так просто сделал. а вопрос я другой задал.

Удаленный запуск. Найти похожие ветки