Detect if the current user is Administrator

[codemaker]

Before start some function in my programs, sometimes I would like to know if the current user is ADMINISTRATOR or belongs to ADMINISTRATORS
Is there any way to accomplish this?
Because then, if the user is not an ADMINISTARTOR, I would deny to allow him to run some part of the program

Thanks

[ukoenig]

Maybe You are using a LOGIN ?

I added a Permission-level to the LOGIN ( encrypted )

like : Login_1 ( _1 to _5 is the level )
from the encrypted Login I save the _? Level to a global Var.

1. Administrator
2. can write and delete
3. can only read
4. cannot load Function 1
5. cannot load Function 2

Next I call the Function related to the Level like :
IF LEVEL > 4 ( low Level )
MsgAlert( "No Permission for this Action","LOCKED" )
ELSE
MY_FUNCTION()
ENDIF

Best Regards
Uwe

[ADutheil]

You can run the command "whoami /groups" and treat the result to find out if the user belongs to the group you are looking for. If your are using XP you can do the same with "net user %USERNAME%".

[anserkk]

Please try this code

Code: Select all  Expand view

#include "FiveWin.ch"
//------------------//
FUNCTION Main()
    MsgInfo( IsUserAnAdmin() ) // Returns either .T. or .F.
Return  
DLL32 STATIC FUNCTION IsUserAnAdmin() AS BOOL PASCAL LIB "Shell32.dll"

Regards
Anser

[codemaker]

Thanks,

I am using "anselkk" suggestion and it works for me.