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 function$="CheckTokenMembership"
Let Mhandle&=@Getmodulehandle(@Addr(Module$))

If @Getprocaddress(Mhandle&,@Addr(function$))<>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 are on your computer one Administrator!","Admincheck",64)

    Else

        @Messagebox("Du have none Administratorrechte!","Admincheck",64)

    Endif

    Dispose Sid#

Else

    @Messagebox("Falsche Windowsversion","So'n Scheiß!",64)

Endif

end