Вниз
Скачать: CL | DM;

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

 
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)


 
igorkuz ©   (2004-03-09 12:00) [4]

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



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c
1-1078651021
Чубака
2004-03-07 12:17
2004.03.28
Сообщения


3-1077529794
Бульбаш
2004-02-23 12:49
2004.03.28
Как погасить курсор в поле?


14-1077793338
Vik_Mix
2004-02-26 14:02
2004.03.28
Где скачать эмулятор К580


6-1073307972
Qwert622
2004-01-05 16:06
2004.03.28
Web сервер.


8-1068487584
Shutov
2003-11-10 21:06
2004.03.28
PNG to BMP




   Наверх