Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Определение админских привилегий пользователя в системе / 11 сообщений из 11, страница 1 из 1
02.05.2018, 12:12
    #39638935
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Нашел тут на сайте VBStreets код, который позволяет определить, является ли админом пользователь, вошедший в систему
Код можно посмотреть здесь

Что интересно.
В Access 2003 код великолепно работает, а в 2010 вылетает. Без всяких сообщений об ошибках (в операторах). Просто идёт на перезагрузку Access и предлагает послать сообщение в Microsoft.

Windows 7 - 32 bit и Windows Server 2008 R2.

Access 2010 - 32 bit 14.0.4750.1000

Access 2003 11.8321.8405 SP3

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2018, 14:06
    #39638985
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Да, действительно падает и 2010 и 2016. Падает на функции FreeSidю Если закомментить, то работает, но память не освобождается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2018, 15:57
    #39639015
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Проверил сейчас ещё на версии 2007. Такой же вылет на функции FreeSid.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2018, 16:32
    #39639027
Прогер_самоучка
Прогер_самоучка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
C:\Windows\System32
VS
C:\Windows\SysWOW64(или где там у вас вторая библиотека)

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2018, 16:39
    #39639032
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Лично у меня Windows 7 (32 bit). На одной и той же машине, в одной и той же ОС программа под Access 2003 отрабатывает нормально, Под Access 2010 вылетает. (правда Access 2003 portable)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2018, 16:50
    #39639039
Прогер_самоучка
Прогер_самоучка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
JossЛично у меня Windows 7 (32 bit). На одной и той же машине, в одной и той же ОС программа под Access 2003 отрабатывает нормально, Под Access 2010 вылетает. (правда Access 2003 portable)так нужно понять откуда дёргает dll'ку Access 2010 и откуда дёргает Access 2003.
В каких местах у вас библиотека?
У меня на компе, например, аж в 4-х местах dll'ка...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2018, 08:39
    #39639166
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Ну что сказать? Поскольку у меня система 32-х битная, то DLL содержится только в одном месте - c:\Windows\System32\advapi32.dll
Её версия 6.1.7601.23807 от 30.06.2017
В архиве хранятся ещё 8 версий. В каталогах c:\Windows\winsxs\x86_microsoft-windows-advapi32_... начиная от 6.1.7601.17514 от 20.11.2010
Вряд ли 2003 шарится по архивам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2018, 09:50
    #39645893
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Продолжаю разбираться с программой. Попробовал адаптировать её под VBA7. Поправил Вызовы функций.

Оказалось что
VBA6
Код: vbnet
1.
2.
3.
4.
    Declare Function IsValidSid Lib "Advapi32" (ByVal pSid As Long) As Long
        Dim psidAdmin           As Long
        ...
                If IsValidSid(psidAdmin) Then ' даёт 1 - TRUE


VBA7
Код: vbnet
1.
2.
3.
4.
    Declare PtrSafe Function IsValidSid Lib "advapi32.dll" (pSid As Any) As Long
        Dim psidAdmin           As Long
        ...
                If IsValidSid(psidAdmin) Then ' даёт 0 - FALSE


И как с этим бороться?

Проверялось на Access 2010 32 бит под Windows 7 32 бит
Менял только вызовы функций AP{ - больше ничего не менял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2018, 15:51
    #39646214
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Вот максимально упрощенная программа. Работает и функции FreeSidю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2018, 15:55
    #39646221
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
А если отключить функции FreeSidю, то заработает и в VBA7. Вечером проверю на 64 битном варианте Access.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.05.2018, 11:37
    #39646602
Joss
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение админских привилегий пользователя в системе
Проверил под Access 64-bit - работает.

Продолжил копать дальше. Вот здесь наткнулся на упоминание функции IsUserAnAdmin из библиотеки Shell32 .
MSDN говорит следующее
Эта функция является оберткой для CheckTokenMembership . Рекомендуется вызвать эту функцию напрямую, чтобы определить статус группы администратора, а не вызвать IsUserAnAdmin .

Определение функции
Код: vbnet
1.
Public Declare Function IsUserAdmin Lib "Shell32" Alias "IsUserAnAdmin" () As Boolean


В интернете я встречал и вот такой вызов
Код: vbnet
1.
Public Declare Function IsUserAnAdmin Lib "Shell32" Alias "#680" () As Boolean


Проверено для Windows 7 и Windows Server 2008 R2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Определение админских привилегий пользователя в системе / 11 сообщений из 11, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 155ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1611432]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 13ms
total:  155ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]