XProfan

Italia

Jac
de
Lad

Ciao,

wie kann man in XProfan rausfinden, ob der aktuelle Benutzer Admin ist, zu welchen Benutzergruppen er gehört bzw. ob er einer bestimmten 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 Citazione Zeilenweise Citazione

ToM

Hi!

Wie man rausfindet ob man zu Admin Gruppe gehört ist leicht, probier einfach die
svchost.exe zu beenden. wenns geht bist admin, ansonsten User oda so.
svchost.exe startet sich eh automatisch neu. denke das is egal wenn 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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Ist das nicht ganz schön herb einen Prozess zu beenden um rauszufinden ob man Admin ist? Da muss es doch andere, konventionellere Methoden 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 Citazione Zeilenweise Citazione

Alfred
Wagner

Hallo Jac meinst du sowas
Kompilieren Markieren Separieren

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

Ich glaube der Code stammt von Andreas Hötker

Grüße

Alfred mit Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

25.06.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Das sieht ganz danach aus. Ich konnte es zwar noch nicht ausprobieren, mache ich aber gleich!

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

25.06.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Kompilieren Markieren Separieren

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