как да разбера дали юзера е админ?

2 отговора 113 прегледа
#1

как да разбера дали юзера е админ?

как да разбера дали юзера който използва програмата ми (т.е текущо логнатия юзер) има права на администратор [2000/XP]?
Искам ако юзера не е админ да му покажа msgbox че трябва да се логне като админ.
Намерих разни примери обаче не винаги работят - например ако username e administrator но всъщност тоя юзер няма правата на администратор, се получава боза.
Хелп !
F1 !

thnx!

Отговор
в отговор на microsoft #2

Re: как да разбера дали юзера е админ?

Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long


Private Sub Form_Load()


Dim bIsAdmin As Boolean

bIsAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&))

end sub


Отговор
в отговор на ToViDebne #3

Re: как да разбера дали юзера е админ?

thnx!
това работи ОК

Отговор