 |
Descripción:
CheckTokenMembership überprüft, si el SID uno Gruppe en un Token disponible y aktiv es. Diese Función hay sólo bajo Windows2000 y XP.
Deklaration:
DEF @CheckTokenMembership(3) !advapi32,CheckTokenMembership
Parámetro:
 1.Parámetro: Handle uno Access Tokens oder 0, para el Token des aktuellen Prozesses.
2.Parámetro: Bereichsvariable con uno SID Struktur uno Gruppe.
3.Parámetro: 4 Byte Bereichsvariable o Adresse uno LongIntvariablen, el una Flag aufnimmt, el angibt si el en Parámetro 2 angegebene Gruppe en el Token aktiv es. =>
-$1 = Gruppe es disponible y aktiv.
- $0 = Gruppe es no disponible oder inaktiv.
Rückgabewert:
0 en Fehler, de otra manera <>0.
Beispiele:
KompilierenMarcaSeparaciónDEF @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
[keywords:d12e752cea]
Token Gruppenzugehörigkeit Gruppe disponible aktiv aktiviert Rechte Privilegien Admin Administrator Administratoren Sistema
[/keywords:d12e752cea] |
|
(759)
Deutsch
English
Français
Español
Italia