XProfan

Français

Jac
de
Lad

Salut,

comment peux on dans XProfan rausfinden, si qui aktuelle Benutzer Admin ist, trop welchen Benutzergruppen il est bzw. si il un certain 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 citation

Absatzweise Citation Zeilenweise Citation

ToM

Hi!

comment on rausfindet si on trop Admin Gruppe est ist léger, probier simple qui
svchost.exe trop finissons. wenns allez es admin, ansonsten User oda so.
svchost.exe startet sich eh automatisch récente. denke cela is égal si mans so löst.

mfg tom

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

21.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Ist cela pas entier joli herb une Prozess trop finissons um rauszufinden si on Admin ist? là muss es doch autre, konventionellere Methoden donner...quand même merci!

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 citation

Absatzweise Citation Zeilenweise Citation

Alfred
Wagner

allô Jac meinst du quelque chose comme
Kompilieren Marque Séparation

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

je crois qui Code stammt de Andreas Hötker

Grüße

Alfred avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

25.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

cela sieht entier après aus. je konnte es zwar encore pas ausprobieren, fais je mais juste!

merci,
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 citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

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