| Вопрос: Тип пользователя | Добавлено: 01.11.05 15:52 |
Автор вопроса:  astoro | ICQ: 649109 |
|
Как программно можно узнать тип аккаунта пользователя.
Администратор, простой, продвинутый, или кто. Важно знать, имеет ли текущий пользователь право регистрировать библиотеки, инсталлировать программы и прочь... |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 01.11.05 17:04 |
| Можно покопаться в GetUserName и LookupAccountName. | ||
|
Номер ответа: 2 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 01.11.05 21:12 |
|
Private Sub AdminChack_Click() If IsAdmin <> 0 Then MsgBox "Admin!" Else MsgBox "NOT Admin!" End If End Sub Function IsAdmin() As Long 'function IsAdmin retrieves a non-zero value if user is an 'administrator. otherwise it retrieves zero. '''''''''''''''''''' 'By Morpheus  '''''
'''''''''''''''''''' If MsgBox("Are you an admin?", vbQuestion + vbYesNo) = vbYes Then IsAdmin = True Else IsAdmin = False End If End Function |
||
|
Номер ответа: 3 Автор ответа:  «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #3 | Добавлено: 01.11.05 21:20 |
|
2 Morpheus:
Private Sub ImAdmin_Click()
MsgBox "I am Admin?", vbQuestion + vbOkOnly, "" MsgBox "Yes, you are!", vbInformation + vbOkOnly, "" End Sub Xury, как тебе вариант?
|
||
|
Номер ответа: 4 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #4 | Добавлено: 01.11.05 21:24 |
|
... + к ^
' Dangersoft Systems (C)
' GetAdministatorState ' Use with your own mind |
||
|
Номер ответа: 5 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #5 | Добавлено: 01.11.05 21:30 |
|
не скорее так:
'function retrieves a non-zero value IF USER CONSIDERS HIMSELF TO BE AN ADMINISTRATOR
|
||
|
Номер ответа: 6 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #6 | Добавлено: 02.11.05 06:22 |
|
Спасибо флудерам.
LOL натолкнул меня на API-Guide, и вот ответ: Option Explicit Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long Private Sub Form_Load() 'KPD-Team 2001 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net  ebug.Print "Are you an Administrator? " & CBool(IsNTAdmin(ByVal 0&, ByVal 0& )
End Sub |
||
|
Номер ответа: 7 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #7 | Добавлено: 02.11.05 10:32 |
|
Спасибо флудерам
Не дуйся, я тут для тебя интерестную ссылку по интересующей тебя теме нашел.. http://www.rsdn.ru/article/qna/baseserv/privedit.xml |
||
|
Номер ответа: 8 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #8 | Добавлено: 02.11.05 10:34 |
|
б*я, я вот-эту ссылку имел ввиду
http://www.all-net.ru/Library/Articles/Programming/BaseService/Security/IsUsrAdm/ |
||
|
Номер ответа: 9 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #9 | Добавлено: 02.11.05 14:33 |
|
Спасибо
В это связи, есть вопрос: А кто-нибудь знает где можно почитать про такие вот API функции, которых нет в API-Guide. (может он у меня устарел? или его забросили? я нажимаю обновление, - он говорит, что обновлений нет...) |
||
|
Номер ответа: 10 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #10 | Добавлено: 02.11.05 14:42 |
|
или его забросили?
http://www.mentalis.org/goodbye/ где можно почитать про такие вот API функции, которых нет в API-Guide.
http://msdn.microsoft.com/library |
||
Страница: 1 |