Как выполнить функцию API от имени администратора?

[aleksmir]

У меня есть библиотека admin.dll (я её сам написал в VB5). Она ActiveX.
И есть файл start.exe (к примеру), который пользуется этой библиотекой.

Чтобы не уложнять жизнь обычным юзерам моя программа может копироваться с одного ПК на другой без переустановки.
Это реализовывается таким образом, что сразу после запуска start.exe внутри него выполняется такой код:

Код: Выделить всё

Private Declare Function Reg_Admin Lib "admin.dll" Alias "DllRegisterServer" () As Long
Sub Main()
Call Reg_Admin
...
End Sub


В Windows XP это работает нормально.
Но в Windows 7 отказывается работать. И даже в ручную в Windows 7 при запуске из командной строки

Код: Выделить всё

regsvr32.exe admin.dll

выдаёт такое сообщение: "...не удалось выполнить вызов DllRegisterServer, код ошибки: 0x80004005"

Помогло такое:
1. В Windows 7 открываю ПУСК -> ВСЕ ПРОГРАММЫ -> СТАНДАРТНЫЕ -> Командная строка -> Нажимаю правую кнопку мыши -> Выбираю запустить от имени Администратора.
2. Набираю из командной строки: regsvr32.exe admin.dll и регистрация проходит отлично.

Вопрос: как теперь это реализовать в коде программы?

P.S.: пользователь в Windows 7 имеет права администратора
P.S.2: пробовал в коде программы перед вызовом Reg_Admin включить разрешение работы с системными процессами с привелегией "SeDebugPrivilege", но это не помогло.
P.S.3: странно, что стандартная библиотека VB5 регистрируется в Windows 7 без всяких дополнительных прав, т.е. команда regsvr32.dll msvbvm50.dll работает без проблем, а команда regsvr32.dll admin.dll не работает.
P.S.4: под Vist-ой ещё не проверял, но подозреваю, что там будет происходить тоже самое.

[Хакер]

Чтобы не уложнять жизнь обычным юзерам моя программа может копироваться с одного ПК на другой без переустановки.

О боже. Усложнять жизнь обычным юзерам. Запуск setup.exe так сложен, что его могут осилить только доктора философии в области компьютерных наук. Ну и бред же.

пробовал в коде программы перед вызовом Reg_Admin включить разрешение работы с системными процессами с привелегией "SeDebugPrivilege", но это не помогло.

Логика верная, но причём тут SeDebugPrivilege? Причём тут отладка, возможность копаться в памяти чужих процессов? Разве не логично, что запросив разрешение на право отладки чужих процесов, тебе отказывают в записи в реестр? По-моему, это логично и не удивительно. Запрашивай правильную привилегию, если такая есть.

[Twister]

Судя по всему тут требуется SeTakeOwnershipPrivilege привилегия:

If an administrator needs access to the key, the solution is to enable the SE_TAKE_OWNERSHIP_NAME privilege and open the registry key with WRITE_OWNER access

[ANDLL]

Если какаято привелегия и нужна, процесс ее не сможет получить, потому что у него нет на нее прав.
Есть два способа запускать код под элевацией.
В данных условиях задачи остается только одинспособ - добавить приложению манифест, требующий элевации(гугл)

[Twister]

Если какаято привелегия и нужна, процесс ее не сможет получить, потому что у него нет на нее прав.

Нет-нет. Получить он ее сможет, ибо

P.S.: пользователь в Windows 7 имеет права администратора

[ANDLL]

Нет нет, не сможет потому что

P.S.: пользователь в Windows 7 имеет права администратора

Ибо если пораскинуть, то коль скоро у него все фейлится, значит UAC включен.

[iGrok]

Посколько права требуются только на время регистрации библиотеки, я вот не вижу смысла в манифесте.
Почему не сделать так?
viewtopic.php?f=51&t=38664&p=6711985#p6711985

[Twister]

Ибо если пораскинуть, то коль скоро у него все фейлится, значит UAC включен.

Хм... Ну вот тут ничего сказать не могу - я это гуано сразу отключаю. Вполне может быть и так, что UAC не даст администратору возможности добавить Se-привилегию. Домой доберусь - проверю.

[alibek]

Вполне может быть и так, что UAC не даст администратору возможности добавить Se-привилегию. Домой доберусь - проверю.

После слова "администратору" пропущено "без подтверждения".
А без манифеста запроса подтверждения может и не быть.

[ANDLL]

Алибёк, тут ты не совсем прав. Еще есть elevated com objects, хотя они тут не в тему. Но для них вроде как в манифесте ничего не изменяется.

Кстати, давно хотел спросить, а манифест дейсвтует только на исполняемые файлы, или может быть и у dll свой манифест?

[Twister]

После слова "администратору" пропущено "без подтверждения".
А без манифеста запроса подтверждения может и не быть.

Угу, совершенно верно. Написал маленькую прогу, без манифеста. Запускал под админом. Без UAC спокойно добавляет ключ в HKLM\Software и аджастит привилегию SeTakeOwnershipPrivilege. Со включенным UAC не делает ни того, ни другого, при чем никаких сообщений не отображает.

По теме: имхо, самым правильным решением все-таки было добавить манифест в программу и пытаться получить SeTakeOwnershipPrivilege.

