| |
| |
|
 |
Beschreibung:
CheckTokenMembership überprüft, si qui SID einer Gruppe dans einem Token vorhanden et aktiv ist. cet Funktion gibt es seulement sous Windows2000 et XP.
Deklaration:
DEF @CheckTokenMembership(3) !advapi32,CheckTokenMembership
paramètre:
 1.paramètre: Handle eines Access Tokens ou bien 0, pour den Token des aktuellen Prozesses.
2.paramètre: Bereichsvariable avec einer SID Struktur einer Gruppe.
3.paramètre: 4 Byte Bereichsvariable ou bien qui Adresse einer LongIntvariablen, qui une Flag aufnimmt, qui angibt si qui dans paramètre 2 angegebene Gruppe im Token aktiv ist. =>
-$1 = Gruppe ist vorhanden et aktiv.
- $0 = Gruppe ist pas vorhanden ou bien inaktiv.
Rückgabewert:
0 chez faute, andernfalls <>0.
Beispiele:
KompilierenMarqueSéparationDEF @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 vorhanden aktiv aktiviert Rechte Privilegien Admin Administrator Administratoren System
[/keywords:d12e752cea] |
|
| |
| |
| |
|
(901)
Deutsch
English
Français
Español
Italia