Проверка прав пользователя в системе

[VinS]

Нужно проверить под какими правами пользователь в системе.
если админ - действие 0
если опытный юзер - действие 1
если просто юзер - действие 2.

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

[tyomitch]

Проверить на вхожесть в группы.
Делфийский код есть на http://delphi.about.com/od/delphitips20 ... _admin.htm
Есть проблемы с переводом?

[VBTerminator]

Да (я Делфи не знаю, а такую возможность тоже реализовать хочется)

[tyomitch]

Там нет никакой делфийской специфики, чистый API.

Ты хоть посмотрел на код, прежде чем сказать, что он непонятен?

[MIT]

Сугубо мое мнение: уровень "понятности" ~ 86%
Не понял

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

const
  SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5)) ;

[tyomitch]

http://support.microsoft.com/kb/288900
How To Use Visual Basic to Construct a Well-Known SID


FTR, непонятый код -- это литерал-UDT, в VB таких нет; нужно заполнять UDT по одному полю.
Т.е. просто присвоить пятёрку последнему, потому что в остальных нули будут по умолчанию.

[awl100Alex]

VinS
Есть еще такой пример из MSDN...

[Sebas]

Public ReadOnly Property Groups() As System.Security.Principal.IdentityReferenceCollection
Member of System.Security.Principal.WindowsIdentity
Summary:
Gets the groups the current Windows user belongs to.

[Хакер]

Sebas, ты разделом ошибся

[Sebas]

Sebas, ты разделом ошибся

Ага, чёт меня проглючило)