Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

выполнение route из под ограниченого пользователя   Найти похожие ветки 

 
olevacho   (2010-02-09 00:27) [0]

Доброе время суток
Помогите пожалуйста разобраться где ошибка.
Задача: Программа должна уметь переключать на компьютере адрес шлюза в нужное время. Причем

работать она должна как служба (желательно системная) под Вин ХР и не взаимодействовать с

рабочим столом юзера. Получать запрос на изменение должна по сети из другого компа по TCP

соединению. Для этих целей использовался вызов команды route

const
UserName : WideString = "ADMIN";
Password : WideString = "123456";

Title : WideString = "change process";
Domain : WideString = ".";
var
ConstCommandLine : String;
MyStartupInfo : STARTUPINFO;
ProcessInfo : PROCESS_INFORMATION;
CommandLine : array[0..512] of WideChar;
begin

ConstCommandLine:= "route -f add 0.0.0.0 MASK 0.0.0.0 192.168.0.1 METRIC 20 IF

"+iface;//iface- переменная разная для разных компов

 FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
MyStartupInfo.cb := SizeOf(MyStartupInfo);
StringToWideChar(ConstCommandLine, CommandLine,
   Sizeof(CommandLine) div SizeOf(WideChar));
MyStartupInfo.lpTitle := PWideChar(Title);
if not CreateProcessWithLogonW (PWideChar(UserName), PWideChar(Domain),
    PWideChar(Password), LOGON_WITH_PROFILE, nil,
    CommandLine, 0, nil, nil, @MyStartupInfo, @ProcessInfo) then
  begin
 
  RaiseLastWin32Error()

  end
else begin
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
// отправка клиенту сообщения об  успешном изменении шлюза
 idTCPClient.Port:=StrToInt(EditPort.Text);
 idTCPClient.Host:=EditAddress.Text;
 idTCPClient.Connect;
 idTCPClient.WriteLn(GetComputerNetName+"."+EditMessage.Text);
 idTCPClient.Disconnect;
end;
 

end;

Далее для запуска проги как службы я использовал инструкции приведенные на

http://corsaro.nnov.ru/trash/zametki-o-windows-xp/848798.html
Результат работы:
1)Под виндовс ХР SP1 все работает ОК
2)Под виндовс ХР SP2 и ХР SP3 прога работает только если она запущена как обычное

приложение. Если запустить ее как службу под системной учетной записью то ничего не

происходит. Прога получает запрос от клиента но не меняет шлюза. Если запускать прогу как

службу с учетной записью admin  то при первом запросе прога меняет ip шлюза но при

последующих попытках она выдает "route.exe Ошибка при инициализации приложения 0xc0000142".

Если сделать перезапуск службы то опять первый раз все сработает а последующие выдаст приведенную ошибку.


 
DVM ©   (2010-02-09 19:56) [1]


> Далее для запуска проги как службы я использовал инструкции
> приведенные на
>
> http://corsaro.nnov.ru/trash/zametki-o-windows-xp/848798.
> html

А почему бы не сделать службу по-человечески, не используя разные шаманские приемы? В Delphi служба создается в пару кликов мыши.



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

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.06 c
3-1284466515
beginer
2010-09-14 16:15
2013.03.22
ibserver выгрузить bat-ником


2-1347989696
vegarulez
2012-09-18 21:34
2013.03.22
синхронизация потока.


2-1334645281
Handle
2012-04-17 10:48
2013.03.22
В каком событии рассчитывать координаты отрисовки


2-1330953400
dimokis
2012-03-05 17:16
2013.03.22
процедура для обработки нажатия любой кнопки на форме


15-1334834070
tesseract
2012-04-19 15:14
2013.03.22
IDE мечты на kickstarter