[Antonariy]

Со включенным UAC не делает ни того, ни другого, при чем никаких сообщений не отображает.

Истинно так, наблюдал это на сервере 2008.

[aleksmir]

Судя по всему тут требуется привилегия:SeTakeOwnershipPrivilege

Спасибо, Twister за ссылку на список привилегий. Познавательно. Я про это не знал раньше.
Попробовал все привилегии, в том числе и SeTakeOwnershipPrivilege (см. прикреплённый файл для тестирования).

Не помогло
При установки любой привилегии библиотека в Windows 7 не регистрируется, а в XP регистрируется в большинстве случаев (просто некоторые привилегии в XP не действуют).

[iGrok]

А мой вариант не работает? Или не подходит по идеологическим соображениям?

[aleksmir]

самым правильным решением все-таки было добавить манифест в программу

Я так прочитал примеры про манифест в VB6. Там везде примеры о том, что этот манифест в XP включается контролы, как у XP, а в Windows 98 контролы как в Windows 98. А у меня другая ситуация. А где взять манифест для моей ситуации или он для всех случаев одинаковый? И как правильно его добавить... может быть уже есть опыт у кого-нибудь?

[aleksmir]

А мой вариант не работает? Или не подходит по идеологическим соображениям?

Я по-очереди все варианты пробую Просто перед этим предложили манифест использовать.
Вполне возможно, что твой самый лучший! Я его отложил на потом из предположения, что у тебя в примере немного другая ситуация - там рассматривается ситуация с редактированием реестра, а у меня проблема с запуском функции API из библиотеки.

И вторая причина - не хотелось бы лишних окон и запусков второй копии программы. Предположил, что с манифестом программа будет запускаться без дополнительных сообщений.

К тому же интересно - почему msvbvm50.dll в Windows 7 регистрируется без проблем, а моя admin.dll только через запуск от имени администратора?
Может быть в admin.dll можно что-то такое добавить (какой-будь файл лицензии или сертификат какой-нибудь), чтобы он регистрировался также без проблем как msvbvm50.dll ?

[Хакер]

http://www.google.ru/search?q=requestedPrivileges

[Dmitriy2003]

http://www.withinwindows.com/2009/02/04/windows-7-auto-elevation-mistake-lets-malware-elevate-freely-easily/

[aleksmir]

Я чего-то с этим манифестом совсем туплю. Попробовал создать файл name.exe.manifest - не срабатывает всё-равно.

Может у кого-нибудь завалялся хоть какой-нибудь реально работающий пример?

[jangle]

К тому же интересно - почему msvbvm50.dll в Windows 7 регистрируется без проблем, а моя admin.dll только через запуск от имени администратора?

Начиная с Win2000 msvbvm50/60.dll это системные библиотеки входящие в состав ОС

[BV]

На месте автора, я бы не страдал ерундой, а создал бы простенькую установку, на том же Inno Setup, с манифестом, запрашивающим права администратора.

[aleksmir]

На месте автора, я бы не страдал ерундой, а создал бы простенькую установку, на том же Inno Setup, с манифестом, запрашивающим права администратора.

Мне вообще эти ActiveX нахрен не нужны.

Это мои же библиотеки, которые идут вместе с программой только для того чтобы поделить программу на модули, чтобы exe-файл компилировался быстрее и был меньше размером.

Почему в VB5 не реализовали использование обычных статических DLL, вообще не понятно.

С этими ActiveX столько е...ни, которую Microsoft сама себе придумала, а теперь сама же их и блокирует.

[Хакер]

Почему в VB5 не реализовали использование обычных статических DLL, вообще не понятно.

Потому что это не безопасно. Никто не гарантирует бинарную совместимость используемого и использующего.

С этими ActiveX столько е...ни, которую Microsoft сама себе придумала, а теперь сама же их и блокирует.

У нас мат запрещён, включая криптованный. Замечание.

[aleksmir]

Потому что это не безопасно. Никто не гарантирует бинарную совместимость используемого и использующего.

Да они и так несовместимые. Всё-равно их перекомпилировать приходится каждый раз, несмотря на включенную проверку бинарной совместимости. Какой-нибудь нет нет да сглючит потом у клиента. Поэтому и приходится все библиотеки по-новой перекомпилировать, чтобы не краснеть потом у заказчика.
А вот статические DLL как раз бы подошли для этого случая. За совместимостью уж лучше бы я следил, а не Microsoft.

У нас мат запрещён, включая криптованный. Замечание.

Хорошо не буду.

[Денис]

А вот статические DLL как раз бы подошли для этого случая.

1. Делать статические библиотеки на PowerBasic, Delphi или С, а в VB декларировать функции из них.
2. Между прочим, админ Хакер, выписавший Вам замечание, написал как-то продукт FireNativeDLL, который может Вам помочь писать библиотеки прям на VB.

Но вообще, хочу Вам напомнить, что через ActiveX Вы сохраняете не просто функции и процедуры, а классы объектов! А это уже совершенно иной уровень абстракции. Если грамотно этим механизмом пользоваться, то можно контролировать и проблемы совместимости и решать еще кучу задач, нереальных в функциональном программировании.