Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Запуск программы с ограниченными правами

Автор: FreePaul 24.2.2005, 01:42

Здравствуйте! Возникла следующая проблема:
На Delphi написана программа, одной из функций которой является определение свободного места на сетевом диске. Программа запускается как job из-под MS SQL Server под именем sa (сразу оговорюсь, что я запускал ее и под учетной записью админа машины и под учетной записью админа домена). Проблема вот в чем - если запускать программу обычным способом (двойным щелчком мыши по ней) то она корректно определяет свободное место на сетевом диске. А если она запускается как job из-под MS SQL Server, то всегда выдает, что свободное место =0 (нулю). Путем долгих тыканий выяснено, что скорей всего job'ом программа запускается с ограниченными правами (посмотреть такое можно, если по любому исполняемому файлу щелкнуть правой кнопкой мыши, выбрать пункт "Запускать от имени..." - там всегда по умолчанию отмечена опция "Запускать эту программу с ограниченным доступом".)

Вопрос: есть ли способ стандартными средствами Delphi обойти это ограничение.

P.S. С помощью Jedi пытался запустить программу с правами админа домена (написал launcher) - не помогает...

Автор: Bes 24.2.2005, 08:14

Попробуй запустить джобом дтс пакет а в нем уже запиши старт программы.

Автор: FreePaul 25.2.2005, 03:29

А поподробнее нельзя? ДТС - это Data Transformation Services? Как туда вписать запуск программы? smile

Автор: Bes 25.2.2005, 07:43

Выбираешь Local Package -> New Package
Добавляешь туда Execute Process task - туда пишешь путь к экзешнику.
Все.

Автор: FreePaul 28.2.2005, 08:29

Не помогло... Если в самом ЕМ выбираю команду Execute step - все работает, а по щедулеру - нет... smile

Автор: Bes 28.2.2005, 08:57

Хм... Может проблема в том, как твое приложение возвращает результат?
У тебя программа как работает, в каком виде возвращает результат?

Автор: FreePaul 28.2.2005, 09:26

Сначала определяю свободное место на сетевом диске:

Код


GetDiskFreeSpaceEx(PChar(DBDestJvDirectoryEdit.Text), FreeBytesAvailableToCaller, Totalsize, @FreeSize);

Затем действуем в зависимости от того, хватает ли свободного места:

Код


//Если места не хватает, выходим из программы
 if ((FreeBytesAvailableToCaller div 1024) div 1024)<StrToInt(NeedFreeSpaceEdit.Text+'000') then
    begin
     //***Сюда можно вставить отправку сообщения
     MyMess:=' Не хватает места для копирования бэкапа. Необходимо '+NeedFreeSpaceEdit.Text+'000, есть - '+IntToStr((FreeBytesAvailableToCaller div 1024) div 1024);
     WinExec(PChar('net send '+LocalIPLabel.Caption+MyMess), SW_HIDE);
     //Application.MessageBox(PChar(MyMess), '111', 1);
     GoTo ErrExit;
    end;

И вот тут-то и начинается... Если я запускаю программу ручками - определяет место, и все ОК, но если я ее ставлю в джоб, выдает, что свободного места - 0. smile

Автор: Bes 28.2.2005, 11:58

Я бы для начала упростил программу до одной строчки типа
ShowMessage(GetDiskFreeSpaceEx(PChar(DBDestJvDirectoryEdit.Text), FreeBytesAvailableToCaller, Totalsize, @FreeSize));
и так попробовал.
А вообще, закралось у меня подозрение, что это мистика и приложение запускается в каком-то своем пространстве... :-)
Попробую у себя, потом отвечу.

Автор: FreePaul 9.3.2005, 04:45

Цитата(Bes @ 28.2.2005, 08:58)

А вообще, закралось у меня подозрение, что это мистика и приложение запускается в каком-то своем пространстве... :-)
Попробую у себя, потом отвечу.

У меня то же подозрение... Все дело в том, что если через ShowMessage выдавать инфу, то прграмма висит в памяти сервера (ее видно в лиспетчере задач) но сообщение не выдает. Только через Net Send.

Не пробовал у себя?

Автор: Bes 9.3.2005, 07:03

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