User или Админ?

[jangle]

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

[Хакер]

или право имеет

На что?

См. http://msdn.microsoft.com/en-us/library ... 85%29.aspx .

[hclubmk]

На что?

Исходя из заголовка треда: кого?
IsNTAdmin

[Хакер]

Исходя из заголовка треда: кого?

Права распространяются на действия, а действия — неодушевлённые, так что «на что».

IsNTAdmin

Нет такой WinAPI-функци.

[Antonariy]

Гугл какую-то ерунду выдает.

Потому что ерунду спрашиваешь.
По-русски правильный запрос выглядит так: "проверить, входит ли пользователь в группу "администраторы".
Владеть терминологией — круто.

[jangle]

На что?

См. http://msdn.microsoft.com/en-us/library ... 85%29.aspx .

Право на установку софта

[jangle]

Исходя из заголовка треда: кого?
IsNTAdmin

Cпасибо hclubmk! Помучив Гугл твоим IsNTAdmin`ом все таки нашел искомую функцию.

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

Declare Function IsUserAdmin Lib "setupapi.dll" () As Long

P.S. Надо мне пить ноотропил

[hclubmk]

Права распространяются на действия

Права предоставляются субъектам

Нет такой WinAPI-функци.

Фантом

[jangle]

IsNTAdmin не работает в Висте. Поэтому ее нельзя использовать.

[Хакер]

Права предоставляются субъектам

Да перечитай ты уже сначала и посмотри контекст.

Фантом

Кого волнуют недокументированные функции?

jangle
Тебе не судьба пройти по ссылке которую я дал и в писке функций найти CheckTokenMembership?

[jangle]

jangle
Тебе не судьба пройти по ссылке которую я дал и в писке функций найти CheckTokenMembership?

Выходит права пользователя можно выяснить разными путями. Мне это собственно нужно, чтобы запускать msi`айник из кода в фоновом режиме.

Инсталляция: msiexec /package c:\mysoft.msi /quiet /le+ install_log.txt
Деинсталляция: msiexec /uninstall {e0e75a67-0f6b-4c27-8071-1dd45e4778a2} /quiet /le+ uninstall_log.txt

Если права админа отсуствуют, программа должна ругнутся, что мол вы не имеете права на установку софта.

[hclubmk]

Хакер - так?

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

Private Type SID_IDENTIFIER_AUTHORITY
  Value(6) As Byte
End Type

Private Declare Function CheckTokenMembership Lib "advapi32.dll" _
  (ByVal pTokenHandle As Long, ByVal pSidToCheck As Long, ByRef bIsMember As Boolean) As Long

Private Declare Function AllocateAndInitializeSid Lib "advapi32.dll" _
  (pIdentifierAuthority As SID_IDENTIFIER_AUTHORITY, _
   ByVal nSubAuthorityCount As Byte, _
   ByVal nSubAuthority0 As Long, _
   ByVal nSubAuthority1 As Long, _
   ByVal nSubAuthority2 As Long, _
   ByVal nSubAuthority3 As Long, _
   ByVal nSubAuthority4 As Long, _
   ByVal nSubAuthority5 As Long, _
   ByVal nSubAuthority6 As Long, _
   ByVal nSubAuthority7 As Long, _
   lpPSid As Long) As Long

Private Declare Sub FreeSid Lib "advapi32.dll" (pSid As Any)

Public Function IsUserAnAdmin() As Boolean
 
  On Error Resume Next
 
  Dim IsAdmin As Boolean
  Dim NtAuthority As SID_IDENTIFIER_AUTHORITY
  NtAuthority.Value(5) = &H5
   
  Dim pSidAdministratorsGroup As Long
  IsAdmin = AllocateAndInitializeSid(NtAuthority, 2, &H20&, &H220&, 0, 0, 0, 0, 0, 0, pSidAdministratorsGroup)
  If IsAdmin Then
    Dim Result As Long
    Result = CheckTokenMembership(0, pSidAdministratorsGroup, IsAdmin)
    If Result = 0 Then IsAdmin = False
    FreeSid pSidAdministratorsGroup
  End If
 
  IsUserAnAdmin = IsAdmin

End Function