XProfan

DEF @CheckTokenMembership(3) !"advapi32","CheckTokenMembership"
DEF @GetProcAddress(2) !"KERNEL32","GetProcAddress"
DEF @GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
Declare Member&,SID#,MHANDLE&,Module$,Funktion$
LET MODULE$=$SYSPATH+"Advapi32.DLL"
LET Funktion$="CheckTokenMembership"
LET MHANDLE&=@GetModuleHandle(@ADDR(Module$))

IF @GetProcAddress(MHANDLE&,@ADDR(FUNKTION$))<>0

    DIM SID#,16
    LONG SID#,0=513
    LONG SID#,4=83886080
    LONG SID#,8=32
    LONG SID#,12=544
    @CheckTokenMembership(0,SID#,@ADDR(Member&))

    IF Member&=1

        @Messagebox("Du bist auf deinem Rechner ein Administrator!","Admincheck",64)

    else

        @Messagebox("Du hast keine Administratorrechte!","Admincheck",64)

    endif

    DISPOSE SID#

else

    @MESSAGEBOX("Falsche Windowsversion","Son Scheiß!",64)

endif