XProfan

Español

Was son folgender Ver código fuente bajo XP-Home y Pro para Invitado y para Administratoren en el Editbox zurück???
Kompilieren Marca Separación

DEF @LsaOpenPolicy(4) !"advapi32","LsaOpenPolicy"
DEF @LsaClose(1) !"advapi32","LsaClose"
DEF @LsaNtStatusToWinError(1) !"advapi32","LsaNtStatusToWinError"
DEF @LsaEnumerateAccountRights(4) !"advapi32","LsaEnumerateAccountRights"
DEF @MultiByteToWideChar(6) !"kernel32","MultiByteToWideChar"
DEF @LookupAccountName(7) !"advapi32","LookupAccountNameA"
DEF @GetACP(0) !"kernel32","GetACP"
DEF @CopyMemory(3) !"kernel32","RtlMoveMemory"
DEF @WideCharToMultiByte(8) !"kernel32","WideCharToMultiByte"
DEF @LsaFreeMemory(1) !"advapi32","LsaFreeMemory"
Declare Fehler&,UNICODE#,Attribut#,POLICY_Handle#
Declare Policy_Handle&,PrivilegSET#,PRIVILEG#
Declare SID#,DOMAIN#,SID_TYPE_INDICATOR#,DOMAIN#,Attribut#,ALLPRIVS#,COUNT#,SID#,DOMAINNAME_SIZE_ADDR#
Declare SYSTEM$,DOMAIN$,SID_Size#,Account$
Declare PrivPointer#,ComparePriv#,Zähler%,Länge%,Zeiger&
Struct LSA_UNICODE_STRING=Length%,MaximumLength%,Buffer&
DIM UNICODE#,LSA_UNICODE_STRING
Clear UNICODE#
Struct LSA_OBJECT_ATTRIBUTES=Length&,RootDirectory&,Length%,MaximumLength%,Buffer&,Attributes&,SecurityDescriptor#(4),SecurityQualityOfService#(4)
DIM Attribut#,LSA_OBJECT_ATTRIBUTES
Clear Attribut#
Dim PrivPointer#,4
DIM ALLPRIVS#,2000
DIM COUNT#,4
DIM DOMAIN#,256
DIM SID#,800
DIM SID_Size#,4
DIM DOMAINNAME_SIZE_ADDR#,4
DIM SID_TYPE_INDICATOR#,256
DIM POLICY_Handle#,4
DIM PRIVILEG#,100
DIM PrivilegSET#,100
DIM ComparePriv#,100
Windowstyle 31
Windowtitle "Einem Account das Privileg zum Ändern der Systemzeit hinzufügen."
Window 0,0-640,440
CLEAR SID#,DOMAIN#,SID_TYPE_INDICATOR#,DOMAIN#,Attribut#,ALLPRIVS#,COUNT#,SID#,DOMAINNAME_SIZE_ADDR#
Long SID_Size#,0=800
LONG DOMAINNAME_SIZE_ADDR#,0=255
LET SYSTEM$=""
LET ACCOUNT$=@input$("Accountnamen eingeben (kein Alias):","Account","Gast")
LET Fehler&=@LookupAccountName(@ADDR(System$),@addr(ACCOUNT$),SID#,SID_Size#,DOMAIN#,DOMAINNAME_SIZE_ADDR#,SID_TYPE_INDICATOR#)
Print "Rückmeldung von LookupAccountName="+@STR$(Fehler&)

If Fehler&=1

    LET Fehler&=@LsaOpenPolicy(0,Attribut#,$10 | $0800,POLICY_Handle#)
    Print "Rückmeldung von LsaOpenPolicy="+@STR$(Fehler&)
    Let Fehler&=@LsaNtStatusToWinError(Fehler&)
    PRINT "LsaOpenPolicy Rückmeldung umgewandelt in Windows Fehlercode="+@STR$(Fehler&)
    LET Policy_Handle&=@LONG(POLICY_Handle#,0)
    Print "Geliefertes Handle="+@STR$(Policy_Handle&)

    IF Fehler&=0

        Clear PrivPointer#
        Clear ALLPRIVS#
        LET Fehler&=@LsaEnumerateAccountRights(Policy_Handle&,SID#,PrivPointer#,Count#)
        Print "Rückmeldung von LsaEnumerateAccountRights="+@STR$(Fehler&)
        Let Fehler&=@LsaNtStatusToWinError(Fehler&)
        PRINT "LsaEnumerateAccountRights Rückmeldung umgewandelt in Windows Fehlercode="+@STR$(Fehler&)
        PRINT "Anzahl der Privilegien: "+@str$(@long(COUNT#,0))
        Case FEHLER&=0 : @CopyMemory(ALLPRIVS#,@LONG(PrivPointer#,0),1998)

        WHILENOT Zähler%=@long(COUNT#,0)

            Clear PrivilegSet#
            Clear ComparePriv#
            Let Länge%=@Word(ALLPRIVS#,8*Zähler%)
            LET Zeiger&=@Long(ALLPRIVS#,8*Zähler%+4)
            @CopyMemory(ComparePriv#,Zeiger&,Länge%)
            Let Fehler&=@WideCharToMultiByte(@GetACP(),0,ComparePriv#,@INT(LÄnge%/2),PrivilegSet#,100,0,0)
            Print "Rückmeldung von WideCharToMultiByte="+@STR$(Fehler&)
            Addstring @String$(PrivilegSet#,0)
            inc Zähler%

        Wend

        LET FEHLER&=@LsaFreeMemory(@LONG(PrivPointer#,0))
        LET Fehler&=@LsaClose(Policy_Handle&,0)
        Print "Rückmeldung von LsaClose="+@STR$(Fehler&)
        Let Fehler&=@LsaNtStatusToWinError(Fehler&)
        PRINT "LsaClose Rückmeldung umgewandelt in Windows Fehlercode="+@STR$(Fehler&)
        @EDITBOX("Gefundene Privilegien...",1)

    Endif

endif

Dispose PrivPointer#
Dispose POLICY_Handle#
Dispose ALLPRIVS#
Dispose COUNT#
Dispose DOMAIN#
Dispose SID#
Dispose SID_Size#
Dispose DOMAINNAME_SIZE_ADDR#
Dispose SID_TYPE_INDICATOR#
Dispose POLICY_Handle#
Dispose PRIVILEG#
Dispose PrivilegSET#
Dispose ComparePriv#

While 0=0

    Waitinput

Wend

Und qué es en folgendem Ver código fuente bajo XP en el Editbox?
Kompilieren Marca Separación

DEF @OpenProcessToken(3) !"advapi32","OpenProcessToken"
DEF @GetTokenInformation(5) !"advapi32","GetTokenInformation"
DEF @GetCurrentProcess(0) !"kernel32","GetCurrentProcess" Ermittel el Handle des aktiven Prozesses.
DEF @CloseHandle(1) !"kernel32","CloseHandle" Schließt una Handle (Programa).
DEF @GetLastError(0) !"kernel32","GetLastError" Liefert letzten API Fehler.
DEF @LookupAccountSid(7) !"ADVAPI32","LookupAccountSidA"
DEF @IsValidSid(1) !"ADVAPI32","IsValidSid"
DEF @LookupPrivilegeName(4) !"advapi32","LookupPrivilegeNameA" Ermittelt de el Luid uno Privilegs dessen Namen.
DEF @CopyMemory(3) !"kernel32","RtlMoveMemory"
DEF @GetLengthSid(1) !"advapi32","GetLengthSid"
Declarar Token#,Token&,PSID#,Erforderlich#,Zähler2&,SIDFlags&
Declarar Erforderlich&,Fehler&,PSID&,Sistema$,Zähler&,Atributos$
Declarar ACCOUNT_NAME#,SIZE_ACCOUNT#,Domain#,SIZE_DOMAIN#,SID_NAME_USE#
Declarar User$,PRIVLUID#,SID_STRUC#
Windowstyle 31
Título de la ventana "Informationen en el aktuellen Token"
Ventana 0,0-%MAXX,%MAXY-40
DIM Token#,4
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
LET Fehler&=@OpenProcessToken(@GetCurrentProcess(),$8,Token#)
ADDSTRING "Fehlercode OpenProcessToken="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Let Token&=@LONG(Token#,0)
Disponer Token#
ADDSTRING "Handle des Token="+@STR$(Token&)
DIM Erforderlich#,4
DIM PSID#,1
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,1,PSID#,1,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Addstring "Erforderliche Bufferlänge="+@STR$(@LONG(Erforderlich#,0))
Let Erforderlich&=@LONG(Erforderlich#,0)
Disponer PSID#
DIM PSID#,Erforderlich&
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,1,PSID#,Erforderlich&,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
DIM ACCOUNT_NAME#,256
DIM SIZE_ACCOUNT#,4
DIM Domain#,256
DIM SIZE_DOMAIN#,4
DIM SID_NAME_USE#,4
Claro SID_NAME_USE#
Claro ACCOUNT_NAME#
Claro Domain#
Largo SIZE_ACCOUNT#,0=255
LONG SIZE_DOMAIN#,0=255
LET Sistema$=""
LET FEHLER&=@LookupAccountSid(@ADDR(Sistema$),@LONG(PSID#,0),ACCOUNT_NAME#,SIZE_ACCOUNT#,Domain#,SIZE_DOMAIN#,SID_NAME_USE#)
ADDSTRING "Fehlercode LookupAccountSid="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
ADDSTRING "Eigentümer des Token="+@String$(ACCOUNT_NAME#,0)
Imprimir "Eigentümer des Token="+@String$(ACCOUNT_NAME#,0)
LET USER$=@String$(ACCOUNT_NAME#,0)
Disponer PSID#
DIM PSID#,1
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,1,PSID#,1,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Addstring "Erforderliche Bufferlänge="+@STR$(@LONG(Erforderlich#,0))
Let Erforderlich&=@LONG(Erforderlich#,0)
Disponer PSID#
DIM PSID#,Erforderlich&
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,1,PSID#,Erforderlich&,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Claro SID_NAME_USE#
Claro ACCOUNT_NAME#
Claro Domain#
Largo SIZE_ACCOUNT#,0=255
LONG SIZE_DOMAIN#,0=255
LET Sistema$=""
LET FEHLER&=@LookupAccountSid(@ADDR(Sistema$),@LONG(PSID#,0),ACCOUNT_NAME#,SIZE_ACCOUNT#,Domain#,SIZE_DOMAIN#,SID_NAME_USE#)
ADDSTRING "Fehlercode LookupAccountSid="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
ADDSTRING "Durch el Token personifizierter User="+@String$(ACCOUNT_NAME#,0)
Imprimir "Durch el Token personifizierter User="+@String$(ACCOUNT_NAME#,0)
Disponer PSID#
DIM PSID#,1
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,8,PSID#,1,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Addstring "Erforderliche Bufferlänge="+@STR$(@LONG(Erforderlich#,0))
Let Erforderlich&=@LONG(Erforderlich#,0)
Disponer PSID#
DIM PSID#,Erforderlich&
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,8,PSID#,Erforderlich&,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)

IF @Largo(PSID#,0)=$1

    ADDSTRING "Art des Token=Primärer Token"

elseif @Largo(PSID#,0)=$2

    ADDSTRING "Art des Token=Impersonation Token"

endif

Disponer PSID#
DIM PSID#,1
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,4,PSID#,1,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Addstring "Erforderliche Bufferlänge="+@STR$(@LONG(Erforderlich#,0))
Let Erforderlich&=@LONG(Erforderlich#,0)
Disponer PSID#
DIM PSID#,Erforderlich&
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,4,PSID#,Erforderlich&,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Claro SID_NAME_USE#
Claro ACCOUNT_NAME#
Claro Domain#
Largo SIZE_ACCOUNT#,0=255
LONG SIZE_DOMAIN#,0=255
LET Sistema$=""
LET FEHLER&=@LookupAccountSid(@ADDR(Sistema$),@LONG(PSID#,0),ACCOUNT_NAME#,SIZE_ACCOUNT#,Domain#,SIZE_DOMAIN#,SID_NAME_USE#)
ADDSTRING "Fehlercode LookupAccountSid="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
ADDSTRING "Beim Erstellen de Objekten como Besitzer eingetragen="+@String$(ACCOUNT_NAME#,0)
Imprimir "Beim Erstellen de Objekten como Besitzer eingetragen="+@String$(ACCOUNT_NAME#,0)
Disponer PSID#
DIM PSID#,1
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,3,PSID#,1,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Addstring "Erforderliche Bufferlänge="+@STR$(@LONG(Erforderlich#,0))
Let Erforderlich&=@LONG(Erforderlich#,0)
Disponer PSID#
DIM PSID#,Erforderlich&
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,3,PSID#,Erforderlich&,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Claro SID_NAME_USE#
Claro ACCOUNT_NAME#
Claro Domain#
Largo SIZE_ACCOUNT#,0=255
LONG SIZE_DOMAIN#,0=255
LET Sistema$=""
LET FEHLER&=@LookupAccountSid(@ADDR(Sistema$),PSID#,ACCOUNT_NAME#,SIZE_ACCOUNT#,Domain#,SIZE_DOMAIN#,SID_NAME_USE#)
ADDSTRING "Fehlercode LookupAccountSid="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
ADDSTRING "Anzahl el Privilegien para "+User$+"="+@STR$(@LONG(PSID#,0))
LET Zähler&=0
Largo SIZE_ACCOUNT#,0=255
lET Sistema$=""
DIM PRIVLUID#,8

Mientras que @LONG(PSID#,0)>Zähler&

    Largo SIZE_ACCOUNT#,0=255
    Claro ACCOUNT_NAME#,PRIVLUID#
    LET PSID&=PSID#
    Let Atributos$="("
    @CopyMemory(PRIVLUID#,PSID&+Zähler&*12+4,8)
    LET Fehler&=@LookupPrivilegeName(@ADDR(Sistema$),PRIVLUID#,ACCOUNT_NAME#,SIZE_ACCOUNT#)
    ADDSTRING "Fehlercode LookupPrivilegeName="+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
    ADDSTRING "Flags el Atributos des "+@STR$(@INT(Zähler&+1))+".Privilegs=$"+@Hex$(@LONG(PSID#,Zähler&*12+12))

    IF @O(@LONG(PSID#,Zähler&*12+12),$1)=@LONG(PSID#,Zähler&*12+12)

        LET Atributos$=Atributos$+"sofort aktiv,"

    endif

    IF @O(@LONG(PSID#,Zähler&*12+12),$2)=@LONG(PSID#,Zähler&*12+12)

        LET Atributos$=Atributos$+"aktiv,"

    endif

    IF @O(@LONG(PSID#,Zähler&*12+12),$80000000)=@LONG(PSID#,Zähler&*12+12)

        LET Atributos$=Atributos$+"zum Zugriff benutzt,"

    endif

    IF @LONG(PSID#,Zähler&*12+12)=$0

        LET Atributos$=Atributos$+"deaktiviert,"

    endif

    IF @LEN(Atributos$)>1

        LET ATTRIBUTE$=@LEFT$(Atributos$,@LEN(Atributos$)-1)+")"

    Más

        LET ATTRIBUTE$=Atributos$+")"

    endif

    ADDSTRING User$+"s "+@STR$(@INT(Zähler&+1))+".Privileg="+@String$(ACCOUNT_NAME#,0)+" "+Atributos$
    PRINT User$+"s "+@STR$(@INT(Zähler&+1))+".Privileg="+@String$(ACCOUNT_NAME#,0)+" "+Atributos$
    Let Zähler&=Zähler&+1

wend

Disponer PRIVLUID#
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,2,PSID#,1,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
Addstring "Erforderliche Bufferlänge="+@STR$(@LONG(Erforderlich#,0))
Let Erforderlich&=@LONG(Erforderlich#,0)
Disponer PSID#
DIM PSID#,Erforderlich&
Claro PSID#
Claro Erforderlich#
Let Fehler&=@GetTokenInformation(Token&,2,PSID#,Erforderlich&,Erforderlich#)
ADDSTRING "Fehlercode GetTokenInformation="+@STR$(Fehler&)
Let Fehler&=@GetLastError()
ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
ADDSTRING "Anzahl el Gruppen en el Token="+@STR$(@LONG(PSID#,0))
LET Zähler&=0
LET Zähler2&=1

Mientras que @LONG(PSID#,0)>Zähler&

    Claro SID_NAME_USE#
    Claro ACCOUNT_NAME#
    Claro Domain#
    Largo SIZE_ACCOUNT#,0=255
    LONG SIZE_DOMAIN#,0=255
    LET Sistema$=""
    ADDSTRING "Länge des SIDs el "+@STR$(Zähler&)+".Gruppe="+@STR$(@GetLengthSid(@LONG(PSID#,Zähler&*8+4)))
    DIM SID_STRUC#,@GetLengthSid(@LONG(PSID#,Zähler&*8+4))
    @CopyMemory(SID_STRUC#,@LONG(PSID#,Zähler&*8+4),@GetLengthSid(@LONG(PSID#,Zähler&*8+4)))
    LET FEHLER&=@IsValidSid(SID_STRUC#)
    ADDSTRING "Fehlercode IsValidSid="+@STR$(Fehler&)
    LET FEHLER&=@LookupAccountSid(@ADDR(Sistema$),SID_STRUC#,ACCOUNT_NAME#,SIZE_ACCOUNT#,Domain#,SIZE_DOMAIN#,SID_NAME_USE#)
    Disponer SID_STRUC#
    ADDSTRING "Fehlercode LookupAccountSid="+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
    ADDSTRING @Str$(Zähler2&)+".Gruppe en el Token="+@String$(ACCOUNT_NAME#,0)
    ADDSTRING "Flags el Atributos el "+@Str$(Zähler2&)+".Gruppe en el Token=$"+@HEX$(@LONG(PSID#,Zähler&*8+8))
    LET Atributos$="("
    LET SIDFlags&=@LONG(PSID#,Zähler&*8+8)

    IF @O(@LONG(PSID#,Zähler&*8+8),$1)=@LONG(PSID#,Zähler&*8+8)

        LET Atributos$=Atributos$+"nicht löschbar,"
        LET SIDFlags&=SIDFlags&-$1

    endif

    IF @O(@LONG(PSID#,Zähler&*8+8),$2)=@LONG(PSID#,Zähler&*8+8)

        LET Atributos$=Atributos$+"standardmäßig aktiviert,"
        LET SIDFlags&=SIDFlags&-$2

    endif

    IF @O(@LONG(PSID#,Zähler&*8+8),$4)=@LONG(PSID#,Zähler&*8+8)

        LET Atributos$=Atributos$+"aktiviert,"
        LET SIDFlags&=SIDFlags&-$4

    endif

    IF @O(@LONG(PSID#,Zähler&*8+8),$8)=@LONG(PSID#,Zähler&*8+8)

        LET Atributos$=Atributos$+"kann Eigentümer ser,"
        LET SIDFlags&=SIDFlags&-$8

    endif

    IF @O(@LONG(PSID#,Zähler&*8+8),$C0000000)=@LONG(PSID#,Zähler&*8+8)

        LET Atributos$=Atributos$+"Logon ID,"
        LET SIDFlags&=SIDFlags&-$C0000000

    endif

    IF SIDFlags&>0

        ADDSTRING "Nicht berechnete Attribute=$"+@HEX$(SIDFlags&)

    endif

    IF @LEN(Atributos$)>1

        LET ATTRIBUTE$=@LEFT$(Atributos$,@LEN(Atributos$)-1)+")"

    Más

        LET ATTRIBUTE$=Atributos$+")"

    endif

    Addstring "Attribute el "+@Str$(Zähler2&)+".Gruppe en el Token="+Atributos$
    Imprimir @Str$(Zähler2&)+".Gruppe en el Token="+@String$(ACCOUNT_NAME#,0)+" "+Atributos$
    Let Zähler2&=Zähler2&+1
    Let Fehler&=@GetLastError()
    ADDSTRING "Letzter API Fehler="+@STR$(Fehler&)
    Let Zähler&=Zähler&+1

Wend

Disponer ACCOUNT_NAME#
Disponer SIZE_ACCOUNT#
Disponer Domain#
Disponer SIZE_DOMAIN#
Disponer SID_NAME_USE#
Disponer PSID#
Disponer Erforderlich#
LET FEHLER&=@CloseHandle(Token&)
ADDSTRING "Fehlercode CloseHandle="+@STR$(Fehler&)
@EDITBOX("Rückgaben",1)

04.06.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

ASKTEC

¡Hola Andreas,

en Deinem ersten Quellcode erhalte Yo bajo WIN XP Prof. folgendes zurück:

En Invitado:
[quote:85524f26fd]SeInteractiveLogonRight
SeDenyInteractiveLogonRight
SeDenyNetworkLogonRight[/quote:85524f26fd]
En Administrator: restos el Box leer...

En el 2.ten Ver código fuente stürzt el Ablauf de después de el Meldung:

[quote:85524f26fd]Beim Erstellen de Objekten como Besitzer eingetragen=Benutzername[/quote:85524f26fd]
Saludo

Andreas

Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz

04.06.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola ASKTEC...

No Administrator pero Administratoren, Yo brauche el Gruppe.

04.06.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bajo WinXP Pro SP2 haben beide Versionen choque verursacht, tener me el Debugger-Meldung pero no angesehen. Ansonsten tener Yo folgenden Schnappschüsse para Usted gemacht.

AH-Test.png	20 kB

Hochgeladen:	04.06.2005

Ladeanzahl:
		Descargar

04.06.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Au weia! Heute haut auch gar nichts hin

...
Yo habe el blöden Fehler en el 2.Ver código fuente veces beseitigt y hoffe, el el nun se ejecuta.
Ein Wunder, daß el en Windows2000 überhaupt lief...

04.06.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Besten Dank a euch beide!

Mein eigentliches Problema ha se ya en Luft aufgelöst y nebenbei habt ihr me auch todavía esta geholfen, una Problema a lösen, de el Todavía gar ni idea hatte.

Mit el Test Yo quería eigentlich sólo herausfinden, si el Privileg SeManageVolumePrivilege, el lo bajo Windows2000 todavía no son, bajo XP tal vez überall disponible es - y si dieses Privileg standardmäßig aktiviert oder deaktiviert es.
SeManageVolumePrivilege no existe en cada Account y es auch en el Regel deaktiviert.

04.06.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita