[GUFA] Saber si mi usuario es Administrador desde Codigo

Fri, 15 May 2015 15:04:55 -0700 

Grupo,

Les comparto esta funcion que acabo de armar basada en un ejemplo que
encontre hecho en visual basic.

#Define PERMISO_LECTURA   0x80000000
#Define PERMISO_ESCRITURA 0x40000000
#Define PERMISO_EJECUCION 0x20000000
LOCAL lnManager
DECLARE Integer OpenSCManager in Advapi32.dll Integer,Integer,Integer
DECLARE Integer CloseServiceHandle in Advapi32.dll Integer
lnManager=OpenSCManager(0,0,PERMISO_LECTURA+PERMISO_ESCRITURA+PERMISO_EJECUCION)

if lnManager#0
    CloseServiceHandle(lnManager)
ENDIF
RETURN (lnManager>0)

Saludos,

Pancho
Córdoba
Argentina

Responder a