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

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

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

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

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

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

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

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

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

Код

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.

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

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

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

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

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

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