XProfan

Español

Jac
de
Lad

¡Hola,

como puede ser en XProfan rausfinden, si el aktuelle Benutzer Admin es, a welchen Benutzergruppen él gehört o. si él una cierta Gruppe angehört???

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

17.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

ToM

Hi!

Como uno rausfindet si uno a Admin Gruppe gehört es ligeramente, probier simplemente el
svchost.exe a final. wenns va bist admin, ansonsten User oda así.
svchost.exe startet se eh automáticamente neu. denke el is egal si mans así löst.

mfg tom

AMD Athlon 64 4500+ / 1500 MB Ram / Windows Server 2003 Enterprise / Profan 7.0

21.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Ist el no bastante schön herb una Prozess a final en rauszufinden si uno Admin es? Como muss lo doch otro, konventionellere Métodos geben...trotzdem danke!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

22.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Alfred
Wagner

¡Hola Jac media du algo como
Kompilieren Marca Separación

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

Yo glaube el Code stammt de Andreas Hötker

Grüße

Alfred con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

25.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Das sieht bastante danach de. Yo podría lo zwar todavía no ausprobieren, mache Yo aber igual!

Gracias,
Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

25.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

Def OpenSCManager(3) !"Advapi32.dll", "OpenSCManagerA"
Def CloseServiceHandle(1) !"Advapi32.dll", "CloseServiceHandle"
Def &SC_MANAGER_ALL_ACCESS 983055

Proc IsAdmin

    Declare Result&
    Result& = OpenSCManager(0, 0, &SC_MANAGER_ALL_ACCESS)

    If Result&

        CloseServiceHandle(Result&)
        Return 1

    EndIf

    Return 0

EndProc

Print IsAdmin()
WaitKey