Главная страница
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.081 c
2-1328101281
sergeii01
2012-02-01 17:01
2013.03.22
Запись в файл из нескольких потоков


15-1341814491
Очень Злой
2012-07-09 10:14
2013.03.22
Не могу скачать флешплейер


2-1348395531
Писатель
2012-09-23 14:18
2013.03.22
Преобразование String в PwideChar


3-1281438304
12
2010-08-10 15:05
2013.03.22
Параметры в Oracle, ошибка ORA-01747


15-1339518297
Artem
2012-06-12 20:24
2013.03.22
Что лучше Android или Windows Mobile?